Пример 1. Задача. Вводятся три числа a, b, c

Задача. Вводятся три числа a, b, c. Требуется определить максимальное число.

1. нанесём на форму следующие элементы:

· метку Label1. Свойство Caption – а;

· поле ввода Textbox 1 для переменной а;

· далее, ещё две метки Label 2, Label 3 и для поля ввода Textbox 2, Textbox 3 для переменных b и c;

· кнопку Command Button 1. Свойство Caption – определить максимальное.

· Метку Label 4 для вывода результата. На этой метке не должно быть надписи (Поле Caption - пустое).

1. Запишем следующую подпрограмму обработки события – щелчка мыши по кнопке:

Private Sub Command Button 1_Click ()

‘ Описание переменных

Dim a, b, c, max As Integer

' Определение переменных

a= TextBox1.Value

b= TextBox2.Value

c= TextBox3.Value

‘ находим максимальное число

‘ Если a<b, то максимум = b, иначе максимум = а.

If a <b Then

Max = b

Else: max = a

End If

‘ Если максимум <c, то максимум = с.

If max < c Then

Max = c

End If

‘ Вывод результата

Label4.Caption = «максимальное число равно» & max

End Sub

1. результат работы программы:

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