Dim i, j, n, a(1, 3), b As Integer

Randomize

For i=0 To 1

For j=0 To 3

a(i, j)=-3+Int(10*Rnd)

Text1(i*4+j)=a(i, j)

Next: Next

For j=0 To 3

If a(0, j)<=0 Or a(1, j)<=0 Then

MsgBox "в столбце" & j & "нет положительных элементов"

Else

b=a(0, j)*a(1, j)

MsgBox "в столбце" & j & "произведение положительных элементов=" & b

End If

Next

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

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

1. Создать новый проект для решения задачи, рассмотренной в п. 6.2, другим способом.

2. Внешний вид формы показан на рис. 61, свойство Name формы – Example6_3. Установить на форме необходимые объекты, свойства Name указаны на рисунке рядом с объектами. Записать программный код для кнопки Выход.

3. Установить на форме два объекта FlexGrid. Для этого вызвать контекстное меню на наборе инструментов General, выбрать команду Components. В окне Components на вкладке Controls (рис. 62) поставить галочку напротив позиции Microsoft FlexGrid Control 6.0 (SP6), нажать кнопку Применить, затем кнопку ОК. В наборе инструментов General появится кнопка объекта FlexGrid. Свойства Name объектов FlexGrid – G1 и G2 (рис. 61). Объект FlexGrid имеет свойства: свойство Cols – количество столбцов, установить это свойство для обоих объектов равным 4; свойство Rows – количество строк, установить это свойство для обоих объектов равным 2. Содержимое объекта FlexGrid хранится в его свойстве Text.

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

Раздел General Declarations:

Dim m(2, 4), p, i, j, b(4) As Integer

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

G2.Clear

For i=0 To 1

For j=0 To 3

m(i, j)=Int((-3)*Rnd+6)

G1.Col=j

G1.Row=i

G1.Text=m(i, j)

Next j

Next i

For j=0 To 3

If m(0, j)>0 And m(1, j)>0 Then

For i=0 To 1

b(4)=m(0, j)*m(1, j)

G2.Col=j

G2.Text=b(4)

Next i

Else

MsgBox "в столбце" & j & "нет положительных элементов"

End If

Next j

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

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

1. Создать новый проект для решения вывода на форму символьного массива из 5 слов по 5 букв и определить слово: а) составленное из букв, расположенных на главной диагонали символьного массива; б) определить слово, составленное из букв, расположенных на обратной диагонали символьного массива; в) определить слово, составленное из букв, расположенных в начале каждого слова; г) определить слово, составленное из букв, расположенных в заданном столбце символьного массива; д) определить слово, составленное из последних букв каждого слова. Макет формы показан на рис. 63.

2. Программный код для кнопки пуск:

Dim A(1 To 5, 1 To 5) As String*1