- •Алгоритм, способы записи алгоритма.
- •Процесс разработки программы и его этапы:
- •Правила записи кода программы.
- •Проект vb и его стр-ра.
- •Управление проектом vb.
- •Графический интерфейс пользователя и его элементы.
- •Данные в vb, виды и типы данных.
- •Объявление констант в vb.
- •Объявление переменных в vb.
- •Объявление констант и переменных, область видимости. Область действий.
- •Область действия уровня блока
- •Алгоритмические стр-ры выбора. Инструкция If…End If.
- •Алгоритмические стр-ры выбора. Инструкция Select…Case.
- •Циклические алгоритмические стр-ры. Инструкция For.
- •Циклические алгоритмические стр-ры. Инструкция While…Wend.
- •Циклические алгоритмические стр-ры. Инструкция Do…Loop.
- •Организация вычислений. Выражения.
- •Принципы ооп.
- •Объекты. Методы. События.
- •Организация ввода данных.
- •1 Из модального диалогового окна по запросу приложения сразу после его запуска. При этом не имеет значения, какие объекты расположены на форме, она может быть даже пустой.
- •Организация вывода данных.
- •23.Процедуры в vb.
- •Стандартные элементы управления и их св-ва.
Алгоритмические стр-ры выбора. Инструкция Select…Case.
В отличии от управляющей структуры If Then управляющая структура Select Case оценивает только одно логическое выражение. Затем выполняет тот блок операторов который ассоциируется с конкретным значением вычисленного логического выражения.
Синтаксис (формат) оператора-
Select Case логическое выражение
Case Значение1
Блок операторов 1
Сase Значение2
Блок операторов2
Блок операторов N
End Select
14.1
Пример:
Private Sub – Prim 2 ()
Dim Password As String
Dim Elem As Obgect
Password = Lcase (InputBox (“Введите цвет шрифта”))
Select Case Password
Case “Red”
Elem. Font. Color = Red
Case “Black”
Elem. Font. Color = Black
Elem. Font. Color = Green
End Select
End Sub
В данном примере реализована технология изменения цвета шрифта элемента Elemв зависимости от введенного в окне ввода названия цвета.
Циклические алгоритмические стр-ры. Инструкция For.
Циклы со счетчиком
For Счетчик Цикла = Нач. Знач. ТО Кон. Знач. [Stop Шаг]
Блок операторов
[Exit For]
Next [Счетчик цикла]
15.1
Данная конструкция работает следующим образом:
Счетчику цикла присваивается некое начальное значение.
Оно представляет собой целое число.
Затем выполняется проверка текущего значения
счетчика если оно больше или равно конечному значению происходит переход к оператору следующему за оператором For записанному после ключевого слова Next. Таким образом если начальное значение больше конечного значения операторы цикла не будут выполнятся ни разу. Если текущее значение счетчика меньше конечного значения - выполняется блок операторов, затем в соответствии с инструкцией Next, текущее значение счетчика увеличивается на величину шага. Либо если величина шага не задана на еденицу. Управление передается инструкцией For которая опять проверяет равенство текущего значения счетчика конечному и т.д.
Пример: расчет факториала
Sub Prim 3()
Dim NumberString As String
Dim Num As Integer
Dim Factorial As Double
Dim Count As Integer
Number String = Input Box (“Введите число”)
If Is Meric (NumberString)
Num= Val (Number String)
If Num>= 0 Then
Factorial =1
For Count1 = 1 TO Num
Factorial= Factorial* Count
Next
MsgBox “Факториал ичсла ”& ”Равен ”& Factorial
Else
MsgBox “Факториал отрицательного числа не существует ”
End
Else
MsgBox “Введено нчисловое значение ”
End LF
End Sub
Циклические алгоритмические стр-ры. Инструкция While…Wend.
16/1
16.2
Для реализации первого алгоритма используется управляющая структура While Wend.
While_ условие
Блок оператора
Wend
Пример:
FACT=1
N= InPutBox (‘Ввведите число’)
While_ i= n+1
FACT=FACT *I
I=I+1
Wend
MsgBox “Значение факториала”=& FACT
Циклические алгоритмические стр-ры. Инструкция Do…Loop.
Управляющая конструкция DO-Loop
В отличии от структуры While Wend… DO-Loop может задавать условие проверки в конце или постусловиях. Синтаксис оператора следующий:
Do While условие
Блок оператора
Loop ------------------------------------ либо
Do
Блок операторов
Loop While условие
Или
Do Until условие
Блок оператора
Loop------------------------------------ либо
Do
Блок операторов
Loop Until условие