Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 18.05.2012
Сообщений: 8
1

Добавить конструктор класса в приведенный код

29.05.2012, 23:00. Показов 1398. Ответов 1
Метки нет (Все метки)

Программа рабочая, попросили добавить в код "Конструктор класса". Помогите пожалуйста
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
Option Strict On
Option Explicit On
Module module1
    'объявление класса
    Public vv As New Class1
    'кол-во студентов
    Public n As Integer
    'массив данных по студентам
    Public a(,) As String
End Module
Public Class Class1
    'процедура ввода данных вручную
    Public Sub vvod_kl(ByRef a(,) As String)
        Dim i, j As Integer
        For i = 0 To n
            For j = 0 To 5
                a(i, j) = InputBox("введите данные по студенту номер " + CStr(i + 1) + " последовательно: фамилия/номер группы/1я оценка/2я оценка/3я оценка/4я оценка")
            Next
        Next
    End Sub
    'обработка
    Public Sub sort(ByVal a(,) As String)
        Dim i, a1, b, c, d As Integer
        For i = 0 To n
            a1 = CInt(a(i, 2))
            b = CInt(a(i, 3))
            c = CInt(a(i, 4))
            d = CInt(a(i, 5))
            'если хотя бы одна оценка равна тройке,строка данных о студенте затирается,в итоге выводятся только хорошисты
            If (a1<= 3) Or (b<= 3) Or (c<= 3) Or (d<= 3) Then
                a(i, 0) = "" : a(i, 1) = "" : a(i, 2) = "" : a(i, 3) = "" : a(i, 4) = "" : a(i, 5) = ""
            End If
        Next
    End Sub
    'вывод матрицы
    Sub printmatr1(ByRef a(,) As String, ByRef LB As ListBox)
        Dim i, j As Integer
        Dim p As String
        p = ""
        For i = 0 To n
            For j = 0 To 5
                If a(i, j) <> "" Then
                    p = p + CStr(a(i, j)) + Space(1)
                End If
            Next
            If p <> "" Then LB.Items.Add(p)
            p = ""
        Next
    End Sub
End Class
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        n = CInt(TextBox1.Text) - 1
        ReDim a(n, 5)
        vv.vvod_kl(a)
        vv.printmatr1(a, ListBox1)
    End Sub
End Class
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer, J As Integer
        Dim Flag As Boolean
        vv.sort(a)
        For I = 0 To UBound(a, 1)
            If a(I, 1) <> "" Then
                Flag = False
                For J = 0 To ListBox4.Items.Count - 1
                    If ListBox4.Items(J) = a(I, 1) Then
                        ListBox4.Items.Insert(J + 1, a(I, 0) & " " & a(I, 2) & " " & a(I, 3) & " " & a(I, 4) & " " & a(I, 5))
                        Flag = True
                        Exit For
                    End If
                Next
                If Not Flag Then
                    ListBox4.Items.Add(a(I, 1))
                    ListBox4.Items.Add(a(I, 0) & " " & a(I, 2) & " " & a(I, 3) & " " & a(I, 4) & " " & a(I, 5))
                End If
            End If
        Next I
    End Sub
End Class
Вложения
Тип файла: rar lab5.3.rar (69.6 Кб, 4 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2012, 23:00
Ответы с готовыми решениями:

Добавить инициализацию и удаление в приведенный код
Есть программа: #include &lt;iostream.h&gt; main() { cout &lt;&lt; &quot;Всем привет\n&quot;; } Как ее изменить,...

Строковый Массив - добавить функционал в приведенный код
Подкорректируйте код: var myArray:String; var test:Array = new Array() myArray =...

Конструктор класса по умолчанию: код компилируется, хотя по идее не должен
#include &lt;iostream&gt; class A {}; int main() { A i; A j(i); return 0;

Конструктор класса не видит конструктор по умолчанию другого класса
Ошибка, естественно, в Classes.cpp, в строке 20. Ругается, что у класса TailNode нет конструктора...

1
288 / 269 / 107
Регистрация: 10.06.2011
Сообщений: 696
30.05.2012, 16:12 2
Добавь в класс процедуру
VB.NET
1
2
3
4
sub new(параметры)
mybase.new()
'. . .
end sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 16:12

Конструктор класса, конструктор копирования запускается не тот который нужен
Есть такой конструктор: Neuron::Neuron(int iType_activation_funk) { this-&gt;iType_act =...

Конструктор класса и конструктор объекта - это одно и тоже?
Скажите, пожалуйста, кто знает, конструктор класса и конструктор объекта - это одно и тоже?

Конструктор производного класса требует конструктор предка
Выдаёт вот такую вот ошибку: no matching function for call to 'Cube::Cube()' class Cube {...

Добавить в код многоадресный делегат и методы класса
Пожалуйста, помогите добавить в код многоадресный делегат, методы класса (минимум два),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru