Напишите программу проверки умения умножения однозначного на двузначное число - VB
Формулировка задачи:
Напишите программу проверки умения умножения однозначного на двузначное число. Программа должна вывести 10 примеров и выставить оценку: за 10 правильных - (Отлично), за 9.8-(Хорошо),за 7.6(Удовлетворительно),за 5 и менее-(плохо). Используйте цикл с предусловием с ключевым словом While.
Решение задачи: «Напишите программу проверки умения умножения однозначного на двузначное число»
textual
Листинг программы
Sub main()
Dim i&, n&, a&, b&
While i < 10
i = i + 1
a = 1 + Int(Rnd() * 9)
b = 10 + Int(Rnd() * 90)
If a * b = InputBox("Пример " & i & " из 10" & vbLf & vbLf & a & "*" & b & "=") Then n = n + 1
Wend
If n = 10 Then
MsgBox "Отлично"
ElseIf n > 7 Then MsgBox "Хорошо"
ElseIf n > 5 Then MsgBox "Удовлетворительно"
Else: MsgBox "Плохо"
End If
End Sub