Не выходит из цикла 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5