Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Приложение D ⇐ ПредыдущаяСтр 5 из 5
Листинги 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; Нарушение авторских прав |