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