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 Контрольні питання
- Елемент керування текстове поле, його властивості.
- Елемент керування командна кнопка, його властивості і події.
- Елементи керування список і список, що розкривається, їхнє призначення, властивості і події, що з ними зв'язані.
- Елемент керування перемикач, його властивості і події, що з ним зв'язані. Об'єднання перемикачів у групу.
Лабораторна робота № 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