十进制到16进制
2016-04-28 17:46
204 查看
Private Sub Command1_Click()
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 16
Dim shang As Byte
Dim yushu(1 To 2) As Byte
Dim i As Byte
i = 2
shang = n \ er
yushu(i) = n Mod er
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2);
End Sub
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 16
Dim shang As Byte
Dim yushu(1 To 2) As Byte
Dim i As Byte
i = 2
shang = n \ er
yushu(i) = n Mod er
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2);
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐