Создание простого теста для VB!

@Ride20 · Регистрация: 26.12.2010

Студворк — интернет-сервис помощи студентам

Народ помогите, голова уже не варит!! Надо сделать тест с использованием простых комманд! 10 вопросов(Label) и 4 варианта ответов(OptionButton), правильные ответы я поставил первыми! При нажатии завершить тест, в двух текстовых окнах((1)правильные, (2)неправильные) появляется результат в цифрах. Код должен быть простой, скорее всего массивами!

Добавлено через 1 час 7 минут

Сообщение от Ride20

Народ помогите, голова уже не варит!! Надо сделать тест с использованием простых комманд! 10 вопросов(Label) и 4 варианта ответов(OptionButton), правильные ответы я поставил первыми! При нажатии завершить тест, в двух текстовых окнах((1)правильные, (2)неправильные) появляется результат в цифрах. Код должен быть простой, скорее всего массивами!

Вот что-то поделал но голова не варит!!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Dim i As Integer
Dim z As Integer
Private Sub Command1_Click()
If Option1.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option5.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option9.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option13.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option17.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option21.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option25.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option29.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option33.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option37.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
End Sub
 
Private Sub Form_Load()
txtprav.Text = i
txtneprav.Text = z
End Sub

@gaw · 06.06.2011, 23:21

примерчик (усеченный)

@Ride20 · 06.06.2011, 23:25 **[ТС]**

Мне попроще надо, примерно не сложнее того что я написал да и с програмным кодом)

@gaw · 06.06.2011, 23:31

Сообщение от Ride20

10 вопросов(Label) и 4 варианта ответов

это что на одной форме и одновременно?

@Ride20 · 07.06.2011, 00:13 **[ТС]**

Сообщение от gaw

это что на одной форме и одновременно?

Да! Поэтому и мучаюсь!)

Добавлено через 39 минут

Сообщение от Ride20

Народ помогите, голова уже не варит!! Надо сделать тест с использованием простых комманд! 10 вопросов(Label) и 4 варианта ответов(OptionButton), правильные ответы я поставил первыми! При нажатии завершить тест, в двух текстовых окнах((1)правильные, (2)неправильные) появляется результат в цифрах. Код должен быть простой, скорее всего массивами!

Добавлено через 1 час 7 минут

Вот что-то поделал но голова не варит!!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Dim i As Integer
Dim z As Integer
Private Sub Command1_Click()
If Option1.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option5.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option9.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option13.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option17.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option21.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option25.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option29.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option33.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
If Option37.Value = Checked Then
i = p + 1
Else
z = n + 1
End If
End Sub
 
Private Sub Form_Load()
txtprav.Text = i
txtneprav.Text = z
End Sub

Вот рабочая программа))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Command1_Click()
i = 0
If Option3.Value = True Then
i = i + 1
End If
If Option6.Value = True Then
i = i + 1
End If
If Option9.Value = True Then
i = i + 1
End If
If Option10.Value = True Then
i = i + 1
End If
If Option13.Value = True Then
i = i + 1
End If
If Option15.Value = True Then
i = i + 1
End If
If Option19.Value = True Then
i = i + 1
End If
If Option23.Value = True Then
i = i + 1
End If
If Option25.Value = True Then
i = i + 1
End If
If Option29.Value = True Then
i = i + 1
End If
MsgBox (i)
Select Case i
Case 10: MsgBox ("Ïðàâèëüíî: 10 Íåïðàâèëüíî: 0")
Case 9: MsgBox ("Ïðàâèëüíî: 9 Íåïðàâèëüíî: 1")
Case 8: MsgBox ("Ïðàâèëüíî: 8 Íåïðàâèëüíî: 2")
Case 7: MsgBox ("Ïðàâèëüíî: 7 Íåïðàâèëüíî: 3")
Case 6: MsgBox ("Ïðàâèëüíî: 6 Íåïðàâèëüíî: 4")
Case 5: MsgBox ("Ïðàâèëüíî: 5 Íåïðàâèëüíî: 5")
Case 4: MsgBox ("Ïðàâèëüíî: 4 Íåïðàâèëüíî: 6")
Case 3: MsgBox ("Ïðàâèëüíî: 3 Íåïðàâèëüíî: 7")
Case 2: MsgBox ("Ïðàâèëüíî: 2 Íåïðàâèëüíî: 8")
Case 1: MsgBox ("Ïðàâèëüíî: 1 Íåïðàâèëüíî: 9")
Case 0: MsgBox ("Ïðàâèëüíî: 0 Íåïðàâèëüíî: 10")
End Select
End Sub

@gaw · 07.06.2011, 00:21

Сообщение от Ride20

Select Case i
Case 10: MsgBox ("Правильно: 10 Неправильно: 0")
Case 9: MsgBox ("Правильно: 9 Неправильно: 1")
Case 8: MsgBox ("Правильно: 8 Неправильно: 2")
Case 7: MsgBox ("Правильно: 7 Неправильно: 3")
Case 6: MsgBox ("Правильно: 6 Неправильно: 4")
Case 5: MsgBox ("Правильно: 5 Неправильно: 5")
Case 4: MsgBox ("Правильно: 4 Неправильно: 6")
Case 3: MsgBox ("Правильно: 3 Неправильно: 7")
Case 2: MsgBox ("Правильно: 2 Неправильно: 8")
Case 1: MsgBox ("Правильно: 1 Неправильно: 9")
Case 0: MsgBox ("Правильно: 0 Неправильно: 10")
End Select

Visual Basic
1
 MsgBox ("Правильно: i Неправильно: 10-i")

@Zagitov1337 · 16.11.2020, 08:40

А можно пожалуйста кодик этого exe файла?

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@Ride20 1 / 1 / 0 Регистрация: 26.12.2010 Сообщений: 41
	06.06.2011, 23:25 [ТС]
	Мне попроще надо, примерно не сложнее того что я написал да и с програмным кодом) 0

@Zagitov1337 1 / 1 / 0 Регистрация: 29.10.2020 Сообщений: 32
	16.11.2020, 08:40
	А можно пожалуйста кодик этого exe файла? 0