«Программирование в среде Visual Basic»

Вид материалаЛабораторная работа
Задание к лабораторной работе
Основные положения
Условный блочный
True. Оператор выбора Select Case
Format(выражение, формат)
Public Sub lab2()
Подобный материал:
1   2   3   4   5   6   7   8

Задание к лабораторной работе


Создать программу вычисления арифметического выражения согласно варианта в виде формы.

Примеры программы см. в лабораторной работе №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 "xb=" & 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 "xb=" & y

End Select

Debug.Print "x=" & Format(x, " 0.0")

Debug.Print "y=", Format(y, "##.###")

End Sub