Private Sub Command1_Click()
End Sub
Оно после программирования примет вид:
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = A + B
Label4.Caption = C
End Sub
3. Самостоятельно получите программу, считающую сумму, разность, произведение, квадратный и кубический корни, квадрат, куб числа.
4. Рассмотрим еще один пример – простейший калькулятор.
При нажатии клавиши С все поля должны очиститься. Это программируется так:
Private Sub Command5_Click()
Text1.Text= “”
Text2.Text= “”
Label4.Caption = “”
End Sub
Задание для самостоятельной работы
Самостоятельно составьте программу, вычисляющую следующую величину:
1. 
2. 
3. 
4. 
5. 
Урок 4. Конструкция «Если»
1 Составить программу в соответствии с алгоритмом:
алг альфа
нач вещ а, б
вывод “введите число ” ; ввод а
вывод нс
если а < 0 то
б:=а*а
иначе б:=sqrt(а)
все
вывод б
кон
Программируем кнопку:
Private Sub Command1_Click()
A = Val(Text1.Text)
If A < 0 Then
Label2.Caption = A * A
Else: Label2.Caption = Sqr(A)
End If
End Sub
2. Составим программу, которая при вводе вашего возраста приветствует Вас фразой «Привет друг», если ваш возраст меньше 18 лет, и выдает ответ «Не знаю тебя» в противном случае.
Private Sub Command1_Click()
A = Val(Text1.Text)
If A < 18 Then
Label2.Caption = "Привет друг"
Else: Label2.Caption = "Не знаю тебя"
End If
End Sub
Задание для самостоятельной работы
Составьте программу для решения следующих задач:
Составьте программу, вычисляющую квадратный корень из числа, если оно положительное, и выдающую сообщение, что число отрицательное, в случае введения отрицательного числа. Составьте программу, делящую число А на В, но если В=0, должно последовать сообщение о невозможности делить на 0 Домашнее задание. Продумать и составить программу решения квадратного уравнения.
Урок 5. Конструкция «Выбор»
Рассмотрим алгоритм урока с конструкцией «Выбор»алг выбери
нач цел а
вывод «ваш возраст»
ввод а
выбор
при а<=14 :
вывод «привет»
при а <=18 :
вывод «ну и ну»
иначе
вывод «Старик!!!)))»
все
кон
Для его реализации создадим форму и запрограммируем кнопку «Анализ возраста»
Private Sub Command1_Click()
A = Val(Text1.Text)
Select Case A
Case Is <= 14
Label2.Caption = "Привет"
Case Is <= 18
Label2.Caption = "Ну и ну"
Case Else
Label2.Caption = "Старик!!!)))"
End Select
End Sub
Задание для самостоятельной работы:
Самостоятельно подготовьте программу по алгоритму
алг гороскоп (арг цел - год)
нач
выбор
при mod(год,12)=0:вывод «Год Обезьяны»
при mod(год,12)=1:вывод «Год Петуха»
при mod(год,12)=2:вывод «Год Собаки»
при mod(год,12)=3:вывод «Год Свиньи»
при mod(год,12)=4:вывод «Год Крысы»
при mod(год,12)=5:вывод «Год Коровы»
при mod(год,12)=6:вывод «Год Тигра»
при mod(год,12)=7:вывод «Год Зайца»
при mod(год,12)=8:вывод «Год Дракона»
при mod(год,12)=9:вывод «Год Змеи»
при mod(год,12)=10:вывод «Год Лошади»
при mod(год,12)=11:вывод «Год Овцы»
кон
Урок 6. Цикл «Для»
1. Составим программу, печатающую на форме ряд чисел 1,2,3….10.
Программирование кнопки имеет вид:
Private Sub Command1_Click()
For A = 1 To 10 Step 1
Form1.Print A
Next A
End Sub
Измените Print A на Print A;
Получите горизонтальный ряд
2. Получим ряд значений корней
Программа имеет вид:
Private Sub Command1_Click()
For A = 1 To 10 Step 1
Form1.Print "Корень из "; A; "="; Sqr(A)
Next A
End Sub
Если замените Sqr(A) на Round(Sqr(A),2) то получите тот же ряд, но с округлением до 2 чисел после запятой. Проделайте это.
3. Составим программу, находящую сумму числового ряда (арифметической прогрессии) с вводимыми первым, последним числами и шагом прогрессии.
Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
S = 0
For T = A To B Step C
S = S + T
Next T
Text4.Text = S
End Sub
Задание для самостоятельной работы:
Составьте программы, результатами которой будут ряды:Урок 7. Циклы с пред - и постусловием
1. Рассмотрим пример цикла с предусловием: например, получим числовой ряд от 1 до 10 с шагом 1 (как в предыдущем уроке). Программа имеет следующий вид:
Private Sub Command1_Click()
A = 1
Do While A <= 10
Form1.Print A
A = A + 1
Loop
End Sub
2. Рассмотрим пример цикла с постусловием
Программа имеет следующий вид:
Private Sub Command1_Click()
A = 1
Do
Form1.Print "Корень из "; A; "="; Sqr(A)
A = A + 1
Loop While A <= 10
End Sub
Задание для самостоятельной работы:
Самостоятельно составьте программы с циклами (первым и вторым способами)
Урок 8. Генератор случайных чисел
1. Числовой ряд из 10 чисел задается генератором случайных целых чисел в диапазоне от 1 до 10. Вывести эти числа на форму и найти их сумму.
Программирование 2 кнопок имеет вид:
Private Sub Command1_Click()
S = 0
For T = 1 To 10 Step 1
R = Int (Rnd * (10) + 1)
Form1.Print R
S = S + R
Next T
Label2.Caption = S
End Sub
Private Sub Command2_Click()
Form1.Cls
Label2.Caption = ""
End Sub
2. Числовой ряд из 10 чисел задается генератором случайных целых чисел в диапазоне от 1 до 20. Вывести эти числа на форму, найти их сумму и количество цифр меньше или равных введенному условию. Программа имеет вид:
Для кнопки «Очистить»
Private Sub Command2_Click()
Form1.Cls
Label2.Caption = ""
Label5.Caption = ""
Text1.Text = ""
End Sub
Для кнопки «Получить ряд»:
Private Sub Command1_Click()
A = Val(Text1.Text)
K = 0
S = 0
For T = 1 To 10 Step 1
R = Int(Rnd * (20) + 1)
If R <= A Then
K = K + 1
End If
Form1.Print R
S = S + R
Next T
Label2.Caption = S
Label5.Caption = K
End Sub
Задания для самостоятельной работы:
Сколько в той же последовательности <10 Сколько в той же последовательности чисел =7 Сколько в той же последовательности четных чисел Сколько в той же последовательности нечетных чисел Найти сумму всех чисел Найти сумму всех четных чисел Найти и указать, из каких чисел нацело вычисляется квадратный корень Найти на сколько отличается сумма четных чисел от нечетныхУрок 9. Числовые массивы
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 |
