Постановка задачи.
Создадим VBA проект под названием «Тренажер устного счета».
Пользователь может выбрать режим работы. Для этого нужно щелкнуть по одной из кнопок меню. Если щелкнуть по кнопке «Сложение», форма меню исчезнет с экрана, а вместо нее появится новая форма. На ней находится пример на сложение двух чисел и место для ввода ответа. При нажатии на кнопку «Проверка» компьютер проверяет правильность введенного пользователем ответа и выводит на экран сообщение о результатах проверки. При нажатии на кнопку «Следующий пример» числа меняются случайным образом. Нажатие на кнопку «Меню» закрывает текущую форму и вызывает форму-меню.
тренажер.docx
Проект.
«Тренажер устного счета».
Постановка задачи.
Создадим VBA проект под названием «Тренажер устного счета».
Пользователь может выбрать режим работы. Для этого нужно щелкнуть по одной из кнопок
меню. Если щелкнуть по кнопке «Сложение», форма меню исчезнет с экрана, а вместо нее
появится новая форма. На ней находится пример на сложение двух чисел и место для
ввода ответа. При нажатии на кнопку «Проверка» компьютер проверяет правильность
введенного пользователем ответа и выводит на экран сообщение о результатах проверки.
При нажатии на кнопку «Следующий пример» числа меняются случайным образом.
Нажатие на кнопку «Меню» закрывает текущую форму и вызывает формуменю.
Рисунок 1
Рисунок 2
Рисунок 3
Данный проект состоит из трех форм.
Ход работы: Кнопка «Следующий пример»
Эти функции генерируют случайные числа
между 0 и 1.
«Проверка»
Кнопка
В этой строке проверяется, правильный ли
ответ ввел пользователь.
Расположите на формах объекты в соответствии с рисунками 1,2,3.
UserForm2)
Код программы(
:
Private Sub CommandButton1_Click()
Label1.Caption = Int(Rnd * 10 + 1)
Label3.Caption = Int(Rnd * 10 + 1)
End Sub
В нашем проекте слагаемые должны быть больше
или равны 1 и меньше или равны 10.
Int(Rnd*(правая граница левая граница+1)+левая
граница).
Private Sub CommandButton2_Click()
If Val(Label1.Caption) + Val(Label3.Caption) =
Val(TextBox1.Text) Then
Label5.Caption = "Молодец !!! Ответ верный"
Else: Label5.Caption = " Не верно, попробуй
еще раз"
End If
End Sub
Кнопка
« Меню
»
Private Sub CommandButton3_Click()
Метод представляет собой действие,
выполняемое над объектом.
Объект.Hide закрывает форму.
Объект.Show – вызывает форму.
UserForm2.Hide
UserForm1.Show
End Sub
Код процедуры для объектов формы UserForm3, написать самостоятельно .
ПРОЕКТ VBA «Тренажер устного счета».
ПРОЕКТ VBA «Тренажер устного счета».
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.