十进制到十六进制

最新推荐文章于 2022-09-13 22:32:56 发布

guolu1

最新推荐文章于 2022-09-13 22:32:56 发布

阅读量305

点赞数

本文链接：https://blog.csdn.net/guolu1/article/details/51276397

版权

Private Sub Command1_Click()
    Me.Font.Size = 30
    Print shiliujinzhi(230)
End Sub
Private Function shiliujinzhi(m As Byte) As String
    Dim n As Byte
    n = m
    Const er As Byte = 16
    Dim returnS As String
    Dim shang As Byte
    Dim yushu() As Byte
    Dim i As Byte
    i = UBound(yushu)
    shang = n \ er
    yushu(i) =
    returnS = returnS & yushu(i)
    While shang <> 0
        i = i - 1
        n = shang
        shang = n \ er
        yushu(i) = n Mod er
        returnS = yushu(i) & returnS
    Wend
    shiliujinzhi = returnS
End Function