Hex()
如:10(十進制):Hex(10)=A
轉換成8進制Oct()
如:10(十進制):Oct(10)=12
轉換成2進制,使用下面的方法
'采用連除2取余數,將壹個十進制數轉換為二進制數
Dim
Dec
As
Integer
'輸入壹個十進制數
Dim
Bin
As
String
'轉換為二進制表示
Dim
res
As
Integer
Dim
i
As
Integer
Dec
=
Val(InputBox("x="))
Form1.Print
"十進制數:";
Dec
Do
res
=
Dec
Mod
2
'求出除以2的余數
Bin
=
res
&
Bin
Dec
=
Dec
\
2
Loop
While
Dec
<>
0
Form1.Print
"轉換為二進制數為:";
Bin