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. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить проект и форму.