Ход работы. Составить программу, находящую максимальное число из двух чисел введенных пользователем

Постановка задачи

Составить программу, находящую максимальное число из двух чисел введенных пользователем.

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. В верхних строках программного кода опишите переменные входных и выходных данных:

Dim a 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)'действия, если условие верно

Дата добавления: 2014-12-23