Приклад 1. Розв'язок квадратного рівняння.

Date: 2015-10-07; view: 375.

Приклад 1.

End Select

End Sub

Де:

· ім'я – ідентифікатор процедури, що створюється;

· аргументи – імена змінних, значення яких використовується функцією;

· тип - це т ип значень, які повертає функція;

· Exit Sub – достроковий вихід.

Приклад.Процедура, що виконує друкування значень:

Sub PR (X,Y)

Printer.FontName = "Arial" ' установлення шрифту

Printer.FontSize = 16 ' установлення розміру шрифту

Print X; Y

End Sub

Конструкція Select Case.Оператор Case дозволяє програмувати набору операцій для виконання вибору з групи можливих варіантів. Синтаксис:

Select Case <вираз >

Case < діапазон значень 1>

< Послідовність операторів 1>

Case < діапазон значень 2>

< Послідовність операторів 2>

………….

Case Else

< Послідовність операторів >

Вирази можуть бути представлені набором чисел, діапазоном чисел (використовується оператор То), умовою (за допомогою оператора Is).

Private Sub Command1_Click ()

Dim k As Integer

X = Int (Rnd * 10) +1

Print X

Select Case X

Case 5

Print “ дорівнює 5”

Case 3 To 10

Print “ між 3 та 10, крім 5”

End Select

End Sub

Приклад 2.Визначити розмір комісійних внесків, в залежності від того яке обере значення змінна NumSales.

Select Case NumSales

Case 1 To 5

Commission = Total * 0.05

Case 6 To 15

Commission = Total * 0.1

End Select

6. ПРИКЛАДИ РОЗРОБКИ ДОДАТКА.

Private Sub Prog2 'Квадратне рівняння

Dim a, b, c, D, x1, x2 As Double

a = Val(InputBox("Введіть значення а", a))

b = Val(InputBox("Введіть значення b", b))

c = Val(InputBox("Введіть значення c", c))

D = b * b - 4 * a * c

If D < 0 Then print ("Розв'язків не існує")

If D >= 0 Then

MsgBox "Існує два розв."

x1 = (-b - Sqr(D)) / (2 * a)

x2 = (-b + Sqr(D)) / (2 * a)

Print "x1=", x1,, "x2=", x2

End If

End Sub