Показывает ошибку "Не удалось найти "Sub Main" в "ConsoleApp99.Module1"

@Аня_Самойлова · Регистрация: 24.08.2018

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

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
Imports System.IO
Module Program
    'Базовый абстрактный класс
    MustInherit Class КлассТовар
        'Поля для описания персоны
        Public Наименование As String
        Public Страна As String
        Public Количество_единиц_товара As String
        Public Дата_доставки As Date
        'Переопределяемый метод для ввода полей
        Public Overridable Sub Ввести()
            Console.WriteLine("Сведения о товаре")
            Console.Write(ControlChars.Tab & "Наименование: ")
            Наименование = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Страна: ")
            Страна = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Количество_единиц_товара: ")
            Количество_единиц_товара = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Дата_доставки: ")
            Дата_доставки = Console.ReadLine()
        End Sub
    End Class
    Class КлассМолочные
        Inherits КлассТовар 'Унаследован от класс персона
        Public Срок_годности As Integer 'Частное свойство
 
        Overrides Sub Ввести()
            MyBase.Ввести()
            Console.WriteLine("Срок: {0}", Срок_годности)
        End Sub
    End Class
    Class КлассКондитерские
        Inherits КлассТовар 'унаследовани от класс персона
        Public Вес As Integer 'Частное свойство
 
        Overrides Sub Ввести()
            MyBase.Ввести()
            Console.WriteLine("Вес: {0}", Вес)
        End Sub
    End Class
 
    Class КлассСклад
        Public Товар() As КлассТовар
        Public МолТовары() As КлассМолочные
        Public КонТовары() As КлассКондитерские
        Public Sub Ввести()
            Dim i, n As Integer
            Console.WriteLine("Склад")
            Console.Write("Количество молочных товаров(видов): ")
            n = Console.ReadLine()
            МолТовары = New КлассМолочные(n - 1) {}
            For i = 0 To UBound(МолТовары)
 
 
                'Создание для экземпляра для первого товара
                МолТовары(i) = New КлассМолочные
                МолТовары(i).Ввести()
            Next
 
            Console.Write("Количество кондитерских  товаров(видов): ")
            n = Console.ReadLine()
            КонТовары = New КлассКондитерские(n - 1) {}
            For i = 0 To UBound(КонТовары)
 
 
                'Создание для экземпляра для первого товара
                КонТовары(i) = New КлассКондитерские
                КонТовары(i).Ввести()
            Next
        End Sub
    End Class
    Sub Main()
        Dim Товар As КлассТовар
        Товар.Ввести()
        'Вывести наименование продуктов которые привезли в опр дату
        Console.WriteLine("Введите дату: ")
        Dim Дата As Date = Console.ReadLine()
        Console.WriteLine("Наименование продуктов привезенных в этот срок: ")
        'For Each Товар As КлассТовар In Товар
        If Товар.Дата_доставки = Дата Then
                Console.WriteLine(Товар.Наименование)
            End If
 
        Console.ReadKey()
    End Sub
End Module

@XIST · 01.10.2018, 19:31

Аня_Самойлова, так его и нету

VB.NET
1
2
3
  Sub Main() 'начало объявления метода
 
    End Sub 'конец объявления метода

@Аня_Самойлова · 01.10.2018, 19:42 **[ТС]**

На строчке 72 же объявляется

@XIST · 01.10.2018, 19:46

Аня_Самойлова, именно в базовом классе его нет

@ovva · 01.10.2018, 19:49

Вынесите определение класса за границы модуля.

VB.NET
1
2
3
4
5
6
7
8
9
10
Module Module1
    Sub Main()
        Dim Товар As New КлассТовар
'…
        Console.ReadKey()
    End Sub
End Module
Public Class КлассТовар
'…
End Class

Если вы хотите непосредственно использовать класс КлассТовар то он не может быть MustInherit (к тому же определенные наследники нигде далее не используются).

@Аня_Самойлова · 01.10.2018, 19:56 **[ТС]**

ту же ошибку показывает(

@ovva · 01.10.2018, 20:07

Выложите ваш проект целиком.

@ovva · 01.10.2018, 20:24

Пример

@Аня_Самойлова · 01.10.2018, 20:48 **[ТС]**

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
Imports System.IO
Module Module1
 
    'Базовый абстрактный класс
 
    Sub Main()
        Dim Товар As КлассТовар
        Товар.Ввести()
        'Вывести наименование продуктов которые привезли в опр дату
        Console.WriteLine("Введите дату: ")
        Dim Дата As Date = Console.ReadLine()
        Console.WriteLine("Наименование продуктов привезенных в этот срок: ")
        'For Each Товар As КлассТовар In Товар
        If Товар.Дата_доставки = Дата Then
            Console.WriteLine(Товар.Наименование)
        End If
 
        Console.ReadKey()
    End Sub
End Module
MustInherit Class КлассТовар
        'Поля для описания персоны
        Public Наименование As String
        Public Страна As String
        Public Количество_единиц_товара As String
        Public Дата_доставки As Date
        'Переопределяемый метод для ввода полей
        Public Overridable Sub Ввести()
            Console.WriteLine("Сведения о товаре")
            Console.Write(ControlChars.Tab & "Наименование: ")
            Наименование = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Страна: ")
            Страна = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Количество_единиц_товара: ")
            Количество_единиц_товара = Console.ReadLine()
            Console.Write(ControlChars.Tab & "Дата_доставки: ")
            Дата_доставки = Console.ReadLine()
        End Sub
    End Class
 
    Class КлассМолочные
        Inherits КлассТовар 'Унаследован от класс персона
        Public Срок_годности As Integer 'Частное свойство
 
        Overrides Sub Ввести()
            MyBase.Ввести()
            Console.WriteLine("Срок: {0}", Срок_годности)
        End Sub
    End Class
    Class КлассКондитерские
        Inherits КлассТовар 'унаследовани от класс персона
        Public Вес As Integer 'Частное свойство
 
        Overrides Sub Ввести()
            MyBase.Ввести()
            Console.WriteLine("Вес: {0}", Вес)
        End Sub
    End Class
 
    Class КлассСклад
        Public Товар() As КлассТовар
        Public МолТовары() As КлассМолочные
        Public КонТовары() As КлассКондитерские
        Public Sub Ввести()
            Dim i, n As Integer
            Console.WriteLine("Склад")
            Console.Write("Количество молочных товаров(видов): ")
            n = Console.ReadLine()
            МолТовары = New КлассМолочные(n - 1) {}
            For i = 0 To UBound(МолТовары)
 
 
                'Создание для экземпляра для первого товара
                МолТовары(i) = New КлассМолочные
                МолТовары(i).Ввести()
            Next
 
            Console.Write("Количество кондитерских  товаров(видов): ")
            n = Console.ReadLine()
            КонТовары = New КлассКондитерские(n - 1) {}
            For i = 0 To UBound(КонТовары)
 
 
                'Создание для экземпляра для первого товара
                КонТовары(i) = New КлассКондитерские
                КонТовары(i).Ввести()
            Next
        End Sub
    End Class

Добавлено через 20 минут
Файл не открывается к сожалению

@ovva · 01.10.2018, 20:58

Сообщение от Аня_Самойлова

Файл не открывается к сожалению

Не открывается приложенный файл? Этот файл zip-архив, можно открыть любым архиватором. Внутри vb проект ConsoleApplication1 (загружается через файл ConsoleApplication1.sln).
PS. Я предполагал, что и вы свой проект выложите подобным образом.

@Аня_Самойлова · 01.10.2018, 21:17 **[ТС]**

эту проблему я решила)) файл что вы отправили действительно работает. Я постараюсь отправить свой zip

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Аня_Самойлова 0 / 0 / 0 Регистрация: 24.08.2018 Сообщений: 60
	01.10.2018, 19:42 [ТС]
	На строчке 72 же объявляется 0

@XIST 1960 / 1070 / 148 Регистрация: 01.10.2009 Сообщений: 3,590 Записей в блоге: 1
	01.10.2018, 19:46
	Аня_Самойлова, именно в базовом классе его нет 0

@Аня_Самойлова 0 / 0 / 0 Регистрация: 24.08.2018 Сообщений: 60
	01.10.2018, 19:56 [ТС]
	ту же ошибку показывает( 0

@ovva 4708 / 3661 / 857 Регистрация: 02.02.2013 Сообщений: 3,518 Записей в блоге: 2
	01.10.2018, 20:07
	Выложите ваш проект целиком. 0

@Аня_Самойлова 0 / 0 / 0 Регистрация: 24.08.2018 Сообщений: 60
	01.10.2018, 21:17 [ТС]
	эту проблему я решила)) файл что вы отправили действительно работает. Я постараюсь отправить свой zip 0