Лабораторные_VB

Для проверки нескольких условий можно использовать логические

операторы: AND, OR, XOR, NOT, а также их комбинации.

Пример:

Sub primer()

Dim x As Variant ' Объявление переменной для любых значений x = InputBox("Введите положительное число")

' Отображение окна для ввода значения в переменную x

If (IsNumeric(x) And x >= 0) Then ' Условие на значение переменной

MsgBox "Спасибо, Вы ввели положительное число!"

'Окно-сообщение, отображаемое при выполнении условия

Else

MsgBox "Вы не ввели то, что требовалось."

'Окно-сообщение, отображаемое при невыполнении условия

End If End Sub

111

End If

Пример:

Sub primer()

Dim p As Double

'Объявление переменной для хранения вещественных чисел p=InputBox("Введите число")

'Отображение окна для ввода значения в переменную p

If p<3 then ' Проверка первого условия на значение p Msgbox "p<3" ' Действие при выполнении первого условия ElseIf p>6 then ' Проверка второго условия на значение p

' (при невыполнении первого)

Msgbox "p>6" ' Действие при выполнении второго условия

Else

' Действия при невыполнении ни первого ни второго условий

MsgBox "3<=p<=6" End If

End Sub

113

Case 0 То 3 ' Условие, если переменная от 0 до 3, включительно

Msg = "I <= А <= 3"

Case 4, 5, 6, 7, 8, 9, 10 ' Условие, если A от 4 до 10, включительно

Msg = "4 <= А <= 10"

Case Is<=11 ' А от 10 (невключительно) до 11 (включительно) Msg = "10 < А <= 11"

Case Else ' Все оставшиеся значения А (Число больше 11) Msg = "А > 11"

End Select

MsgBox Msg ' Вывод сообщения со значением переменной Msg End Sub

После альтернативы Case Else находятся операторы, которые выполняются в том случае, если число не попало ни в один из проверяемых диапазонов.

Пример 1

Составить алгоритм и нарисовать блок-схему для вычисления функции

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

Решение примера 1

На область определения y = f(x) накладываются следующие ограничения:

1. x 02. x 1

3. (2 x 0 и ln x 0) или (2 x 0 и ln x 0)

Условие 1 обусловлено аргументом логарифма, условие 2 определяется отсутствием 0 в знаменателе дроби, условие 3 определяет неотрицательность

115

подкоренного выражения. Изобразим ограничения области определения

x

0

1.

Суммируя все ограничения, получим область определения y = f(x): x = (1,2].

Конец

116

Алгоритм может быть реализован на VB следующим образом:

Sub primer1()

Dim x As Double ' Объявление переменной для аргумента Dim y As Double ' Объявление переменной для функции x = 1.1 ' Ввод значения аргумента функции

If (x > 1 And x <= 2) Then

'Оператор проверки значения аргумента на вхождение

'в область определения

y = Sqr((2 - x) / Log(x)) ' Вычисление функции

MsgBox "В x = " & x & " y = " & y

'Отображение аргумента и вычисленной для него функции

Else

MsgBox "В x = " & x & Chr(10) & Chr(13) & "функции нет"

'Отображение сообщения о невозможности рассчитать функцию,

'т.к. аргумент не входит в область определения

End If ' Завершение оператора проверки

End Sub

Результаты работы программы:

Для

x = 1 ' Ввод значения аргумента функции

117

Пример 2

Представить аналитическими выражениями функцию y = f(x), заданную графически.

y

1

1 x

Изобразить блок-схему и написать программу для расчета y = f(x) при различных значениях x.

Решение примера 2

Функция y = f(x) – непрерывная и рассчитывается для трех интервалов значений аргумента: 1. x = (-∞, 0), 2. x = [0,1], 3. x = (1, +∞):

интервал 1 описывается уравнением y x 1,

Алгоритм (блок-схема) расчета функции y=f(x) представлен на рисунке.

118

Начало

y

Конец

Алгоритм может быть реализован на VB следующим образом:

Sub primer2()

Dim x As Double ' Объявление переменной для аргумента Dim y As Double ' Объявление аргумента для функции

x = 0.5 ' Ввод значения аргумента функции

Select Case x ' Оператор проверки значения аргумента Case Is < 0 ' Условие принадлежности к первому интервалу y = x + 1 ' Вычисление функции на первом интервале

Case Is <= 1 ' Условие принадлежности ко второму интервалу y = Sqr(1 - x * x) ' Вычисление функции на втором интервале Case Else ' Принадлежность аргумента третьему интервалу

y = 0 ' Вычисление функции на третьем интервале

End Select

MsgBox "В x = " & x & " y = " & y

' Отображение аргумента и вычисленной для него функции

End Sub

119

Результаты работы программы:

Для

x = -1.5 ' Ввод значения аргумента функции

Задание

Таблица 10

Варианты заданий к лабораторной работе № 3

№А. Составить алгоритм и Б. Представить аналитическими

120