訪客只能看到部份內容，免費 加入會員 或由臉書 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