15电气李书鹏5月7日VB作业（1）

将1230转换为16进制数字

建立一个command

在command中输入以下内容

Private Sub Command1_Click()

    Me.Font.Size = 30
    Dim a As Integer
    Dim b As Integer
    Dim s As String
    Dim yushu As Byte
    a = 1230: b = 16
    While a <> 0
        yushu = a Mod b
        s = f(yushu) & s
        a = a \ b
    Wend
Print s
End Sub

Private Function f(yushu As Byte) As String
    If yushu <= 9 Then
        f = yushu
    Else
        Select Case yushu
            Case 10, 11, 12, 13, 14, 15
            f = Chr(yushu + 55)
            End Select
    End If

运行即可