Visual Basic 6 πρόβλημα με for…next

[gogos 15]

Για σας παιδιά.

Θα ήθελα αν πορίστε να με βοηθήσετε σε ένα πρόβλημα.

 

Private Sub Command1_Click()

For k = 1 To 2

For i = 1 To 2

Print i - k = Text3

Print i

Print k

Text1.Text = Text1.Text & i

Text2.Text = Text2.Text & k

Next

Next

End Sub

Αυτό που θέλω να κάνω είναι να με εμφανίζει στο τεχτ1 και τεχτ2 μόνο την σωστή πιθανότητα.

Πχ Αν το text3 = 1 τότε να εμφανίζει text1 = 2 kai text3 = 1

Ευχαριστώ εκ’ των προτέρων

[Pantelwolf]

Δεν έχω καταλάβει τι θες να κάνεις αλλά μαλλον έχεις μπερδέψει αυτό

Print i - k = Text3

Μήπως έχεις βάλει αναποδα τους τελεστές?

Έχεις κάποιο ορισμό του προβλήματος?

[gogos 15]

Αν δεν σε κάνει κόπο φτιάξε μια φόρμα με 3 textbox και ένα κουμπί θα παρατήρησης ότι πάνω την φόρμα εμφανίζει πια είναι η σωστή τιμή αλλά δεν ξέρω πώς να τις βάλω στα τεχτβοχ

Φίλε μου παντός θέλω να σε ευχαριστήσω για το ενδιαφέρον σου

[virxen75]

>
Private Sub Command1_Click()

Dim trueOrFalse As Boolean

For k = 1 To 2
For i = 1 To 2
trueOrFalse = (i - k = Val(Text3.Text))
If (trueOrFalse = True) Then Text1.Text = Str(i): Text2.Text = Str(k)

Next
Next
End Sub

[gogos 15]

Φίλε με έσωσες δεν ξέρω πώς να σε ευχαριστήσω για την ακρίβεια δεν είναι η πρώτη φορά που με ξελασπώνεις ( από άλλα ερωτήματα άλλον παιδιών που έχεις απάντηση)

[DBLADE]

αύτο είναι αλήθεια με έχει ξελασπώση τουλ. 3 φορές μέσα σε 10 λεπτά μάλλον αυτόυ του τύπου ερωτήσεων θα της βλέπει παιχνιδάκι παίζει να είναι και προγραματιστής