Ошибки в VisualBasic

@MrManchkin · Регистрация: 26.01.2020

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

Столкнулся с проблемами, но че-т не догоняю в чем решение их, у меня есть ошибки, но не знаю как их решить.

VB.NET
1
2
3
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            newTEST()
        End Sub

1.Не удается найти событие "Load"

VB.NET
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
Private Sub CmdOk_Click(sender As Object, e As EventArgs)
            maxId_ = Val(Me.Text)
 
            'делаем проверку для каждого РБ,
            'тк выбран может быть только 1, но хз какой
            RadBut(rb1)
            RadBut(rb2)
            RadBut(rb3)
            RadBut(rb4)
 
            'если НЕ последний вопрос тогда
            If a < maxId_ Then
                a += 1                      'след вопрос
                element1(a)             'показываем его
                'статистика вопросов
                cmdOk.Text = Str(a) + " из " + Str(maxId_)
                'выбирается 1 РБ (для нового вопроса)
                rb1.Checked = True
            Else
                'иначе - проверка ответов
                STOPS()
            End If
 
            AddHandler cmdOk.Click, AddressOf CmdOk_Click
        End Sub

2."Click" не является событием "Object"

VB.NET
1
2
3
4
5
6
Sub maxIDxml()
 
            Dim xdoc As XDocument = XDocument.Load(fileName)
            Me.Text = xdoc.Element("Table").Elements("vprs").Count
 
        End Sub

3.Выражение является значением, поэтому ему нельзя ничего присваивать.(Me.Text)
Ниже кину весь код, хз блен

VB.NET
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
Imports System.Xml  'библиотека для работы с ХМЛ
Public Class Form1
    Public Class Form1
        Dim fileName = "test.xml"   'файл с вопросами и ответами
        Dim rb1 As Object
        Dim rb2 As Object
        Dim rb3 As Object
        Dim rb4 As Object
        Dim rang = 0                     'количество верных ответов
        Dim otvetPrav As String    'правильный ответ
        Dim rezylt As String          'ваш ответ и правильный ответ
        Dim a = 1                          'номер вопроса
        Dim maxId_                      ' общее колво вопросов
        Private cmdOk As Object
        Private rtbOtvet As Object
 
 
 
        ' (1) Получение общего колва вопросов
        Sub maxIDxml()
 
            Dim xdoc As XDocument = XDocument.Load(fileName)
            Me.Text = xdoc.Element("Table").Elements("vprs").Count
 
        End Sub
 
        Private Function Text() As Integer
            Throw New NotImplementedException()
        End Function
 
        ' (2) показывает текст по номеру ID - вопрос и ответы
        Sub element1(nnn As Integer)
            maxIDxml()
            maxId_ = Val(Me.Text)
 
            Dim xdoc As XDocument = XDocument.Load(fileName)
            rtbOtvet.Text = ""
            For Each xe As XElement In xdoc.Element("Table").Elements("vprs")
 
                If xe.Element("id").Value = nnn Then
                    rtbOtvet.Text += xe.Elements("text").Value
 
                    Dim o1 = xe.Elements("otvet1").Value
                    Dim o2 = xe.Elements("otvet2").Value
                    Dim o3 = xe.Elements("otvet3").Value
                    Dim o4 = xe.Elements("otvet4").Value
 
                    Dim mass() = {o1, o2, o3, o4}
 
                    'перемешивание
                    Dim x, y, el1, el2
                    Randomize()
                    For i = 1 To 10000
                        x = Int(Rnd() * 4)       'Определили случайный элемент массива с номером х
                        y = Int(Rnd() * 4)       'Определили случайный элемент массива с номером y
                        el1 = mass(x)           'Запомнили значение случайного х-элемента массива
                        el2 = mass(y)           'Запомнили значение случайного y-элемента массива
                        mass(y) = el1           'Присвоили случайному x элементу значение y элемента
                        mass(x) = el2           'Присвоили случайному y элементу значение x элемента
                    Next
                    'end перемешивание()
 
                    rb1.Text = mass(0)
                    rb2.Text = mass(1)
                    rb3.Text = mass(2)
                    rb4.Text = mass(3)
 
                    otvetPrav = xe.Elements("otvet").Value
                End If
            Next
        End Sub
 
 
 
        'результаты теста
        Sub STOPS()
            maxId_ = Val(Me.Text)
            otvetPrav = ""
            MsgBox("Ваш результат " + Str(rang) + " из " + Str(maxId_) + vbCrLf + vbCrLf + rezylt)
            cmdOk.Enabled = False
        End Sub
 
 
        'запись ответов
        Sub RadBut(rb As RadioButton)
            If rb.Checked = True Then          'если выбранный РБ истина
                If rb.Text = otvetPrav Then      'если текст в этом РБ является прав ответом
                    rang += 1                             '+1 прав ответ
                End If
                'в перемен рез записываем выбран отв и прав отв
                rezylt += rb.Text + " - " + otvetPrav + vbCrLf
            End If
        End Sub
 
        'обнуление всех переменных для нового теста
        Sub newTEST()
            a = 1
            rang = 0
            cmdOk.Text = "Дальше"
            cmdOk.Enabled = True
            rezylt = ""
            element1(a)
        End Sub
 
        'при запуске - новый тест
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            newTEST()
        End Sub
 
        'кнопка ОК
        Private Sub CmdOk_Click(sender As Object, e As EventArgs)
            maxId_ = Val(Me.Text)
 
            'делаем проверку для каждого РБ,
            'тк выбран может быть только 1, но хз какой
            RadBut(rb1)
            RadBut(rb2)
            RadBut(rb3)
            RadBut(rb4)
 
            'если НЕ последний вопрос тогда
            If a < maxId_ Then
                a += 1                      'след вопрос
                element1(a)             'показываем его
                'статистика вопросов
                cmdOk.Text = Str(a) + " из " + Str(maxId_)
                'выбирается 1 РБ (для нового вопроса)
                rb1.Checked = True
            Else
                'иначе - проверка ответов
                STOPS()
            End If
 
            AddHandler cmdOk.Click, AddressOf CmdOk_Click
        End Sub
    End Class
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
    End Sub
End Class

Во вложении сам проект...

@andrsh · 26.01.2020, 14:35

MrManchkin,

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

Ваще вот сам проект

Вот только форма сама в нем отсутствует. Если выкладываешь проект то полностью.

@OwenGlendower · 26.01.2020, 15:59

MrManchkin, 1) в коде объявляется класс Form1 вложенный в другой класс с таким же именем. Это ошибка - удали строки №3 и 136.

2) Удали объявление метода Text 27..29.

@MrManchkin · 27.01.2020, 10:54 **[ТС]**

Осталось лишь одна ошибка....

VB.NET
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
Private Sub CmdOk_Click(sender As Object, e As EventArgs)
            maxId_ = Val(Me.Text)
 
            'делаем проверку для каждого РБ,
            'тк выбран может быть только 1, но хз какой
            RadBut(rb1)
            RadBut(rb2)
            RadBut(rb3)
            RadBut(rb4)
 
            'если НЕ последний вопрос тогда
            If a < maxId_ Then
                a += 1                      'след вопрос
                element1(a)             'показываем его
                'статистика вопросов
                cmdOk.Text = Str(a) + " из " + Str(maxId_)
                'выбирается 1 РБ (для нового вопроса)
                rb1.Checked = True
            Else
                'иначе - проверка ответов
                STOPS()
            End If
 
            AddHandler cmdOk.Click, AddressOf CmdOk_Click  ' <-----
        End Sub

@Yury Komar · 27.01.2020, 12:04

что такое cmdOk? Чтобы было событие клика на нем, это должен быть визуальный элемент управления, например, кнопка

@MrCrown · 27.01.2020, 13:40

MrManchkin, у вас добавление обработчика события Click кнопки cmdOk стоит в самой процедуре обработчика. Перенесите 24 строчку в другое место, например в Form1_Load. Или удалите её, а в 1 строке допишите

VB.NET
1
Private Sub CmdOk_Click(sender As Object, e As EventArgs) Handles cmdOk.Click

@MrManchkin · 27.01.2020, 16:15 **[ТС]**

А как мне добавить рандом так, чтобы вопросы шли не по порядку, а в рандомном порядке?

@Yury Komar · 27.01.2020, 16:17

MrManchkin, это уже другая тема, и для этого стоит создать отдельную тему, а не создавать кашу в этой.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@OwenGlendower Администратор 18291 / 14214 / 5368 Регистрация: 17.03.2014 Сообщений: 28,892 Записей в блоге: 1
	26.01.2020, 15:59
	Сообщение было отмечено MrManchkin как решение Решение MrManchkin, 1) в коде объявляется класс Form1 вложенный в другой класс с таким же именем. Это ошибка - удали строки №3 и 136. 2) Удали объявление метода Text 27..29. 1

@Yury Komar Модератор 4358 / 3428 / 512 Регистрация: 27.01.2014 Сообщений: 6,258
	27.01.2020, 12:04
	что такое cmdOk? Чтобы было событие клика на нем, это должен быть визуальный элемент управления, например, кнопка 1

@MrManchkin 0 / 0 / 0 Регистрация: 26.01.2020 Сообщений: 16
	27.01.2020, 16:15 [ТС]
	А как мне добавить рандом так, чтобы вопросы шли не по порядку, а в рандомном порядке? 0

@Yury Komar Модератор 4358 / 3428 / 512 Регистрация: 27.01.2014 Сообщений: 6,258
	27.01.2020, 16:17
	MrManchkin, это уже другая тема, и для этого стоит создать отдельную тему, а не создавать кашу в этой. 0

Ошибки в VisualBasic

Решение