Page 70 - 4588

4. Запрограмуйте відповідні кнопки за зразком:
Private Sub CommandButton1_Click()
Dim x, y As Single ’поясн. оголошення двох
змінних
x = InputBox("Vvedit znachennja x") ‘виклик
спливаючого вікна
y = Cos(x * x + 5)
MsgBox ("znachennja y = " + CStr(y))
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Пояснення до коду. InputBox() – виводить
спливаюче вікно для введення в нього користувачем значення
х. MsgBox () - виводить спливаюче вікно повідомлення, у
даному випадку із результатами програми.
CStr() – функція перетворення числового значення в
текст, оскільки MsgBox () виводить тільки текстові
повідомлення.
2 спосіб. Розв’яжемо дану задачу, оформивши
уведення та виведення результатів через елементи керування
форми.
5. Відкрийте нову форму і розмістіть на ній такі ж
об’єкти, як на рисунку 2.4
6. Змініть властивості цих об’єктів (оформіть написи до
міток та кнопок) як показано на рисунку 2.5
7. Запрограмуйте кнопки відповідно:
Private Sub CommandButton1_Click()
Dim x, y As Single
x = TextBox1.Text ’зчитуємо з компонента TextBox1
значення, яке ввів
користувач
y = Cos(x ^ 2 + 5)
Label3.Caption = " znachennja y=" + CStr(y)
End Sub

69