Создание простого теста для 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 файла?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@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

Опции темы