Напишите программу проверки умения умножения однозначного на двузначное число - 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

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

9 голосов , оценка 4.333 из 5

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

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

Похожие ответы