VB編程:用戶輸入壹個十進制數，通過菜單項選擇該數轉換為八進制和十六進制數

Private Sub OCT_Click()

Dim n As Long

n = CInt(Text1.Text)

Label1.Caption = ""

Do

Label1.Caption = n Mod 8 & Label1.Caption

n = n \ 8

Loop While n > 0

Label1.Caption = "八進制：" & Label1.Caption

End Sub

Private Sub HEX_Click()

Dim n As Long, t As Long

n = CInt(Text1.Text)

Label2.Caption = ""

Do

t = n Mod 16

If t < 10 Then

? Label2.Caption = t & Label2.Caption

Else

? Label2.Caption = Chr(t + 55) & Label2.Caption

End If

n = n \ 16

Loop While n > 0

Label2.Caption = "十六進制：" & Label2.Caption

End Sub

上一篇:C語言水平考試有幾級？

下一篇:系統建模與仿真技術基礎難嗎