摘要:[Visual Baisc 6.0] 二進位與十進位的轉換
[Visual Basic 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) 有問題歡迎提問