Не выходит из цикла Visual Basic 6.0 - VB

Узнай цену своей работы

Формулировка задачи:

Не получается написать, чтобы при не правильном ответе выходило из программы(выводило: "конец игры"). Вот код:
Листинг программы 
  1. Dim k As Integer, k1 As Integer, s As Integer, i As Integer
  2. Private Sub Command3_Click()
  3. End
  4. End Sub
  5.  
  6. Private Sub Command4_Click()
  7. End
  8. End Sub
  9.  
  10. Private Sub form_load()
  11.  
  12. Label3.Caption = k
  13. k = 0
  14. k1 = 0
  15. i = 0
  16. Frame2.Visible = False
  17. Frame3.Visible = False
  18. Frame4.Visible = False
  19. Frame5.Visible = False
  20. Frame6.Visible = False
  21. Frame7.Visible = False
  22. End Sub
  23. Private Sub Command1_Click()
  24. Form1.Caption = InputBox("Имя игрока")
  25. s = 0
  26. Text1.Text = "Конец Игры"
  27.  
  28. Label1.Caption = "2*2"
  29. Option1.Caption = "4"
  30. Option1.Value = False
  31. Option2.Caption = "5"
  32. Option2.Value = False
  33. Option3.Caption = "6"
  34. Option3.Value = False
  35. Option4.Caption = "7"
  36. Option4.Value = False
  37.  
  38. Label4.Caption = "36/6"
  39. Option5.Caption = "5"
  40. Option5.Value = False
  41. Option6.Caption = "7"
  42. Option6.Value = False
  43. Option7.Caption = "6"
  44. Option7.Value = False
  45. Option8.Caption = "8"
  46. Option8.Value = False
  47.  
  48. Label5.Caption = "7*6"
  49. Option9.Caption = "42"
  50. Option9.Value = False
  51. Option10.Caption = "54"
  52. Option10.Value = False
  53. Option11.Caption = "11"
  54. Option11.Value = False
  55. Option12.Caption = "15"
  56. Option12.Value = False
  57.  
  58. Label6.Caption = "58/2"
  59. Option13.Caption = "35"
  60. Option13.Value = False
  61. Option14.Caption = "29"
  62. Option14.Value = False
  63. Option15.Caption = "16"
  64. Option15.Value = False
  65. Option16.Caption = "25"
  66. Option16.Value = False
  67.  
  68. Label7.Caption = "52*2"
  69. Option17.Caption = "78"
  70. Option17.Value = False
  71. Option18.Caption = "89"
  72. Option18.Value = False
  73. Option19.Caption = "103"
  74. Option19.Value = False
  75. Option20.Caption = "104"
  76. Option20.Value = False
  77. End Sub
  78.  
  79. Private Sub Command2_Click()
  80. i = 0
  81. For i = 0 To 4
  82.  
  83. If (i = 0) And (Option1.Value = True) Then
  84. 'If (Option1.Value = True) Then
  85.     k = 100
  86.     Frame1.Visible = False
  87.     Frame2.Visible = True
  88.     Else
  89. Form1.Hide
  90. Form2.Show
  91. Form2.Label1.Caption = "КОНЕЦ ИГРЫ"
  92.     End If
  93. If i = 1 And Option7.Value = True Then
  94.     k = k + 100
  95.     Frame2.Visible = False
  96.     Frame3.Visible = True
  97.     Else
  98. Form1.Hide
  99. Form2.Show
  100. Form2.Label1.Caption = "КОНЕЦ ИГРЫ"
  101.     End If
  102. If i = 2 And Option9.Value = True Then
  103.     k = k + 100
  104.     Frame3.Visible = False
  105.     Frame4.Visible = True
  106.    Else
  107. Form1.Hide
  108. Form2.Show
  109. Form2.Label1.Caption = "КОНЕЦ ИГРЫ"
  110.     End If
  111. If i = 3 And Option14.Value = True Then
  112.     k = k + 100
  113.     Frame4.Visible = False
  114.     Frame5.Visible = True
  115.     Else
  116.  Form1.Hide
  117. Form2.Show
  118. Form2.Label1.Caption = "КОНЕЦ ИГРЫ"
  119.     End If
  120. If i = 4 And Option20.Value = True Then
  121.     k = k + 100
  122.     Frame5.Visible = False
  123.     Frame6.Visible = True
  124.     Else
  125. Form1.Hide
  126. Form2.Show
  127. Form2.Label1.Caption = "КОНЕЦ ИГРЫ"
  128.     End If
  129. i = i + 1
  130.  Next i
  131.  
  132. Form1.Label2.Caption = k
  133. End Sub

Решение задачи: «Не выходит из цикла Visual Basic 6.0»

textual
Листинг программы 
  1. Private Sub Command3_Click()
  2. End
  3. End Sub
  4.  
  5. Private Sub Command4_Click()
  6. End
  7. End Sub
  8.  
  9. Private Sub form_load()
  10. Dim k As Integer, k1 As Integer, s As Integer, i As Integer
  11. Label3.Caption = k
  12. k = 0
  13. k1 = 0
  14. i = 0
  15. Frame2.Visible = False
  16. Frame3.Visible = False
  17. Frame4.Visible = False
  18. Frame5.Visible = False
  19. Frame6.Visible = False
  20. Frame7.Visible = False
  21. End Sub
  22. Private Sub Command1_Click()
  23. Form1.Caption = InputBox("Имя игрока")
  24. s = 0
  25. Text1.Text = "Конец Игры"
  26.  
  27. Label1.Caption = "2*2"
  28. Option1.Caption = "4"
  29. Option1.Value = False
  30. Option2.Caption = "5"
  31. Option2.Value = False
  32. Option3.Caption = "6"
  33. Option3.Value = False
  34. Option4.Caption = "7"
  35. Option4.Value = False
  36.  
  37. Label1.Caption = "2*2"
  38. Option1.Caption = "4"
  39. Option1.Value = False
  40. Option2.Caption = "7"
  41. Option2.Value = False
  42. Option3.Caption = "6"
  43. Option3.Value = False
  44. Option4.Caption = "8"
  45. Option4.Value = False
  46.  
  47. Label4.Caption = "36/6"
  48. Option5.Caption = "5"
  49. Option5.Value = False
  50. Option6.Caption = "7"
  51. Option6.Value = False
  52. Option7.Caption = "6"
  53. Option7.Value = False
  54. Option8.Caption = "8"
  55. Option8.Value = False
  56.  
  57. Label5.Caption = "7*6"
  58. Option9.Caption = "42"
  59. Option9.Value = False
  60. Option10.Caption = "54"
  61. Option10.Value = False
  62. Option11.Caption = "11"
  63. Option11.Value = False
  64. Option12.Caption = "15"
  65. Option12.Value = False
  66.  
  67. Label6.Caption = "58/2"
  68. Option13.Caption = "35"
  69. Option13.Value = False
  70. Option14.Caption = "29"
  71. Option14.Value = False
  72. Option15.Caption = "16"
  73. Option15.Value = False
  74. Option16.Caption = "25"
  75. Option16.Value = False
  76.  
  77. Label7.Caption = "52*2"
  78. Option17.Caption = "78"
  79. Option17.Value = False
  80. Option18.Caption = "89"
  81. Option18.Value = False
  82. Option19.Caption = "103"
  83. Option19.Value = False
  84. Option20.Caption = "104"
  85. Option20.Value = False
  86. End Sub
  87.  
  88. Private Sub Command2_Click()
  89. For i = 0 To 4
  90. If i = 0 And Option1.Value = True Then
  91.     k = 100
  92.     Frame1.Visible = False
  93.     Frame2.Visible = True
  94.     Else
  95.     Frame1.Visible = False
  96.     Frame7.Visible = True
  97.     End If
  98. If i = 1 And Option7.Value = True Then
  99.     k = k + 100
  100.     Frame2.Visible = False
  101.     Frame3.Visible = True
  102.     Else
  103.     Frame2.Visible = False
  104.     Frame7.Visible = True
  105.     End If
  106. If i = 2 And Option9.Value = True Then
  107.     k = k + 100
  108.     Frame3.Visible = False
  109.     Frame4.Visible = True
  110.     Else
  111.     Frame3.Visible = False
  112.     Frame7.Visible = True
  113.     End If
  114. If i = 3 And Option14.Value = True Then
  115.     k = k + 100
  116.     Frame4.Visible = False
  117.     Frame5.Visible = True
  118.     Else
  119.     Frame4.Visible = False
  120.     Frame7.Visible = True
  121.     End If
  122. If i = 4 And Option20.Value = True Then
  123.     k = k + 100
  124.     Frame5.Visible = False
  125.     Frame6.Visible = True
  126.     Else
  127.     Frame5.Visible = False
  128.     Frame7.Visible = True
  129.     End If
  130.     Next i
  131.  
  132. Form1.Label2.Caption = k
  133. End Sub

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

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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут