Перевод из системы по основанию 2 в систему по основанию 8; - VB
Формулировка задачи:
Помогите пожалуйста решить задачку.
Перевод из системы по основанию 2 в систему по основанию 8
Решение задачи: «Перевод из системы по основанию 2 в систему по основанию 8;»
textual
Листинг программы
Private Sub Form_Load()
Dim S As String, i As Integer, n As Integer, z As String
S = InputBox("Ââåäèòå äâîè÷Г*îå ÷èñëî")
n = 0
For i = 1 To Len(S)
n = n + CInt(Mid(S, i, 1)) * 2 ^ (Len(S) - i)
Next i
MsgBox n
While (n > 0)
z = CStr(n Mod 8) + z
n = n \ 8
Wend
MsgBox S + "=" + CStr(z)
End
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д