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
| Public Class Form1
'Функция ввода исходных данных из TextBox
Function vvod(ByVal T As TextBox) As String
Return T.Text
End Function
'Процедура вывода строки в TextBox
Sub vivod(ByVal Z As String, ByVal T As TextBox)
T.Text = Z
End Sub
'Процедура ввода элементов массива типа String из текстового файла
Sub FillListBox(ByVal FileName As String, ByVal List As ListBox)
FileOpen(1, FileName, OpenMode.Input)
Do While Not EOF(1)
ListBox1.Items.AddRange(LineInput(1).Split)
Loop
End Sub
'Процедура форматного вывода массива типа Single в ListBox
Sub vivodSngMac17(ByRef a() As String, ByVal n As Single, ByVal L As ListBox)
Dim i As Integer
Dim m As String = ""
For i = 0 To UBound(a)
m = a(i) + Space(4)
If m = "" Then m = "массив пуст"
L.Items.Add(m)
Next i
End Sub
'Процедура преобразования в массив и определения строки, содержащей максимальный элемент.
Sub preobr(ByRef a() As String, ByVal m As String)
Dim i, s, Maxs As Integer
Dim numSTR As String
Maxs = 0 'Приравниваем максимальное количество заданных элементов в массиве к нулю.
For i = 0 To UBound(a) 'Цикл от 0-го элемента к конечному элементу массива.
s = 0 'Приравниваем максимальное количество заданных элементов в строке к нулю.
For j = 1 To Len(a(i)) 'Цикл от первого символа строки к последнему.
If Mid(a(i), j, 1) = m Then 'Берем по 1-му символу и сравниваем каждый с заданным символом
s = s + 1 'Если символы совпадают, увеличиваем максимальное количество заданных символов в строке на 1.
End If
Next j
If s > Maxs Then 'Если количество заданных символов в данной строке больше чем в предыдущих-приравниваем максимальное значение к текущему.
Maxs = s
numSTR = i
End If
Next i
vivod(a(numSTR), TextBox3)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim n As String
Dim k As String
Dim a(), m As String
n = vvod(TextBox1)
FillListBox(n, ListBox1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
End Class |
|
Нужно составить блок схемы по каждой процедуре в один столбик.(Всмысле каждая блок-схема)
И блок схему алгоритма программы(Ну как она работает от процедуры к процедуре)
Помогите пожалуйста, можно просто от руки и сфоткать.
Сам уже не успеваю ничего..