Private Function Avr(Y As Integer) As Single

Dim s As Integer

For j=0 To 6

If M(Y, j)>0 Then s=s+M(Y, j)

Next j

Avr=s/j

End Function

3. Процедура загрузки формы:

With MSFlexGrid1

For i=0 To 6

For j=0 To 6

M(i, j)=Int(Sin(i)*3-Cos(j)*7)

.Row=i:.Col=j:.Text=Str(M(i, j))

Next j

Next i

End With

4. Программный код для кнопки очистить:

For j=0 To 6

MSFlexGrid2.Row=j

MSFlexGrid2.Text=""

Next j

5. Процедура для объекта MSFlexGrid1:

Private Sub MSFlexGrid1_Click()

Dim Y As Integer

Y=MSFlexGrid1.Row

MSFlexGrid2.Row=Y

MSFlexGrid2.Text=Str(Format(Avr(Y), "##.##"))

End Sub

6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 6.9

1. Создать новый проект – двумерный массив 7х7 и вывести на экран количество слов, длина которых больше 5 символов. Макет формы показан на рис. 68.

2. Записать для объектов и формы следующие программные коды.

Раздел General Declarations:

Dim M(7, 7) As String

Private Function MyFun()

Dim Sum As Integer

For i=0 To 6

For j=0 To 6

If Len(M(i, j))>5 Then Sum=Sum+1

Next j

Next i

MyFun=Sum

End Function

Private Sub Gen()

Dim S As String

For i=0 To 6

For j=0 To 6

S=""

For k=1 To Int(Rnd*7)

L=Chr(65+Int(Rnd*5))

S=S+L

Next k

M(i, j)=S

MSFlexGrid1.Col=j

MSFlexGrid1.Row=i

MSFlexGrid1.Text=M(i, j)

Next j

Next i

End Sub

3. Программный код для кнопки обновить массив:

Gen

Label4.Caption=MyFun

4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 6.10

1. Создать новый проект для вывода на экран слова, находящегося на диагонали символьного массива с помощью процедуры–подпрограммы. Макет формы показан на рис. 69.

2. Записать для объектов и формы следующие программные коды.

Раздел General Declarations:

Dim M(5, 5) As String

Private Sub MyProc()

Dim S As String

For i=0 To 4

For j=0 To 4

If i=j Then S=S +M(i, j)

Next j

Next i

Label3.Caption=S

End Sub

3. Программный код для кнопки обновить массив:

For i=0 To 4

For j=0 To 4

M(i, j)=Chr(65+Int(Rnd*10))

MSFlexGrid1.Col=j

MSFlexGrid1.Row=i

MSFlexGrid1.Text=M(i, j)

Next j

Next i

MyProc

4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 6.11

1. Создать новый проект – двумерный массив 7х7 и отсортировать по возрастанию каждый столбец. Макет формы показан на рис. 70.

2. Записать для объектов и формы следующие программные коды.

Раздел General Declarations:

Dim M(7, 7) As Single

Private Sub SORT(Y As Integer)

Dim A, B, C As Single

For i=0 To 6

A=M(i, Y)

For s=i To 6

B=M(s, Y)

If B<A Then

C=A

M(i, Y)=B

M(s, Y)=C

A=B

End If

Next s

MSFlexGrid2.Row=i

MSFlexGrid2.Text=M(i, Y)

Next i

End Sub

3. Процедура загрузки формы:

With MSFlexGrid1

For i=0 To 6

For j=0 To 6

M(i, j)=Int(Sin(i)*3-Cos(j)*7)

.Row=i:.Col=j:.Text=Str(M(i, j))

Next j

Next i

End With

4. Программный код для кнопки очистить:

For i=0 To 6

MSFlexGrid2.Row=i

MSFlexGrid2.Text=""

Next i

5. Процедура для объекта MSFlexGrid1:

With MSFlexGrid1

Y=.Col

SORT (Y)

End With

6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 6; текстовый файл с изображениями форм и текстами программных кодов.