Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум .NET > Форум Visual Basic .NET
Восстановить пароль Регистрация

Ответ Создать новую тему
 
09.04.2012, 01:39   #1
...vamp
Форумчанин
Регистрация: 11.01.2012
Сообщений: 240
Репутация: 6 (6)
Составить блок-схему по коду / Visual Basic .NET

Код Visual Basic .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
Нужно составить блок схемы по каждой процедуре в один столбик.(Всмысле каждая блок-схема)
И блок схему алгоритма программы(Ну как она работает от процедуры к процедуре)
Помогите пожалуйста, можно просто от руки и сфоткать.
Сам уже не успеваю ничего..
09.04.2012, 01:39
AdAgent
Объявления
Другие темы раздела
Visual Basic .NET Выключить компьютер, который находится в сети
Как программно выключить компьютер который находиться в сети? Зная его мак адрес.
Visual Basic .NET Как создать собственное событие (event)
Не могу сам разобраться как создать собственное событие. Пока сделал так: создал классFriend Class Evt Public Event Hallo(ByRef SqlQuery As String) End ClassByRef SqlQuery As String - это у меня скорее всего неправильно. Есть форма F2, в ней я объявил экземпляр класса EvtPublic LkAnswer As...
09.04.2012, 01:39
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal: Составить блок-схему к коду.
Ребят помогите с блок схемой очень надо) Текст задачи:Даны 2 квадратные матрицы A и B.Найти сумму максимума и минимума в каждой матрице.В той матрице,где сумма больше обнулить главную диагональ и побочную диагональ.Ввести с клавиатуры строку текста и удалить все буквосочетания "ПРИ".Ошибки в тексте...
Turbo Pascal keban13 05.02.2013 22:43
Turbo Pascal: Составить блок-схему к коду.
program noname; uses Crt; const n=20; var a:array of Integer; i,sum:Integer; begin sum:=0; ClrScr; Writeln('Массив:'); Randomize;
Turbo Pascal максон8 16.01.2013 09:01
PascalABC.NET: Составить блок-схему к коду
program pr3; var B:array of string ; s:string; i,k:integer; begin writeln('введитеслова'); for i:=1 to 3 do readln (B); for i:=1 to 3 do
PascalABC.NET SovAr 14.01.2013 03:11
Turbo Pascal: Составить блок-схему к коду.
СРОЧНО ДО 10 ПО МСК HELP!!! не рублю вообще. Задание вот: Для заданных двух выражений с переменными y и z, зависящих от двух параметров x и a, по приведенным формулам вычислить эти величины, а так же вынести на печать большее из них. Y= (x^2 + a)^0.5 Z= arcsin(x^2 - a) Прога вот: program...
Turbo Pascal hannah_eq 09.01.2013 01:13
Turbo Pascal: Составить блок-схему к коду
Необходимо составить блок-схему к задаче: дана матрица {Aij}, i=j найти сумму элементов главной и побочной диагонали... Program PR; var A:array of real; Sum1: real; I,J: integer; Begin Writeln ('vvesti matr'); for J := 1 to 9 do
Turbo Pascal николай.. 19.10.2012 21:35
Опции темы

Текущее время: 21:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.