Система счисления - 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