Система счисления - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Прошу помочь, по-возможности! Нужно написать программу: -введенное число перевести в выбранную систему числения; -и может выполнять действия после перевода;(между результатами) Спасибо!

Решение задачи: «Система счисления»

textual
Листинг программы
Private Sub Command1_Click()
If IsNumeric(Text1) = False Then
MsgBox ("Ââåäèòå ÷èñëî")
Exit Sub
End If
Dim a As Single, rez() As Single, rezult() As Single, sss As String
a = Text1
k = 1
Label1:
ReDim Preserve rez(1 To k) As Single
c = a \ 2
x = c * 2
rez(k) = a - x
a = c
If a = 0 Then GoTo Label2
k = k + 1
If a = 1 Then
ReDim Preserve rez(1 To k) As Single
rez(k) = 1
GoTo Label2
End If
GoTo Label1
Label2:
ReDim Preserve rezult(1 To k) As Single
For i = 1 To k
rezult(k + 1 - i) = rez(i)
Next i
For i = 1 To k
sss = sss & rezult(i)
Next i
Label3 = "ÐåçóëüòГ*ГІ: " & sss
End Sub

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы