Беспорядочная смена вопросов

@vitall48 · Регистрация: 09.05.2011

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

я создал программу тест! и у меня возникла проблема вопросы идут по порядку, как сделать так чтобы они менялись вот код программы. что мене надо изменить

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Private Sub Loading()
Dim g As String
Option1.Value = False 'первая радиокнопка включена
Vopros = ""
Otvet1 = ""
Otvet2 = ""
Otvet3 = ""
Otvet4 = ""
Ball1 = 0
Ball2 = 0
Ball3 = 0
Ball4 = 0
If Dir(App.Path & "\voprosi\1уровень" & NomVopros & ".txt") <> "" Then
f = FreeFile
Open App.Path & "\voprosi\1уровень" & NomVopros & ".txt" For Input As #f
Input #f, Vopros
Input #f, Otvet1, Otvet2, Otvet3, Otvet4
Input #f, Ball1, Ball2, Ball3, Ball4
Close #f
 
Else
End If
 
Option1.Caption = Otvet1
Option2.Caption = Otvet2
Option3.Caption = Otvet3
Option4.Caption = Otvet4
Text1.Text = Vopros
g = Vopros
Label1.Caption = "Вопрос № " & NomVopros
End Sub
 
Private Sub Command1_Click() 'кнопка ответить 
Dim m As String
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
Label5.Visible = True
Else
Label5.Visible = False
If Option1.Value = True Then sumans = sumans + Ball1
If Option2.Value = True Then sumans = sumans + Ball2
If Option3.Value = True Then sumans = sumans + Ball3
If Option4.Value = True Then sumans = sumans + Ball4
 
   If Option1.Value = True Then k = k + Ball1
   If Option2.Value = True Then k = k + Ball2
   If Option3.Value = True Then k = k + Ball3
   If Option4.Value = True Then k = k + Ball4
n = NomVopros - 1
   Label3.Caption = k
     If sumans = 1 Then
    Image2.Visible = True
    Command1.Visible = False
    WBSleep 1
    Image2.Visible = False
    Command1.Visible = True
    Else
    If Ball1 = 1 Then Image6.Visible = True
    If Ball2 = 1 Then Image4.Visible = True
    If Ball3 = 1 Then Image5.Visible = True
    If Ball4 = 1 Then Image7.Visible = True
    Image1.Visible = True
    Command1.Visible = False
    WBSleep 1
    Image1.Visible = False
    Command1.Visible = True
    If Ball1 = 1 Then Image6.Visible = False
    If Ball2 = 1 Then Image4.Visible = False
    If Ball3 = 1 Then Image5.Visible = False
    If Ball4 = 1 Then Image7.Visible = False
End If
 
sumans = 0
 
NomVopros = NomVopros + 1
n = NomVopros - 1
l = n
If Dir(App.Path & "\voprosi\1уровень" & NomVopros & ".txt") = "" Then
Text1.Text = "Тест окончен. Результат:" & " " & k & " из" & " " & n
 
         Command1.Visible = False
Command3.Visible = True
Frame1.Visible = False
Label2.Visible = False
Label3.Visible = False
Timer2 = False
Else
Loading
End If
End If
Form2.Label4.Caption = Form4.Combo2.Text
Form2.Label6.Caption = Form4.Combo1.Text
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
 
Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = False
sumans = 0
k = 0
NomVopros = "1"
Loading
Form2.Hide
Form4.Show
End Sub

@Alex77755 · 10.05.2011, 09:54

Я бы объявил глобально массив и добавил в процедуру загрузки строки:

Visual Basic
1
2
3
4
5
6
   Dim File As String, CF As String
   File = App.Path & "\voprosi\1уровень\" & NomVopros & ".txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
      Close #1
M = Split(CF, vbNewLine)

Что бы каждый раз не открывать файл.
Теперь у тебя в массиве твой файл построчно.
Осталось создать генератор случайных чисел на количество вопросов в тесте(с проверкой на неповторяемость) и вытаскивать из массива строки.
В этом случае, кстати, вопросов всего может быть намного больше количества вопрсов в тесте.
Допустим в файле 100 вопросов а в тесте только 10. Так будет лучше

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .