Private Sub CommandButton1_Click()

Dim x As Single, y As Single, r As Single

If IsNumeric(TextBox1. Value) Then

x = TextBox1. Text

Else

MsgBox "Введіть перше число"

TextBox1. SetFocus

End If

If IsNumeric(TextBox2. Value) Then

y = TextBox2. Text

Else

MsgBox "Введіть друге число"

TextBox2. SetFocus

End If

If OptionButton1. Value Then z = x + y

If OptionButton2. Value Then z = x - y

If OptionButton3. Value Then z = x * y

If OptionButton4. Value Then

If y = 0 Then

MsgBox "Неприпустиме значення знаменника"

TextBox2. SetFocus

Else

z = x / y

End If

End If

TextBox3. Text = z

End Sub

5.3 Контрольні питання

1. Елемент керування текстове поле, його властивості.
2. Елемент керування командна кнопка, його властивості і події.
3. Елементи керування список і список, що розкривається, їхнє призначення, властивості і події, що з ними зв'язані.
4. Елемент керування перемикач, його властивості і події, що з ним зв'язані. Об'єднання перемикачів у групу.

Лабораторна робота № 6.

Тема роботи: Одновимірні масиви

Мета роботи: одержанняпрактичних навичок програмування і розв’язання задач обробки одновимірних масивів.

Теоретичні відомості

Масив це набір пронумерованих об’єктів, що мають одне і те саме базове ім’я і для доступу до об’єкту застосовується його номер (індекс). Масиви бувають статичні та динамічні.

О’ява статичного масиву:

Dim mas(20) As Integer

mas – масив, який складається з двадцяти елементів типу Integer. Першим елементом буде mas(1), другим – mas(2) т.д.

О’ява динамічного масиву:

Dim mas() As Integer

n=Inputbox(“Введіть розмір масиву”)

ReDim mas(n)

Приклад 6.1. На листі Excel в діапазоні А1:А10 знаходяться числа. Сформувати з них масивта знайти максимальний елемент.

Sub Максимальний_у_масиві()

Dim x() As Integer, n As integer

Dim max as Single, i as Integer

n=10

ReDim x(n)

‘формування масиву

For i =1 To n

X(i)= Worksheets(“Лист1”). Cells(i,1). Value

Next i

‘знаходження максимального елементу у масиві

max=x(1)

For i=2 To n

If x(i)>max Then max=x(i)

Next i

Worksheets(“Лист1”). Cells(11,1). Value=”max=”

Worksheets(“Лист1”). Cells(11,2). Value=max