Не выходит из цикла Visual Basic 6.0 - VB
Формулировка задачи:
Не получается написать, чтобы при не правильном ответе выходило из программы(выводило: "конец игры"). Вот код:
Решение задачи: «Не выходит из цикла Visual Basic 6.0»
textual
Листинг программы
Private Sub Command3_Click() End End Sub Private Sub Command4_Click() End End Sub Private Sub form_load() Dim k As Integer, k1 As Integer, s As Integer, i As Integer Label3.Caption = k k = 0 k1 = 0 i = 0 Frame2.Visible = False Frame3.Visible = False Frame4.Visible = False Frame5.Visible = False Frame6.Visible = False Frame7.Visible = False End Sub Private Sub Command1_Click() Form1.Caption = InputBox("Имя игрока") s = 0 Text1.Text = "Конец Игры" Label1.Caption = "2*2" Option1.Caption = "4" Option1.Value = False Option2.Caption = "5" Option2.Value = False Option3.Caption = "6" Option3.Value = False Option4.Caption = "7" Option4.Value = False Label1.Caption = "2*2" Option1.Caption = "4" Option1.Value = False Option2.Caption = "7" Option2.Value = False Option3.Caption = "6" Option3.Value = False Option4.Caption = "8" Option4.Value = False Label4.Caption = "36/6" Option5.Caption = "5" Option5.Value = False Option6.Caption = "7" Option6.Value = False Option7.Caption = "6" Option7.Value = False Option8.Caption = "8" Option8.Value = False Label5.Caption = "7*6" Option9.Caption = "42" Option9.Value = False Option10.Caption = "54" Option10.Value = False Option11.Caption = "11" Option11.Value = False Option12.Caption = "15" Option12.Value = False Label6.Caption = "58/2" Option13.Caption = "35" Option13.Value = False Option14.Caption = "29" Option14.Value = False Option15.Caption = "16" Option15.Value = False Option16.Caption = "25" Option16.Value = False Label7.Caption = "52*2" Option17.Caption = "78" Option17.Value = False Option18.Caption = "89" Option18.Value = False Option19.Caption = "103" Option19.Value = False Option20.Caption = "104" Option20.Value = False End Sub Private Sub Command2_Click() For i = 0 To 4 If i = 0 And Option1.Value = True Then k = 100 Frame1.Visible = False Frame2.Visible = True Else Frame1.Visible = False Frame7.Visible = True End If If i = 1 And Option7.Value = True Then k = k + 100 Frame2.Visible = False Frame3.Visible = True Else Frame2.Visible = False Frame7.Visible = True End If If i = 2 And Option9.Value = True Then k = k + 100 Frame3.Visible = False Frame4.Visible = True Else Frame3.Visible = False Frame7.Visible = True End If If i = 3 And Option14.Value = True Then k = k + 100 Frame4.Visible = False Frame5.Visible = True Else Frame4.Visible = False Frame7.Visible = True End If If i = 4 And Option20.Value = True Then k = k + 100 Frame5.Visible = False Frame6.Visible = True Else Frame5.Visible = False Frame7.Visible = True End If Next i Form1.Label2.Caption = k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д