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

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

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

 

 

# 二進制是逢2進位的進位制01是基本算符。現代的電子計算機技術全部採用的是二進制,因為它只使用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) 有問題歡迎提問