Создание теста на Vb (ответы должны вписываться тестируемым)
Формулировка задачи:
Всем привет, прошу помощи у Вас, поскольку мало шарю в вб. Задача такова: нужно создать тест из нескольких вопросов. На форме картинка, нажимаешь, тест начался. В тесте должны подсчитываться ответы. Задействованы msgbox и inputbox. И если тестируемый нажимает на cancel или крест, то осуществляется выход из теста.
Решение задачи: «Создание теста на Vb (ответы должны вписываться тестируемым)»
textual
Листинг программы
Sub test() Dim inp As String Dim i%, n%, o, a%, b%, r% n = 5 Do r = 0 For i = 1 To n Randomize (Timer) a = Int(Rnd * 9) + 1: b = Int(Rnd * 9) + 1 inp = InputBox(a & " x " & b & " = ?") If StrPtr(inp) = 0 Then End 'Exit For o = Val(inp) If o = a * b Then r = r + 1 Next i Loop While MsgBox("Result: " & r & vbLf & "Next ?", 51) = vbYes End End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д