Ответ появляется в InputBox - VB

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

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

При нажатии кнопки "Начать тест" появляются InputBox с разными вопросами.Ответил на один вопрос (ну или не ответил) и появляется следующий InputBox с другим вопросом.Всего вопросов 5. На основной форме находится,кроме кнопки,еще и текстовая строка(Text). Нужно,чтобы после того,как пользователь ответил на все вопросы,в этом текстовом поле Text появлялась информация о количестве верных ответов. Спасибо!

Решение задачи: «Ответ появляется в InputBox»

textual
Листинг программы
Private Sub Command1_Click()
Dim x1, x2, x3, x4, x5 As Integer 'èëè ñòðîêîâûé ГІГЁГЇ ГЄГ*êîé
Dim k As Integer: k = 0
 
x1 = InputBox("Г‚ ГЄГ*êîì ãîäó Гћ.ГЂ.ГѓГ*ГЈГ*ðèГ* ïîëåòåë Гў êîñìîñ?")
If x1 = 1961 Then
k = k + 1
End If
...
x5 = InputBox("ÂòîðГ*Гї ÌèðîâГ*Гї âîéГ*Г* Г§Г*âåðøèëГ*Г±Гј Гў...")
If x5 = 1945 Then
k = k + 1
End If
 
Text1.Text = "Êîëè÷åñòâî ГЇГ°Г*âèëüГ*ûõ îòâåòîâ: " + Str(k)
End Sub

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


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

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

11   голосов , оценка 3.818 из 5