15电气李书鹏4月28日VB作业（2）

将十进制数转换为十六进制数

例如将230转换为十六进制数

建立一个command 在command中输入以下内容

Private Sub Command1_Click()
    Me.Font.Size = 60
    Print D2H(230)
End Sub
Public Function D2H(Dec As Long) As String
     Dim a As String
     D2H = ""
     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
         D2H = a & D2H
         Dec = Dec \ 16
     Loop
End Function
点击运行即可