If «выражение» Then
If «выражение 1» Then
«действие»
Else
«действие 1»
End If
Else
If «выражение 2» Then
«действие 2»
Else
«действие 3»
End If
End If
Для составления простейших программ на языке Visual Basic используются следующие операторы:
Sub prog()
|
Оператор объявления программы |
Dim, b, S As Integer где, a, b, S Integer |
Оператор объявления типа переменных имена переменных тип переменной (Таблица 1) |
InputBox |
Оператор ввода исходных данных в диалоговой панели ввода (Окно Ввода). |
CInt |
Преобразование переменной в тип Integer |
CSng |
Преобразование переменной в тип Single |
If Then Else End If |
Оператор ветвления |
MsgBox |
Оператор вывода искомых данных на панели сообщений (Панель Сообщений). |
CStr |
Преобразование переменной в тип String |
End Sub |
Оператор завершения программы |
План работы
Ввести с клавиатуры число Х и определить положительное оно или отрицательное.
Ввести с клавиатуры число Х и определить положительное оно или отрицательное.
Составить программу расчета площади большего круга.
Составить программу расчета функции Y = X .
Составить программу расчета функции S (S=-1, если X<0; S=0, если X=0; S=1, если X>0).
Технология работы
Запустить одним из известных способов редактор Visual Basic for Application.
Записать в тетради постановку задачи и алгоритм ее решения в виде блок-схемы.
Приступить к записи программы только после того, как показал преподавателю алгоритм решения задачи.
Записать программу решения задачи в тетрадь.
Выполнить самостоятельную работу..
Вызов программы Visual Basic
Чтобы вызвать программу необходимо проделать следующие операции. Загрузить программу MS Excel, используя кнопку ПУСК или пиктограмму MS Excel на Рабочем столе.
Навести мышку на ярлык Лист1, щелкнуть правой кнопкой мыши и выбрать команду Исходный текст.
Алгоритм вызова программы Visual Basic:
MS Excel / ярлык Лист1 / правая кнопка мыши / выбрать команду Исходный текст.
Выполнение программы Visual Basic: RUN или F5
Пример решения задачи
Составить блок-схему алгоритма и программу на языке Visual Basic for Application
Задача № 1. Ввести с клавиатуры число х и определить положительное оно или отрицательное (ответ получить в строковых функциях).
Постановка задачи.
Дано: X.
Найти: положительное или отрицательное число.
Связь: если Х > 0, введенное число положительно,
в противном случае введенное число Х 0.
Программа на VB for Application:
Sub prog1()
Dim x As Integer
x = CInt(InputBox("Значение х =", "Ввод числа х"))
If x > 0 Then
MsgBox ("Введенное число положительное")
Else
MsgBox ("Введенное число =< 0")
End If
End Sub