[Visual Basic 6.0] 二進位與十進位的轉換

2013-11-16

9865
0
Visual Basic 6.0
2013-12-11

摘要:[Visual Baisc 6.0] 二進位與十進位的轉換

# 二進制是逢2進位的進位制。0、1是基本算符。現代的電子計算機技術全部採用的是二進制，因為它只使用0、1兩個數字元號，非常簡單方便，易於用電子方式實現。


'# [Visual Baisc 6.0] 二進位與十進位的轉換
'# 0xDe

Private Sub Command1_Click() ' 二進位轉十進位
    Text2 = 0
    
    For I = Len(Text1) To 1 Step -1
        Text2 = Text2 + 2 ^ (Len(Text1) - I) * Mid(Text1, I, 1) ' 2^N 次方 * (0 OR 1)
    Next I
End Sub

Private Sub Command2_Click() ' 十進位轉二進位
    Text4 = ""
    Inp = Val(Text3)
    Do Until Inp <= 0
        Text4 = Inp Mod 2 & Text4 ' 直式運算
        Inp = Inp \ 2
    Loop
End Sub

[Visual Baisc 6.0] 二進位與十進位的轉換.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁