回覆列表
-
1 # 使用者2458114238191884
相關內容
- 人類為什麼最終選擇了十進位制？十進位制與二進位制八進位制十六進位制的優劣勢在哪兒？
- 能詳細講解一下二進位制(B) 八進位制(O) 十進位制(D) 十六進位制(H)之間的互相轉換過程？
- 將十進位制數32.5轉換成對應的二進位制數、八進位制數和十六進位制數？
- 二進位制、八進位制、十進位制、十六進位制之間的轉換？
- 二進位制，八進位制，十進位制，十六進位制的轉換？
- 計算機二進位制，十進位制，八進位制，十六進位制怎麼轉換？
- 求一個C語言程式設計，題目：輸入一個只包含0和1的二進位制數，打印出相應的十進位制、八進位制和十六進位制形式？
- 1001由十進位制的，怎麼轉換成二進位制，八進位制和十六進位制。給點詳細步驟？
- 為什麼計算機的底層不用八進位制、十進位制、十六進位制等等？
Private Sub Text1_Change()
Dim n
If Len(Text1) > 0 And IsNumeric(Text1) Then
n = Val(Text1)
DEC_to_BIN n
DEC_to_OCT n
DEC_to_HEX n
Else
Text1 = ""
End If
End Sub
Sub DEC_to_BIN(ByVal Dec)
Label5.Caption = ""
Do While Dec > 0
Label5.Caption = Dec Mod 2 & Label5.Caption
Dec = Dec \ 2
Loop
End Sub
Sub DEC_to_OCT(ByVal Dec)
Label6.Caption = ""
Do While Dec > 0
Label6.Caption = Dec Mod 8 & Label6.Caption
Dec = Dec \ 8
Loop
End Sub
Sub DEC_to_HEX(ByVal Dec)
Dim a As String
Label7.Caption = ""
Do While Dec > 0
a = CStr(Dec Mod 16)
Select Case a
Case "10": a = "A"
Case "11": a = "B"
Case "12": a = "C"
Case "13": a = "D"
Case "14": a = "E"
Case "15": a = "F"
End Select
Label7.Caption = a & Label7.Caption
Dec = Dec \ 16
Loop
End Sub