Ответ появляется в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д