Ход работы. 1. Создайте папку Лабораторная_работа_№6, а в ней папку – 6.1.
1. Создайте папку Лабораторная_работа_№6, а в ней папку – 6.1.
2. Запустите программу Microsoft Visual Basic 6.0.
3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
4. Разместите на форме 2 компонента CommandButton, 3 компонента Label, 2 компонента TextBox.
5. Установите свойства компонентов в соответствии с Таблицей 6.1. Примерный внешний вид приложения приведен на Рис.6.1
Таблица 6.1 – Значения свойств компонентов приложения «Максимум»
Компонент | Свойство | Значение |
Form1 | Caption | Максимальное из двух чисел |
Name | frmМаксимум | |
MinButton, MaxButton | False | |
Command1 | Caption | Выяснить максимум |
Name | cmdMax | |
Command2 | Caption | Очистить |
Name | cmdO4istka |
Окончание таблицы 6.1
TextBox1, TextBox2 | Text | |
Label1 | Caption | Первое число |
Label2 | Caption | Второе число |
Label3 | Caption | |
Для всех компонентов свойство Font и Color – по своему усмотрению У компонентов CommandButton свойство Style = 1 Graphical |
6. Откройте окно программного кода (View - Code).
7. В верхних строках программного кода опишите переменные входных и выходных данных:
Dima As Single, b As Single
8. Щелкните два раза по кнопке «Выяснить максимум» и напишите обработчик события Click (необходимые комментарии приведены после апострофов):
Private Sub CmdMax_Click()
a = Val(Text1.Text) 'получение числа a из поля Text1
b = Val(Text2.Text) 'получение числа b из поля Text2
If(a > b) Then'Задаем условие, которое необходимо проверить
Label3.Caption = Str(a) + " больше " + Str(b)'действия, если условие верно
Else
Label3.Caption = Str(b) + " больше " + Str(a)'действия, если условие неверно
End If
Дата добавления: 2015-06-12; просмотров: 694;