8.2016 物电学院电气工程及其自动化辛雅松 15050341033

最新推荐文章于 2021-01-21 11:25:48 发布

君自取

最新推荐文章于 2021-01-21 11:25:48 发布

阅读量449

点赞数 1

本文链接：https://blog.csdn.net/KAISAXIN/article/details/51275648

版权

一，十进制化二进制

在左侧工具栏中选中"CommandButton"，在 Font1 中选择大小适宜的区域，绘出 Command1 。

Private Sub Command1_Click()
    Cls
    Me.Font.Size = 60
    Print erjinzhi(23)
End Sub
Private Function erjinzhi(y As Long) As String
    Dim x As Long
    x = y
    Const n As Byte = 2
    Dim returns As String
    Dim shang As Long
    Dim yu(1 to 32) As Long
    Dim i As Byte
    i = UBound(yu)
    shang = x \ n
    yu(i) = x Mod n
    returns = yu(i) & returns
    While shang <> 0
        i = i - 1
        x = shang
        shang = x \ n
        yu(i) = x Mod n
        returns = yu(i) & returns
    Wend
    erjinzhi = returns
End Function

二，十进制化十六进制

在左侧工具栏中选中"CommandButton"，在 Font1 中选择大小适宜的区域，绘出 Command1 。

Private Sub Command1_Click()
    Cls
    Me.Font.Size = 60
    Print erjinzhi(23)
End Sub
Private Function erjinzhi(y As Long) As String
    Dim x As Long
    x = y
    Const n As Byte = 16
    Dim returns As String
    Dim shang As Long
    Dim yu(1 to 32) As Long
    Dim i As Byte
    i = UBound(yu)
    shang = x \ n
    yu(i) = x Mod n
    returns = yu(i) & returns
    While shang <> 0
        i = i - 1
        x = shang
        shang = x \ n
        yu(i) = x Mod n
        returns = yu(i) & returns
    Wend
    erjinzhi = returns
End Function