Sub main 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

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

1
2
3

  Sub Main() 'начало объявления метода
 
    End Sub 'конец объявления метода

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

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