VBNet - Форум - Создать блок-схему для алгоритма

Вопрос: Создать блок-схему для алгоритма Добавлено: 05.05.07 20:03

Автор вопроса: agent

Private Sub Dannie()

Dim God As String
Dim brigada As String
Dim i As Integer

'Перебираем значения i от 1 до 7
For i = 1 To 7
'Считываем данные, которые ввел пользователь
BR: brigada = InputBox("Бригада " + Str(i))
'Проверяем нажатие Cancel, Нажали- выходим из
If StrPtr(brigada) = 0 Then Exit Sub
'Проверяем пустую строку
If (brigada = "") Then
'Выводим сообщение об ошибке
    MsgBox "Поля должны быть заполнены!", vbExclamation
'Повторное заполнкние
    GoTo BR
Else
'Заполняем названия бригад
    Cells(i + 6, 1) = brigada
End If
Next i

'Перебираем значения i от 1 до 3
For i = 1 To 3
'Считываем данные, которые ввел пользователь
God = InputBox("Год " + Str(i))
'Проверяем пустую строку
'Проверяем нажатие Cancel, Нажали- выходим из
If StrPtr(God) = 0 Then Exit Sub
If (God = "") Then
'Выводим сообщение об ошибке
    MsgBox "Поля должны быть заполнены!", vbExclamation
Else
'Заполняем таблицу "урожай" и "закупочные цены"
    Cells(6, i + 1) = God
    Cells(6, i + 4) = God
End If
Next i
End Sub
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: agent Вопросов: 5 Ответов: 11	Профиль \| \| #1	Добавлено: 05.05.07 20:04
	Пришлите мне её на ISQ 468653528. Буду очень благодарен Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #2	Добавлено: 05.05.07 22:29
	А где здесь алгоритм-то? Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 06.05.07 01:03
	Где здесь кто вообще? Ответить

Номер ответа: 4 Автор ответа: agent Вопросов: 5 Ответов: 11	Профиль \| \| #4	Добавлено: 06.05.07 09:54
	К этом програмному коду нужно составить блок схему Ответить

Номер ответа: 5 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #5	Добавлено: 06.05.07 19:09
	Ну так составь. Мы тут при чем? Ответить

Номер ответа: 6 Автор ответа: APolyakov Вопросов: 1 Ответов: 15	Web-сайт: edu.chukotka.ru Профиль \| \| #6	Добавлено: 07.05.07 09:06
	Если еще нужен алгоритм то качай с http://www.chukotka.edu.ru/file/alg.zip Ответить

Страница: 1 |