- •Введение в «Программирование в среде Visual Basic»
- •Теоретическая часть
- •Последовательность выполнения работы
- •Лабораторная работа № 1
- •Основные положения
- •InputBox(сообщение[, заголовок окна])
- •Задание к лабораторной работе
- •Лабораторная работа №2
- •Основные положения
- •If условие Then операторы [Else операторы ]
- •If условие1 Then
- •Элементы формы.
- •Задание к лабораторной работе
- •Лабораторная работа № 3
- •Теоретические сведения
- •Задание к лабораторной работе
- •Лабораторная работа № 4
- •Теоретические сведения
Задание к лабораторной работе
Создать программу вычисления арифметического выражения согласно варианта в виде формы.
Примеры программы см. в лабораторной работе №1.
В программе необходимо: объявить типы данных (согласно варианту), для ввода и вывода переменных использовать функции InputBox, MsgBox, конструкцию Debug.Print.
Лабораторная работа №2
Тема"Программа разветвляющейся структуры".
Цель: приобретение навыков создания программ разветвляющейся структуры, операторов и функций для ее реализации.
Изучить:
Операторы:
If…,
If…End If,
Select Case…End Select.
Элементы управления: Переключатель (OptionButton); Рисунок (Image).
Метод: SetFocus.
Процедуры-события: сброс данных; работа переключателя.
(Новые свойства приведены ниже в таблице, выделены жирным шрифтом).
Основные положения
Для управления процессом выполнения программы существует множество разного рода управляющих структур, с помощью которых можно организовать ветвление по условию, выбор из нескольких вариантов и т.д.
Условные операторы линейные и блочные - обеспечивает выполнение одного или нескольких операторов, в зависимости от истинности или ложности заданного условия.
Линейный или простой
If условие Then операторы [Else операторы ]
Условный блочный
If условие1 Then
блок операторов1
[ElseIf условие2 Then
блок операторов2
. . . ]
[Else
блок операторовn]
End If
где условие - одно или несколько выражений, принимающее значения True (Истина) или False (Ложь), в условие используют операции сравнения (< > =) и логические операции (And, Or);
операторы - один или несколько операторов, разделяемых двоеточиями, выполняются, если условие имеет значение True.
Оператор выбора Select Case - выполняет одну из нескольких групп операторов в зависимости от значения выражения выбора
Select Case выражение выбора
Case список проверок1
блок операторов1
[Case список проверок2
блок операторов2
. . . ]
[Case Else
блок операторов]
End Select
где выражение выбора - любое числовое или строковое выражение;
список проверок - cписок с разделителями, состоящий из одной или нескольких форм следующего вида:
выражение1, выражение2, …
выражение1 To выражение2,
Is операторСравнения выражение,
ключевое слово To задает диапазон значений. Ключевое слово Is с операторами сравнения задает диапазон значений. В каждом предложении Case допускается использование нескольких выражений или диапазонов;
блок операторов - один или несколько операторов.
Вывод результатов вычисления по формату, т.е. отформатированные согласно инструкциям, заданным в описании формата функция
Format(выражение, формат)
где выражение – переменная, выражение;
формат - символы, определяющие формат.
Форматы:
0 Выводит цифру или нуль.
# Выводит цифру или не выводит ничего.
. Десятичный разделитель указывает, сколько цифр следует вывести в целой и дробной части форматируемого числа, т.е. слева и справа от десятичного разделителя В качестве десятичного разделителя используется запятая.
E- E+ e- e+ Экспоненциальный формат. Если строка формата содержит хотя бы один прототип цифры (0 или #) справа от символов "E-", "E+", "e-" или "e+", то число выводится в экспоненциальном формате, а между числом и показателем степени помещаются символы "E" или "e". Число цифр в показателе степени определяется числом символов вывода цифры справа от символа экспоненциального формата.
- + $ ( ) Вывод указанного символа.
Пример: Заданы коэффициенты а и в, вычислить функцию y, если
Public Sub lab2() Dim x As Single Dim y As Single Const a As Integer = 3, b As Integer = 2 x = Val(InputBox("x=")) If x < -1 Then y = abs(x) MsgBox "|x|=" & y ElseIf -1 <= x And x <= 1 Then y = a * x MsgBox "a*x=" & y Else y = x ^ b MsgBox "x^b=" & y End If MsgBox “x=” & Format(x,”##.##”) & _ "y=" & Format(y,”0.0000”) & y End Sub |
Public Sub lab2() Dim x As Single: Dim y As Single Const a As Integer = 3, b As Integer = 2 x = Val(InputBox("x=")) Select Case x Case Is < -1 y = Abs(x) MsgBox "|x|=" & y Case -1 To 1 y = a * x MsgBox "a*x=" & y Case Else y = x ^ b MsgBox "x^b=" & y End Select Debug.Print "x=" & Format(x, " 0.0") Debug.Print "y=", Format(y, "##.###") End Sub |