Практическая работа № 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