17032

Використання операторів умов в Visual BASIC

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторна робота №10 Тема: Використання операторів умов Мета: відробити прийоми використання оператори умов в Visual BASIC 6.0 . Обладнання: ПК ПЗ VB 6.0 Хід роботи Індивідуальне завдання. Знайти значення функції використавши вікно повідомлень для вводу та виводу ...

Украинкский

2013-06-29

41.5 KB

1 чел.


Лабораторна робота №10

Тема: Використання операторів умов

Мета: відробити прийоми використання оператори умов в Visual BASIC 6.0 .

Обладнання: ПК, ПЗ VB 6.0

Хід роботи

Індивідуальне завдання.

Знайти значення функції, використавши вікно повідомлень для вводу та виводу даних.

Варіант 19     

Листинг:

Private Sub Image1_Click()

End Sub

Private Sub Command1_Click()

Dim x As Double, y As Double

x = Val(InputBox("Ââåäèòå x", "window"))

If x < 0 Then

   y = Cos(2 - x)

ElseIf x >= 0 And x <= 1 Then

   y = Log(Exp(x - 1)) / Log(4)

Else

   y = Cos(x) / Sin(x)

End If

MsgBox ("y=" & y)

End Sub

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

  1.  Використання оператора If.
  2.  Використання оператора Select Case.
  3.  Oператори MsgBox, InputBox.