访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

下面是引用panasonic732于2004-12-30 13:07发表的 [教学]进制转换:
以下是10进制转2进制的写法
可以尝试看看，如何写10进制转八进制、二进制、十六进制
可以写成分别转，也可以一个程式转全部喔...
当然设定上有不同喔
例如转任何进制就要使用者输入要转哪个进制
.......

Dim ans As Long, i As Integer
Dim x As String
    
x = Text1.Text
i = 0

While i < Len(x)
    ans = ans + Mid(x, Len(x) - i, 1) * 2 ^ i
    i = i + 1
Wend
MsgBox ans

可以的话还可以判断输入的数是否小于2
by panasonic732