Программа тренажер-экзаменатор по системам счисления на VBasic

Назначение.

Программа предназначена для контроля знаний или тренировки по теме «Перевод чисел из десятичной системы счисления в двоичную систему счисления».

Порядок работы.

После запуска программы на экране появляется основное окно программы «Перевод чисел Задание 1» и окно ввода «Ввод числа». В основном окне программы компьютер случайным образом генерирует первое десятичное число.

Необходимо в окне ввода напечатать двоичный код десятичного числа и нажать Ok. Например, для десятичного числа 54 двоичный код будет равен 110110.

Если введенное двоичное число действительно соответствует десятичному числу, то появится ответ «правильно!». Затем компьютер случайным образом генерирует следующее десятичное число, и работа с программой продолжится.

Если введенное двоичное число не соответствует десятичному числу, то появится ответ «неправильно!» появится следующее десятичное число и работа с программой продолжится.

По окончании работы будет выдано сообщение о количестве правильных ответов и выставлена оценка.

Дизайн проекта

Программный код

Dim n As Single

Dim bin, m As String

Dim i, k, q As Integer

Private Sub Form_Load()

Show

Label6 = "Перевод чисел из десятичной системы"

Label7 = "счисления в двоичную систему счисления:"

Randomize

n = Int(Rnd * 100 + 1)

k = 0

For i = 1 To 10

Rem ввод случайного числа

Randomize

n = Int(Rnd * 100 + 1)

Label3.Caption = n

Rem перевод числа в двоичный код

bin = ""

Do While n > 0

q = n Mod 2

n = n 2

bin = CStr(q) + bin

Loop

m = InputBox("Введите двоичное число", "Ввод числа", , 3000, 5000)

If m = bin Then Label4.Caption = "правильно !": k = k + 1 Else Label4.Caption = "неправильно !"

Next

Label5.Caption = "Количество правильных ответов = " & k

If k < 5 Then Label8.Caption = "Ваша оценка 2" Else

If k >= 5 Then Label8.Caption = "Ваша оценка 3" Else

If k >= 7 Then Label8.Caption = "Ваша оценка 4" Else

If k >= 9 Then Label8.Caption = "Ваша оценка 5" Else

End Sub