十进制转换十六进制
2016-05-07 17:23
162 查看
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim yushu As Integer
a = 1230: b = 16
4000
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print s
End Sub
Dim a As Integer
Dim b As Integer
Dim yushu As Integer
a = 1230: b = 16
4000
While a <> 0
yushu = a Mod b
If yushu < 10 Then
s = yushu & s
Else
s = Chr(yushu + 55) & s
End If
a = a \ b
Wend
Print s
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- linux系统被入侵后处理经历
- 第12课：HA下的Spark集群工作机制解密
- 字符串排序-低位优先（LSD)
- 霍夫曼树 编码
- 极光推送集成及注意事项（AndroidStudio）
- 第一次课总结
- 15电气李书鹏5月7日VB作业（1）
- 16进制
- 十进制转化为十六进制2
- Android中解析XML
- 进度条（4.25-5.7两周）
- 十六进制
- 十进制改为十六进制
- Java分布式应用技术架构介绍
- html5新增的元素类型
- C#调用C++的DLL搜集整理的所有数据类型转换方式
- [置顶] 【Eclipse+PyDev】字体、颜色和背景的个性化设置
- android之MVP模式(一)
- getDrawable(int) is deprecated
- Java基本数据类型的初始值