Редактора Visual Basic Для записи текста программы необходимо создать модуль: Меню "Вставка" Модуль Модуль создается только один раз и в нем записываются все операторы Visual Basic. Любая программа

Вид материалаПрограмма

Содержание


Public Sub
THEN .В противном случае выполняется оператор или группа операторов ветви ELSE
IF. Однострочная форма допускает выполнение нескольких операторов в результате проверки одного условия If
В блоковой форме, инструкция IF
Подобный материал:
1   2   3   4   5   6   7   8

4. Методика выполнения задания



Заранее (до выполнения лабораторной работы)

Изучить:
  1. запись констант, переменных, стандартных функций;
  2. правила записи арифметических выражений;
  3. арифметический оператор присваивания;
  4. организацию ввода-вывода данных.
  5. Разработать алгоритм решения в соответствии с заданием.
  6. Составить программу решения задач.
  7. Подготовить тестовый вариант исходных данных и вычислить для них с помощью калькулятора значения вычисляемых в программе величин.



5. Пример выполнения задания



Заданы формулы:

Требуется вычислить b и z при x=1,542 и y=-3,26

5.1. Алгоритм вычисления b и z:





Начало


1


x,y (InputBox)


2


печать х,у (Msgbox)


3


z=(x2+y2)/(18.3|sin(y)|


4


c=


5


b=ln(c+x|y|+z)


6


Печать b (Msgbox)


Конец


Блок 1 - ввод исходных данных,

блок 2 - печать введенных значений,

блок 3 - вычисление Z,

блок 4 - вычисляется промежуточное значение,

блок 5 - вычисляется b,

блок 6 - вывод на печать результата.

5.2. Программа, реализующая приведенный алгоритм:


^ Public Sub LR01() ' Заголовок программы (главной процедуры)

X = Val(InputBox("введите x")) ' Ввод через окно величины х

Y = Val(InputBox("введите y")) ' Ввод через окно величины y

MsgBox ("x=" & Str(X) & Chr(13) & "y=" & Str(Y))

'вывод введенных исходных данных

z = (X ^ 2 + Y ^ 2) / (18.3 * Abs(Sin(Y)))

C = Sqr(Exp(X - Y) + X) 'вычисление промежуточного значения

b = Log(C + X ^ (Abs(Y)) + z)

MsgBox ("z=" & Str(z) & Chr(13) & "b=" & Str(b))

'вывод результатов вычислений

End Sub ' Конец программы (главной процедуры)

Лабораторная работа №2

ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ "

1. Цель работы –


Овладение практическими навыками разработки, программирования вычислительного процесса, разветвляющейся структуры, получение дальнейших навыков по отладке и тестированию программы.

2. Теоретические сведения


Работа выполняется на языке Visual Basic for Applications (VBA).

Редактор VBA встроен во все приложения Microsoft Office.

2.1. Вызов редактора Visual Basic


Загрузить программу электронных таблиц Microsoft Excel, для этого последовательно выбрать:

Меню "Пуск" "Программы""Microsoft Excel" или совершить двойной щелчок по пиктограмме "Microsoft Excel".

После появления окна с таблицей одновременно нажать кнопки

"ALT" и "F11" Более подробные сведения о запуске VBA см. методические указания "Программирование алгоритмов линейной структуры"

2.2. Оператор условного перехода IF THEN


передает управление в зависимости от истинности (или ложности) условия.

2.2.1 Формат оператора(однострочная форма):


IF <условие> THEN <оператор 1> [ ELSE <оператор 2>]

где <условие> - проверяемое условие;

<оператор> - один или группа операторов разделенных двоеточием.

Если условие принимает значение "истина", то выполняется оператор или группа операторов, следующая за ^ THEN .В противном случае выполняется оператор или группа операторов ветви ELSE.

Если в операторе опущена ветвь ELSE, то при невыполнении условия управление передается строке, следующей за ^ IF.

Однострочная форма допускает выполнение нескольких операторов в результате проверки одного условия If...Then, но все операторы должны находиться на одной строке и разделяться двоеточием, как в следующем примере:

If A > 10 Then A = A + 1 : B = B + A : C = C + B

2.2.2 Блоковая форма инструкции If


^ В блоковой форме, инструкция IF должна быть первой инструкцией в строке. Компоненты Else, ElseIf и End If могут иметь перед собой только номер строки или метку строки.

Блок If должен заканчиваться инструкцией End If.

Формат блоковой формы оператора IF:

IF <условие> THEN

<операторы>

[ElseIf <условие> Then

[операторы_elseif] ….

[Else

[операторы_else]

End If


Пример:

IF s>1500 Then

C=0.08

R="Отлично"

Sa=Sa+s

Else

C=0.05

R='Удовлетворительно"

Sa=sa+s

End IF

2.2.3. Использование дополнительных условий в блоковой форме IF

Пример

Пример:

IF s>1500 Then

C=0.08

R="Отлично"

Elseif s>1200 Then
C=0.07

R="хорошо"

Elseif s>900 Then
C=0.06

R='Удовлетворительно"

Else

C=0.05

R='Неудовлетворительно"

End IF

Sa=sa+s