PicMas2.Cls

For i = 1 To 5

For j = 1 To 5

If i > j Then mas2(i, j) = 1

If i < j Then mas2(i, j) = -1

If i = j Then mas2(i, j) = 0

PicMas2.Print mas2(i, j); " ";

Next j

PicMas2.Print

Next i

10. Проверить работу программы.

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Динамические массивы данных.

Цель: Получить навыки использования динамического массива данных

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства:

2. Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений набрать:

Dim student() As String

Dim x, n As Integer

4. В окне кода процедуры обработки события Load для объекта Form набрать

Frame2.Caption = " Студент N " + Str(n + 1)

5. В окне кода процедуры обработки события Click для объекта Cmd1 набрать

x = Val(TxtKol.Text)

ReDim student(x) ‘ переопределение размера массива

List1.Clear

Frame2.Visible = True

Frame1.Visible = False

n = 0

6. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

If n < x Then

student(n) = TxtFam.Text + " " + TxtName.Text

TxtFam.Text = " "

TxtName.Text = " "

n = n + 1

Frame2.Caption = " Студент N " + Str(n + 1)

If n = x Then

Frame2.Caption = " "

MsgBox " Массив заполнен полностью"

Frame2.Visible = False

Frame1.Visible = True

For i = 0 To n - 1

List1.AddItem student(i)

Next i

End If

End If

7. Проверьте работу программы