Random в visual basic

@Всея · Регистрация: 12.11.2013

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

Всем ку типы. Нужна ваша помощь. Есть программа в ней есть вопросы нужно чтобы вопросы появлялись в случайном порядке. Код программы ниже, скрины также ниже.

код на форме

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub Command1_Click()
 Select Case numb_vopros
 Case 1
   If Form10.Option3.Value = True Then k = k + 1
 Case 2
   If Form10.Option1.Value = True Then k = k + 1
 Case 3
   If Form10.Option2.Value = True Then k = k + 1
 Case 4
   If Form10.Option3.Value = True Then k = k + 1
 Case 5
   If Form10.Option2.Value = True Then k = k + 1
 Case 6
   If Form10.Option1.Value = True Then k = k + 1
 Case 7
   If Form10.Option1.Value = True Then k = k + 1
 Case 8
   If Form10.Option1.Value = True Then k = k + 1
 Case 9
   If Form10.Option2.Value = True Then k = k + 1
 Case 1000
   End
 End Select
 Form10.Option1.Visible = True
 Form10.Option2.Visible = True
 Form10.Option3.Visible = True
 Form10.Option1.Value = False
 Form10.Option2.Value = False
 Form10.Option3.Value = False
 Command1.Caption = "Дальше"
   Label3.Visible = True
  Label1.Visible = True
    Command2.Visible = True
  numb_vopros = numb_vopros + 1
 If numb_vopros < 10 Then
   vopros (numb_vopros)
 Else
   Result
 End If
End Sub
Private Sub Command2_Click()
If MsgBox("Вы действительно хотите прервать тест?", vbQuestion Or vbYesNo, "Внимание") = vbYes Then EndTest
End Sub
 
 
Private Sub Option1_Click()
  Form10.Command1.Enabled = True
End Sub
 
Private Sub Option2_Click()
  Form10.Command1.Enabled = True
End Sub
 
Private Sub Option3_Click()
  Form10.Command1.Enabled = True
End Sub
 
Private Sub Option4_Click()
  Form10.Command1.Enabled = True
End Sub
 
Private Sub Form_Load()
  numb_vopros = 0
  k = 0
  Label4.Caption = "Если вы готовы пройти тест нажмите на кнопку"
  Option1.Visible = False
  Option2.Visible = False
  Option3.Visible = False
  Label3.Visible = False
  Label1.Visible = False
  Command2.Visible = False
  End Sub
  Private Sub EndTest()
   End
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Global k, numb_vopros As Integer
  
 
Sub vopros(numb As Integer)
 
 Form10.Command1.Enabled = False
 Select Case numb
 Case 1
   Form10.Label1.Caption = "Какой из нижеперечисленных типов не относится к простым типам?"
   Form10.Option1.Caption = "Целочисленный тип данных"
   Form10.Option2.Caption = "Вещественный тип данных"
   Form10.Option3.Caption = "Запись"
 Case 2
   Form10.Label1.Caption = "Объявление пользовательских типов данных происходит..."
   Form10.Option1.Caption = "Вслед за зарезервированным словом TYPE"
   Form10.Option2.Caption = "Вслед за зарезервированным словом VAR"
   Form10.Option3.Caption = "непосредственно в основном блоке программы"
 Case 3
   Form10.Label1.Caption = "Целочисленный тип BYTE принимает значения..."
   Form10.Option1.Caption = "от -128 до 127"
   Form10.Option2.Caption = "от 0 до 255"
   Form10.Option3.Caption = "от 0 до 65535"
 Case 4
   Form10.Label1.Caption = "Укажите тип переменной х. Для команды x:=2/1"
   Form10.Option1.Caption = "byte"
   Form10.Option2.Caption = "word"
   Form10.Option3.Caption = "real"
 Case 5
   Form10.Label1.Caption = "Какого типа переменную Вы бы использовали для представления обьема куба?"
   Form10.Option1.Caption = "integer"
   Form10.Option2.Caption = "real"
   Form10.Option3.Caption = "char"
 Case 6
   Form10.Label1.Caption = "Структурный тип данных, представляющий собой набор взаимосвязанных по какому-либо признаку или группе признаков объектов, которые можно рассматривать как единое целое."
   Form10.Option1.Caption = "Множество"
   Form10.Option2.Caption = "записи"
   Form10.Option3.Caption = "цикл"
 Case 7
   Form10.Label1.Caption = "Структурный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов."
   Form10.Option1.Caption = "запись"
   Form10.Option2.Caption = "множества"
   Form10.Option3.Caption = "перепись"
 Case 8
   Form10.Label1.Caption = "Тип integer предназначен для переменных в которых хранятся ..."
   Form10.Option1.Caption = "Целые числа"
   Form10.Option2.Caption = "Символы"
   Form10.Option3.Caption = "Любые числа"
 Case 9
   Form10.Label1.Caption = "В каком из типов переменных мы можем хранить не только числа но и символы?"
   Form10.Option1.Caption = "real"
   Form10.Option2.Caption = "string"
   Form10.Option3.Caption = "integer"
 End Select
End Sub
 
Sub Result()
 
 Form10.Label1.Caption = "Ваш результат " & Format(k)
 Form10.Option1.Visible = False
 Form10.Option2.Visible = False
 Form10.Option3.Visible = False
 numb_vopros = 1000
End Sub

SilenStormS2 · 10.04.2015, 17:55

Randomize тут решение

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

SilenStormS2 0 / 0 / 1 Регистрация: 08.04.2015 Сообщений: 5
	10.04.2015, 17:55
	Сообщение было отмечено The trick как решение Решение Randomize тут решение 0

Random в visual basic

Решение