Приложение D

Листинги

Option Explicit 'Оператор который требует объявления всех переменных в файле

Private Sub CommandButton1_Click() 'Начало кода выполняемого кнопку "Рассчитать"

Dim a As Long, b As Long 'задаём 2 переменные

a = TextBox1.Text

b = TextBox2.Text

Label2 = Fib(Val(TextBox1.Text), Val(TextBox2.Text)) 'Данная строка указывает что значения функции Fib выводит в label2

Label1 = "Ваша последовательность" '

End Sub 'Конец кода выполняемого кнопку "Рассчитать"

Листинг 1. Кнопка «Рассчитать»

Private Function Fib(ByVal value1 As Long, ByVal value2 As Long) As String 'задаём функцию и типы её значений для определния чисел Фибоначчи

Dim v As Long, sum As Long 'задаём 2 переменные

v = 1

Do 'Начало блока инструкция для повторения

sum = sum + v

v = sum - v

If value2 < sum Then Exit Do

If sum >= value1 And sum <= value2 Then Fib = Fib & sum & " "

Loop 'конец блока инструкция для повторения

End Function 'конец функции

Листинг 2. Функция вычисления чисел Фибоначчи

Private Sub CommandButton2_Click() 'Начало кода выполняемого кнопку "Проверить"

Dim c As Long

c = TextBox3.Text

Label7.Caption = FibDetect(CLng(TextBox3.Text)) 'Проверка значения введенного в TextBox3

End Sub 'Конец кода выполняемого кнопку "Проверить"

Листинг 3. Кнопка «Проверить»

Private Function FibDetect(ByVal value As Long) As String 'начало функции проверки числа

Dim v As Long, sum As Long, s As String 'переменные

v = 1

Do 'Начало блока инструкция для повторения

sum = sum + v

If value < sum Then s = " не": Exit Do

If value = sum Then Exit Do

v = sum - v

Loop 'конец блока инструкция для повторения

FibDetect = "Число """ & value & """" & s & " является числом Фибоначчи"

End Function 'конец функции

Листинг 4. Проверка чисел Фибоначчи

Date: 2016-01-20; view: 402; Нарушение авторских прав