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

Вид материала

Программа

Содержание Вызов редактора Visual Basic Do [{While Методика выполнения задания Пример выполнения работы Dim rez As String ' Объявление строковой переменной

Подобный материал:

• Урок Особенности среды " Microsoft Visual Basic", 184.03kb.
• Даний курс призначений для тих, хто: ніколи не програмував, але хоче навчитися, 360.9kb.
• Краткий курс по изучению языка программирования Visual Basic, 357.37kb.
• Запуск программы: Пуск Программы Visual Basic; для начала работы над новым проектом, 36.28kb.
• Язык Visual Basic имеет разнообразные средства визуализации разрабатываемых приложений., 41.17kb.
• Н. Г. Волчёнков программирование на visual basic 6 Учебное пособие, 128.99kb.
• Задачи: Изучить среду Visual Basic; Подобрать задачи исследовательского характера для, 635.44kb.
• Тема урока: Массивы в Visual Basic, 35.5kb.
• Visual Basic Основы работы с базами данных, 1336.88kb.
• Опис модуля назва модуля: Visual Basic для додатків. Код модуля, 40.19kb.

^

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

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

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

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

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

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

Для организации циклов с неизвестным числом повторений используют операторы цикла Do … Loop

Синтаксис

^ Do [{While | Until} условие]

[операторы]

[Exit Do]

[операторы]

Loop

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

Допустим также другой синтаксис:


Do

[операторы]

[Exit Do]

[операторы]

Loop [{While | Until} условие]

Повторяет выполнение набора операторов пока условие не примет значение True.

В любом месте управляющей структуры Do…Loop может быть размещено любое число инструкций Exit Do, обеспечивающих альтернативные возможности выхода из цикла Do…Loop.. Инструкция Exit Do передает управление оператору, непосредственно следующим за инструкцией Loop.

При выводе результатов расчета желательно увидеть исходные данные и результаты расчета в одном окне функции MsgBox Для этого формируется результирующая строка в которую переписывают исходные данные и результаты расчета, а также поясняющий текст, с использованием оператора конкатенации (&). Подробности см. в примере выполнения работы.

3. Задание к работе
   

Написать программу вычисления значений (в соответствии с вариантом задания). Осуществить вывод значений вводимых исходных данных и результат вычисления значения, сопровождая вывод наименованиями переменных.

Выполнить программу на ЭВМ и протестировать алгоритм.

Таблица 1
Варианты задания

Вариант	Задание
1	Табулировать функцию y=sin(2x)+x	0
2	Получить произведение чисел от 1 до 10 (факториал 10)
3	Суммировать все четные числа от 210 до 230
4	Суммировать все нечетные числа от 210 до 230
5	Табулировать функцию y=sin(2x)	0
6	Табулировать функцию y=cos(2x)	0
7	Суммировать каждое третье число от 1 до 30	шаг =3
8	Найти сумму чисел от 115 до 124
9	Табулировать функцию y=Ln(x)	1
10	Табулировать функцию y=x+sin(x)	0
11	Табулировать функцию y=x-cos(x)	0
12	Табулировать функцию y=x*cos(x)	0
13	Суммировать каждое пятое число от 1 до 50	шаг 5
14	Получить произведение чисел от 2 до 11
15	Табулировать функцию y=x2*sin(x)	0
16	Табулировать функцию y=x2-x*sin(x)	0

4. ^ МЕТОДИКА ВЫПОЛНЕНИЯ ЗАДАНИЯ
   

1) Заранее, до выполнения лабораторной работы, изучить возможности программирования для реализации:

• вычислительного процесса циклической структуры.
  

2. Разработать алгоритм решения в соответствии с заданием.
   
3. Составить программу решения задачи.
   
4. Подготовить тесты
   

5. ^ ПРИМЕР ВЫПОЛНЕНИЯ РАБОТЫ
   

Протабулировать функцию y=x+sin(x) 0 <=x < 2 с шагом /4

результаты вывести в виде таблицы

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

xn = Val(InputBox("начальное значение xn="))

xk = Val(InputBox("конечное значение xк="))

dx = Val(InputBox("шаг dx="))
^

Dim rez As String ' Объявление строковой переменной

'формирование результирующей строки

rez = " Xn= " & Str(xn) & " xk= " & Str(xk) & " dx=" & Str(dx) & Chr(13)

rez = rez & " x y" & Chr(13) ' формирование заголовка таблицы

For x = xn To xk Step dx ' Заголовок цикла

y = x + Sin(x)

rez = rez & Str(x) & " " & Str(y) & Chr(13)

Next x ' Конец цикла

If x - xk <> dx Then 'Вычисление функции в конце цикла

x = xk

y = x + Sin(x)

rez = rez & Str(x) & " " & Str(y) & Chr(13)

End If

MsgBox rez, , "Табулирование функции y=x+sin(x) 'вывод результатов"

End Sub