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

一，十进制化二进制

在左侧工具栏中选中"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