Текст программы формы

Sub Form_Load()

' Центрирование формы

Left = (Screen.Width - Me.Width) / 2

Top = (Screen.Height - Me.Height) / 2

Flag1 = False

End Sub

Sub Command1_Click() ' Вычисление интеграла

ax = Val(Text3.Text)

bx = Val(Text4.Text)

' контроль ввода данных

If ax = 0 And bx = 0 Then

MsgBox "Введите данные"

Exit Sub

End If

If Flag1 = True And ax = 0 Then

MsgBox "Неправильный ввод данных"

Exit Sub

End If

a = Val(InputBox("Введите нижний предел интегрирования", _

"Ввод данных"))

b = Val(InputBox("Введите верхний предел интегрирования", _

"Ввод данных"))

N = Val(InputBox("Укажите число отрезков разбиения", _

"Ввод данных"))

e = Val(InputBox("Укажите требуемую точность", "Ввод данных"))

S = 0

Integral2 a, b, N

MsgBox "Интеграл равен" & Str(S), , "Значение интеграла"

End Sub

Private Sub Command2_Click()

' Выход из программы

Unload Me

End Sub

Private Sub Text1_Change()

Flag1 = False

End Sub

Private Sub Text2_Click()

Flag1 = True

End Sub

Чтобы обеспечить выбор нужной формулы введена переменная Flag1 типа Boolean. Переменная Flag1 принимает значение False, если выбрана параболическая функция и True, если выбрана гиперболическая функция.

3.2.7. Закрепление материала

1. Какими способами осуществляется ввод данных?

2. Приведите синтаксис функции InputBox?

3. Как осуществляется вывод данных?

4. Приведите синтаксис оператора Print.

5. Как создать пользовательский формат для управления выводом числовой информации?

6. Приведите синтаксис команды MsgBox.

7. Чем отличается синтаксис функции MsgBox от синтаксиса команды MsgBox?

8. Приведите синтаксис обработчика событий.

9. Чем отличается синтаксис процедуры пользователя от синтаксиса обработчика событий? Приведите пример процедуры пользователя.

10. Какие категории функций используются в VB?

11. Запишите основные арифметические, тригонометрические и обратные тригонометрические функции.

12. Приведите синтаксис функции пользователя.

13. Какие операторы используются в VB для управления вычислительным процессом?

14. Приведите синтаксис условных операторов.

15. Приведите синтаксис операторов цикла For/Next и For/Each.

16. Приведите синтаксис и схему алгоритма оператора While/Wend.

17. Приведите синтаксис оператора Do/Loop

18. Приведите синтаксис и поясните принцип работы оператора Select Case.

3.3. Массивы

3.3.1. Понятие об индексированных переменных. Массивы.

Массивом называется совокупность индексированных элементов a(i,j):

а₁₁ а₁₂ ... a_1j ... а_1n

...

а_i1 а_i2 ... а_ij ... а_in (3.1.)

...

а_m1 а_m2 ... а_mj ... а_mn

Здесь а_ij – элемент массива. Индекс i означает номер строки, j – номер столбца.

Массивы в VB можно классифицировать по следующим признакам (рис.3.11.): числу измерений, области видимости, способу распределения памяти.

VB позволяет создавать одномерные и многомерные массивы. Число размерностей массива может достигать до 60.

Нумерация элементов массива начинается с нуля. Для изменения индексации с нуля на единицу используется оператор Option Base N, где N может принимать значения 0 и 1. Оператор Option Base записывается в раздел Главная контейнера (формы, модуля, класса). Однако, при объявлении массивов можно з адавать произвольные значения верхних и нижних границ массива, используя следующий синтаксис:

Dim (нижняя_граница TO верхняя_граница).

Примеры объявления массивов:

Dim A(10) As String – одномерный массив, содержит 11 элементов;

Dim B(5 TO 10, 1 TO 20) As Integer – двухмерный массив, имеет 6 строк и 20 столбцов. Нумерация строк начинается с 5, а нумерация столбцов с единицы.