Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Приложение 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; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию