Dim a10, a3, i, b As Integer

Dim s As String

a10=Text1.text

a3=Text2.text

s=Str(a3)

For i=Len(s) To 1 Step -1

b=b+Val(Mid(s, i, 1))*3^(Len(s)-i)

Next

Text3.text=a10+b

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

 

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

1. Создать новый проект и программу для перевода положительного целого десятичного числа в 5СС. Макет формы показан на рис. 19.

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

Dim a10, ost As Integer

Dim s As String

a10=Val(Text1.text)

If a10>4 Then

Do

ost=a10 Mod 5

s=ost & s

a10=a10\5

Loop While a10>=5

s=a10 & s

Else

s=a10

End If

Text2.Text=s

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

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

1. Создать новый проект и программу. Программа создает список чисел. Заполнение списка осуществляется кнопкой добавить. При добавлении числа автоматически в форме отображаются максимальное и минимальное из чисел списка. При выделении числа в списке оно автоматически отображается меткой текущее число. Выделенное в списке число можно удалить одноименной кнопкой. Кнопка переопределить предназначена для отображения на форме новых максимального и минимального из чисел списка после удаления позиций списка. Кнопка очистить список удаляет все содержимое списка.

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

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

Dim lngMaxNum As Single

Dim lngMinNum As Single

Dim strList(100) As Single

Dim intListElem As Integer

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

Private Sub dobav_Click()

If newchis.Text<>"" Then

Spisok.AddItem newchis.Text

strList(intListElem)=newchis.Text

intListElem=intListElem+1

If lngMaxNum<=newchis.Text Then

lngMaxNum=newchis.Text

End If

If lngMinNum>=newchis.Text Then

lngMinNum=newchis.Text

End If

newchis.Text=""

maxnum.Caption=lngMaxNum

minnum.Caption=lngMinNum

End If

Newchis.SetFocus

End Sub

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

Private Sub udal_Click()

Dim i As Integer

For i=spisok.ListIndex To 99

strList(i)=strList(i+1)

Next i

intListElem=intListElem-1

Spisok.RemoveItem spisok.ListIndex

tekchis.Caption=""

Spisok.Refresh

Newchis.SetFocus

End Sub

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

Private Sub opred_Click()

Dim i As Integer

lngMaxNum=-14000000000#

lngMinNum=14000000000#

For i=0 To intListElem-1

If lngMaxNum<=strList(i) Then

lngMaxNum=strList(i)

End If

If lngMinNum>=strList(i) Then

lngMinNum=strList(i)

End If

Next i

maxnum.Caption=lngMaxNum

minnum.Caption=lngMinNum

Newchis.SetFocus

End Sub

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

Private Sub ochis_Click()

Dim i As Integer

Spisok.Clear

For i=1 To intListElem

strList(i)=0

Next i

Newchis.SetFocus

maxnum.Caption=""

minnum.Caption=""

End Sub

Программный код для формы:

Private Sub Form_Activate()

Newchis.SetFocus

lngMaxNum=-14000000000#

lngMinNum=14000000000#

End Sub

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

Private Sub spisok_Click()

tekchis.Caption=spisok.Text

End Sub

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

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

1. Создать новый проект и программу. Программа создает список строк. Заполнение списка осуществляется кнопкой добавить. При добавлении строки автоматически в форме отображаются максимальная и минимальная по длине из строк списка. При выделении строки в списке она автоматически отображается меткой текущая строка. Выделенную в списке строку можно удалить одноименной кнопкой. Кнопка переопределить предназначена для отображения на форме новых максимальной и минимальной из строк списка после удаления позиций списка. Все содержимое списка удаляется кнопкой очистить список.

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

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

Dim maxl As String

Dim minl As String

Dim stl(100) As String

Dim ilem As Integer

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

Private Sub dobav_Click()

If nst.Text<>"" Then

Sp.AddItem nst.Text

stl(ilem)=nst.Text

ilem=ilem+1

If Len(maxl)<=Len(nst.Text) Then

maxl=nst.Text

End If

If Len(minl)>=Len(nst.Text) Then

minl=nst.Text

End If

nst.Text=""

max.Caption=maxl

min.Caption=minl

End If

Nst.SetFocus

End Sub

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

Private Sub udal_Click()

Dim i As Integer

For i=sp.ListIndex To 99

stl(i)=stl(i+1)

Next i

ilem=ilem-1

Sp.RemoveItem sp.ListIndex

tekstr.Caption=""

Sp.Refresh

End Sub

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

Private Sub sp_Click()

tekstr.Caption=sp.Text

End Sub

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

Private Sub ochis_Click()

Sp.Clear

Nst.SetFocus

End Sub

Программный код для формы:

Private Sub Form_Activate()

Nst.SetFocus

maxl="*"

minl=Space(256)

End Sub

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

Private Sub opred_Click()

Dim i As Integer

maxl="*"

minl=Space(256)

For i=0 To ilem-1

If Len(maxl)<=Len(stl(i)) Then

maxl=stl(i)

End If

If Len(minl)>=Len(stl(i)) Then

minl=stl(i)

End If

Next i

max.Caption=maxl

min.Caption=minl

Nst.SetFocus

End Sub

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