Всем привет,
короче у меня проблема низнаыу как цикл написать в ВБ, пример вот у меня три текстовых поля и в етих полях в разброску должны появлятся числа пока я ненажму кнопку стоп, рандом будет от 0-10 всёравно скока будет... как зациклить подскажите плз, прин нажатии кнокпи стоп идёв вычисление если в какомто поле есть семёрка если да то причтётся один балл (как бы)
вот код  :Д
| Код |
Dim a, b, c
Dim tah
Dim spravne
Private Sub Command1_Click()
tah = tah + 1
Randomize
a = Text1.Text
b = Text2.Text
c = Text3.Text
a = Int(Rnd * 10)
Text1.Text = a
b = Int(Rnd * 10)
Text2.Text = b
c = Int(Rnd * 10)
Text3.Text = c
Loop
End Sub
Private Sub Command2_Click()
Text1.Text = a
Text2.Text = b
Text3.Text = c
If a = 7 Then
spravne = spravne + 1
Else
If b = 7 Then
spravne = spravne + 1
Else
If c = 7 Then
spravne = spravne + 1
Else
End If
End If
End If
Label1 = spravne
End Sub
|
pls pomogite ;) |
