Private Sub Form_Activate()

Combo1.AddItem ("2")

Combo1.AddItem ("3")

Combo1.AddItem ("4")

Combo1.AddItem ("5")

Combo1.AddItem ("6")

Combo1.AddItem ("7")

Combo1.AddItem ("8")

Combo1.AddItem ("9")

End Sub

Private Sub Command1_Click()

Dim s As String

Dim l, c, r As Single

Dim i As Integer

s=""

c=Val(Text1.Text) 'введенное число

l=Val(Combo1.Text) 'система счисления

r=Int(c/l) 'первое частное

i=c-r*l 'первый остаток

s=s+Str(i) 'результат

Do While r>=1 'цикл

c=r 'новое делимое равно последнему частному

r=Int(c/l)

i=c-r*l 'новый остаток деления

s=Str(i)+s 'результат в обратном порядке

Loop

Rez.Caption=s

End Sub

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

Выполните самостоятельно!

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

1. Создать новый проект и программу для нахождения кол-ва слов, заканчивающихся на заданное сочетание из 2-х букв. Открыть проект, созданный в ходе выполнения работы № 3.2. Макет формы на рис. 15.

2. Изменить строковую функцию с Left$(chisarr(i),1) на Right$(chisarr(i),2).

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

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

1. Создать новый проект и программу для нахождения кол-ва чисел, содержащих заданное сочетание из 3-х цифр начиная с 3-й позиции. Открыть проект, созданный в ходе выполнения работы № 3.2. Макет формы показан на рис. 15.

2. Изменить строковую функцию с Left$(chisarr(i),1) на Mid$(chisarr(i),3, 3).

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