Порядок действий. 1. Расположите объекты на форме в соответствии с рис.11.1

1. Расположите объекты на форме в соответствии с рис.11.1.

2. Значения свойств объектов, которые определяют внешний вид приложения, установите по своему усмотрению.

3. Значения свойств Caption формы и кнопок установите в соответствии с рис. 11.1.

4. Установите значения свойств Name кнопок в соответствии с табл. 11.1.

Табл. 11.1

Объект	Свойство	Значение свойства
Командная кнопка	Name	cmdNu1
Командная кнопка	Name	cmdFive
Командная кнопка	Name	cmdRnd
Командная кнопка	Name	cmdStolb
Командная кнопка	Name	cmdStr
Командная кнопка	Name	cmdInput
Командная кнопка	Name	cmd01
Командная кнопка	Name	cmdExit
Командная кнопка	Name	cmdCls

5. Ниже приведен прorраммный код процедур для заполнения массива единицами в шахматном порядке и вводом через окно InрutВох. Вывод массива на форму оформлен в виде отдельной процедуры Print_Form. Проанализируйте приведенные ниже коды, а затем наберите их.

Option Explicit

Dim x As Integer, y As Integer

Dim p(1 To 4, 1 To 4) As Integer

Dim sum As Single

Private Sub cmd01_Click()

For x = 1 To 4 Step 1

For y = 1 To 4 Step 1

If (x Mod 2) <> 0 And (y Mod 2) <> 0 Then

p(x, y) = 0

ElseIf (x Mod 2) = 0 And (y Mod 2) = 0 Then

p(x, y) = 0

Else

p(x, y) = 1

End If

Next y

Next x

Call print_form(p(), x, y)

End Sub

Private Sub CmdCls_Click()

Frm2Мас.Cls

TxtSum.Text = ""

End Sub

Private Sub CmdInput_Click()

For x = 1 To 4

For y = 1 To 4

p(x, y) = Val(InputBox("Введите элемент p(" _

& x & "," & y & ") ", "Ввод элементов массива"))

Next y

Next x

Call print_form(p(), x, y)

End Sub

Private Sub CmdSrglDiag_Click()

sum = 0

For y = 1 To 4

sum = sum + p(y, y)

Next y

TxtSrglDiag.Text = Str(sum / 4)

End Sub

Private Sub CmdTExit_Click()

End

End Sub

Sub print_form(mass() As Integer, i As Integer, j As Integer)

For i = 1 To 4

For j = 1 To 4

Print mass(i, j);

Next j

Print

Next i

End Sub

6. Проверьте правильность работы приложения и сохраните в папке ЛАБ11 под именем Лр11_Зад1 _Фамилия.

7. Напишите самостоятельно остальные процедуры в соответствии с условием.

ЗАВДАННЯ 11.2. Постановка задачи: НАЙТИ:

ü СУММУ ЭЛЕМЕНТОВ ГЛАВНОЙ И ПОБОЧНОЙ ДИАГОНАЛЕЙ.

ü СРЕДНЕЕ ЗНАЧЕНИЕ ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ ГЛАВНОЙ ДИАГОНАЛИ.

ü СУММУ ЭЛЕМЕНТОВ 3 СТРОКИ.