Создание теста на Vb (ответы должны вписываться тестируемым) - VB

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

Всем привет, прошу помощи у Вас, поскольку мало шарю в вб. Задача такова: нужно создать тест из нескольких вопросов. На форме картинка, нажимаешь, тест начался. В тесте должны подсчитываться ответы. Задействованы msgbox и inputbox. И если тестируемый нажимает на cancel или крест, то осуществляется выход из теста.

Код к задаче: «Создание теста на Vb (ответы должны вписываться тестируемым) - 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

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

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

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


СОХРАНИТЬ ССЫЛКУ