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