Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Visual Basic .NET

Войти
Регистрация
Восстановить пароль
 
...vamp
6 / 6 / 0
Регистрация: 11.01.2012
Сообщений: 240
#1

Составить блок-схему по коду - Visual Basic .NET

09.04.2012, 01:39. Просмотров 759. Ответов 0
Метки нет (Все метки)

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
Нужно составить блок схемы по каждой процедуре в один столбик.(Всмысле каждая блок-схема)
И блок схему алгоритма программы(Ну как она работает от процедуры к процедуре)
Помогите пожалуйста, можно просто от руки и сфоткать.
Сам уже не успеваю ничего..
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2012, 01:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить блок-схему по коду (Visual Basic .NET):

Составить блок схему к готовому коду - Visual Basic .NET
ребята помогите пожалуйста составить блок схему на эту программу Public Class Form1 Dim txt As String, maxLen As Byte, minLen...

Составить блок схему к готовому коду - Visual Basic .NET
Здравствуйте, помогите пожалуйста нарисовать блок схему Public Class Form1 Dim LList As New List(Of String) Dim LLength...

Оператор цикла Do - Составить блок-схему - Visual Basic .NET
Сделайте пожалуйста блок-схему: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...

Составить программу и блок-схему в Visual Basic 2010 - Visual Basic .NET
Здравствуйте,помогите пожалуйста составить программу на 2 задачи.Заранее спасибо!)

Составить процедуру, "рисующую" на экране горизонтальную линию и блок схему програмы - Visual Basic .NET
Составить процедуру, "рисующую" на экране горизонтальную линию из лю- бого числа символов "*"

Блок схема калькулятора по коду - Visual Basic .NET
Помогите пожалуйста сделать блок схему по коду Imports System.Numerics Public Class Calculator Dim r As Decimal Dim fi As Decimal...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2012, 01:39
Привет! Вот еще темы с ответами:

Есть ли какие-нибудь программы для построения блок схемы по коду? - Visual Basic .NET
Есть ли какие-нибудь программы для построения блок схемы по коду?

Есть ли в Visual Studio инструмент для составления блок схем по коду программы - Visual Basic .NET
Есть ли в Visual Studio инструмент для составления блок схем по коду программы? Добавлено через 2 часа 8 минут Спасибо за...

Создать блок-схему(цикл while) - Visual Basic .NET
Найти суму всех чисел, которые делятся на 7 на отрезке от 100 до 200 (блок-схема)

Создать программу и блок схему к уравнению - Visual Basic .NET
Здравствуйте,помогите пожалуйста создать программу и блок-схему в Microsoft Visual Basic 2010 к след. уравнению №10 Заранее спасибо!:)


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru