Лекция: Практическая часть.

(Код программы для нахождения максимального из двух чисел)

Private Sub CommandButton1_Click()

Dim a As Integer, b As Integer, max2 As Integer

(Инструкция задания переменной и её типа)

a = CInt(TextBox1.Text)

b = CInt(TextBox2.Text)

(Присваивание целочисленным переменным значения, считываемых из соответствующих полей формы)

If a > b Then max2 = a Else max2 = b

(Условный оператор, реализующий алгоритм ветвления)

TextBox3.Text = max2

(Оператор присваивания и вывода значений)

End Sub

(Конец программы)

(На рисунке 1 приведен интерфейс программы для нахождения максимального из двух чисел)

Рисунок 1.

(Вводим число в Техтbox1 «first», затем в Textbox2 «second» после используем «Count» и в Textbox3 выводится большее число)

ВЫВОДЫ:

Проделав данную лабораторную работу, мы научились создавать формы проекта и программный код, изучили свойства формы и пользование элементов управления.