Ход работы. 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; просмотров: 765;