Dim slovarr(1 To 50) As String

Dim slovkol As Integer

Программный код для кнопки закрыть:

Poisk.Hide

Unload poisk

menu.Enabled=True

Menu.Show

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

Spis.AddItem slovo.Text

slovkol=slovkol+1

slovarr(slovkol)=slovo.Text

slovo.Text=""

Slovo.SetFocus

Программный код для кнопки найти:

Poisk.Cls

If spis.List(0)=Empty Then

MsgBox "Заполните список", 16, "Внимание"

Exit Sub

End If

Dim i, sum As Integer

poisk.CurrentX=Lab_pr.Left

poisk.CurrentY=Lab_pr.Top+30

buk.Caption=bukva.Text

For i=1 To slovkol

If Right$(slovarr(i), 1)=bukva.Text Then

Poisk.Print slovarr(i)

Else

sum=sum+1

End If

Next i

result.Caption=sum

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

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

 

Тема 6. Двумерные массивы

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

1. Создать новый проект и программу, которая позволит создать матрицу порядка от 2 до 9, который указывается в поле порядок матрицы. Если значение порядка не соответствует указанному диапазону, программа выдает стандартное сообщение. Элементы матрицы вводятся по одному последовательно по строкам. Заполнение матрицы осуществляется с помощью поля элемент матрицы и кнопки добавить. Кнопка сумма предназначена для подсчета суммы элементов строки матрицы, номер которой указан в поле суммировать строку N.

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

 

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

Программный код для раздела General Declarations:

Dim mtx(1 To 9, 1 To 9) As Integer

Dim mtr As Integer

Dim lem As Integer

Dim stn As Integer

Dim cln As Integer

Программный код для активации формы:

Private Sub Form_Activate()

Pmx.SetFocus

CurrentX=ln.X1+100

CurrentY=ln.Y1+200

stn=1

End Sub

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

lem=lem+1

cln=cln+1

mtx(stn, cln)=Val(nel.Text)

Print nel.Text;

CurrentX=CurrentX+500

If cln=mtr Then

stn=stn+1

cln=0

CurrentY=CurrentY+300

CurrentX=ln.X1+100

End If

Nel.SetFocus

nel.Text=""

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

Dim i As Integer

Dim ism As Integer

For i=1 To mtr

ism=ism+mtx(Val(rnm.Text), i)

Next i

rsm.Caption=ism

Процедура снятия «фокуса» с текстового поля:

Private Sub pmx_LostFocus()

mtr=Val(pmx.Text)

If mtr>1 And mtr<10 Then

dobav.Enabled=True

Nel.SetFocus

Else

MsgBox "Неверный порядок матрицы", 16, "Ошибка!"

Pmx.SetFocus

pmx.Text=""

End If

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

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

1. Создать новый проект, заполняющий матрицу размером 2х4 случайными числами в диапазоне от –3 до +6. Написать код для управляющей кнопки, подсчитывающий произведение положительных элементов для каждого столбца матрицы. Предусмотреть ответ «нет», если все элементы столбца меньше или равны нулю. Макет формы показан на рис. 60.

2. Свойство Name формы – Example6_2. Установить на форме необходимые объекты, свойства Name указаны на рисунке рядом с объектами. Установить на форме 8 текстовых полей с одинаковым свойством Name – Text1, но различными значениями свойства Index: от 0 до 7. Текстовые поля должны представлять собой контрольный массив. Нумерация полей – по строкам.

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