| Код |
Const HexDigits$ = "0123456789ABCDEF"
Private Sub Command1_Click()
On Error GoTo err
xNum& = InputBox("Input decimal number: ")
xNum2& = xNum&
xOct$ = ""
Do While xNum& > 0
xOct$ = Mid$(HexDigits$, 1 + (xNum& Mod 8), 1) & xOct$
xNum& = xNum& \ 8
Loop
xHex$ = ""
Do While xNum2& > 0
xHex$ = Mid$(HexDigits$, 1 + (xNum2& Mod 16), 1) & xHex$
xNum2& = xNum2& \ 16
Loop
Print "It's equal to "; xOct$; " in octal and "; xHex$; " in hexadecimal."
err:
Exit Sub
End Sub
|
|