Лабораторная работа №4

Тема: СозданиеWindowsприложений

Задание: Найти максимальную разность главной и побочной диагонали.

Блок схема

Эскиз

Программный код

Dim i, j, n, m, max, a As Integer, x() As Single

Private Sub Command1_Click()

max = x(1, 1) - x(1, n)

For i = 2 To n - 1

If x(i, i) - x(i, n - i + 1) > max Then max = x(i, i) - x(i, n - i + 1)

Next

Command1.Caption = "максимальные" + Str(max)

End Sub

Private Sub Выход_Click()

End ' Закрытие приложения

End Sub

Private Sub Показать_Click()

For i = 1 To n

For j = 1 To m

Text1.Text = Text1.Text + Str(x(i, j))

Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)

Next

End Sub

Private Sub Создать_Click()

n = Val(InputBox("ввести n", , "n="))

m = Val(InputBox("ввести m", , "m="))

ReDim x(n, m)

For i = 1 To n

For j = 1 To m

x(i, j) = Int(Rnd * 9) - 3

Next

Next

End Sub

Работа приложений

Лабораторная работа № 5

Создать приложение: «Способы ввода данных и использование их для решения задач».

Расставим имена объектов на эскизе экранной формы.

Программный код.

Dim A, B, C, Z As Single ‘ Описание типа переменных

Private Sub Form_Load() ‘ Загрузка формы

MsgBox "Щелкните мышью на поле А" ‘Вывод текста в окне сообщения

End Sub

Private Sub Text1_Click() ‘ Щелчок в текстовом окне

A = InputBox("Введите число", , "À=") ‘ Ввод числа в окне ввода данных.

Text1.Text = A ‘ Запись числа в текстовое окно с именем ТехtВох1.

End Sub

Private Sub Text2_Change()’ Изменение содержания текстового окна ТехtВох2.

B = Str(Text2.Text) ‘ Содержание текстового окна присваивается переменной В

End Sub

Private Sub HScroll1_Change()

Text3.Text = HScroll1.Value ‘Содержание горизонтальной полосы прокрутки _

выводится в текстовом окне ТехtВох3.

C = Val(Text3.Text)

End Sub

Private Sub Command2_Click()

Z = A * B + C ^ 2

Text4.Text = "Z="+Str(Z)‘Результат вычислений выводится в текстовом окне ТехtВох4.

End Sub

Private Sub Command1_Click()

End ‘ Закрытие приложения

End Sub

Ответ.

После запуска приложения появляется форма с окном сообщения

Щелкаем поле Text1, в результате появляетсяокно ввода (рис.4), в которое вводим число(числовое значение переменной А) - это первый способ ввода. Затем с клавиатуры вводим число(числовое значение переменной В) в полеText2 – это второй способ ввода. С помощью горизонтальной полосы прокрутки вводим число(числовое значение переменной С) в полеText3 – это третий способ ввода числа.

Для того чтобы вывести в текстовом окнеText4 результат вычислений, щелкнем кнопку «Щелкните кнопку и получите результатZ»