счетчик правильных ответов (VBA)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

7silver

Дата: Четверг, 18.04.2013, 21:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте!
Столкнулся с неразрешимой для себя проблемой и начал изучать программирование.
По мере осваивания решил написать программку для проведения свободного рабочего времени с пользой для мозга.)
Суть программы - вывод двух рандомных чисел, которые нужно перемножить с последующим выводом ответа и подсчетом правильных и неправильных ответов.
Зашел в тупик на следующих этапах:
1) вывод кол-ва неправильных ответов;
2) завершение программы при нажатии на Cancel;
ну чтоб вообще было все замечательно:
3) подсчет затраченного времени на все ответы.
Заранее спасибо!

К сообщению приложен файл: Book1.xlsm (17.2 Kb)

Ответить

AlexM

Дата: Четверг, 18.04.2013, 23:17 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Sub a()
Dim tm!: tm = Timer
Dim value&, v&, d&, a&, b
Dim q& ' для вывода количества неправильных ответов
Do
value = Int((100 * Rnd) + 1)
v = Int((100 * Rnd) + 1)
b = InputBox("multiply:" & Chr(13) + Chr(13) & value & Chr(13) & v & Chr(13) + Chr(13) & "or type 0 to exit")
If b = 0 Or b = "" Then GoTo goodbye
d = value * v
a = a + 1
If CLng(b) <> d Then q = q + 1
MsgBox ("right:" & " " & d & Chr(13) & "yours:" & " " & b & Chr(13) + Chr(13) & "Total:" & " " & q & "/" & a)
Loop
goodbye:
MsgBox Timer - tm & " s"
MsgBox "Goodbye"
End Sub

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

7silver

Дата: Пятница, 19.04.2013, 08:31 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

AlexM, спасибо.

Ответить

счетчик правильных ответов (VBA)

Страница 1 из 1
1