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.


 

А также другие работы, которые могут Вас заинтересовать

57944. Похідна та її застосування. Урок узагальнення і систематизації знань 165 KB
  Актуалізація опорних знань: Усне опитування: Дайте відповіді на запитання: 1 що називається похідною функції в точці 2 який геометричний зміст похідної 3 який механічний зміст похідної 4 запишіть правило знаходження похідної суми двох функцій...
57945. Ситуационные задания по спец Управлению проектами 354.66 KB
  Рассматривается проект организации мини-пивоварни Компанией «Пивовар». Планируется, что продукцией пивоварни будет качественное солодовое пиво, приготовляемое по классической рецептуре из высококачественных отечественных и импортных компонентов...
57946. Розв’язування задач за допомогою квадратних рівнянь 468 KB
  Мета уроку: повторити відомості про квадратне рівняння; продовжити формувати вміння та навички учнів розвязувати рівняння, що зводяться до квадратних...
57947. Использование формул сокращенного умножения 42 KB
  Оборудование: 1 ноутбуки; 2 урок сопровождается учебной презентацией компьютерная программа Microsoft Power Point Приложение 1; КП Использование формул сокращенного умножения; 2 буклет сообщение учащегося компьютерная программа Microsoft Office Publisher...
57948. Рівняння 44.5 KB
  Мета уроку: Систематизувати і узагальнити загальні відомості щодо рівнянь рівносильні рівняння лінійні рівняння рівняннящо містять модуль розвязування задач за допомогою рівнянь.
57949. Узагальнення і систематизація знань учнів по темі «Лінійні рівняння з однією змінною» 745.5 KB
  Сприяти формуванню практичних умінь та навичок розвязувати рівняння з однією змінною використовуючи основні властивості рівнянь; розвязувати задачі за допомогою рівнянь; розвивати логічне мислення; спонукати учнів до прояву творчої активності ініціативи...
57950. Розв’язування ірраціональних рівнянь 168.5 KB
  Запитання: Скільки розвязків має рівняння один Корінь якого степеня існує із будьякого числа непарного Як називають корінь третього степеня кубічний Скільки розвязків має рівняння якщо 0 два Як називається рівняння в якому змінна знаходиться під знаком кореня ірраціональне Як називається корінь рівняння який одержується в результаті нерівносильних перетворень сторонній...
57951. НАСЕЛЕННЯ ТА ДЕРЖАВИ ПІВДЕННОЇ АМЕРИКИ 41.5 KB
  Мета: поглибити та систематизувати знання про освоєння території материка походження та формування населення материка його кількість склад та розміщення; ознайомити з політичною картою Південної Америки...
57952. Географія материків та океанів 87 KB
  За картою географічних поясів та природних зон визначте природні зони Північної Америки та вкажіть зони що займають найбільшу площу. Але окремі природні зони ми з вами ще ніколи не розглядали крім того сьогодні ви довідаєтесь чому особливе місце в розподілі природних комплексів материка належить рельєфу та впливу океану.