转换为16进制
2016-05-19 17:54
183 查看
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 1230: b = 16
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 s As String
Dim yushu As Byte
a = 1230: b = 16
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
相关文章推荐
- 比较数的大小(冒泡法)
- opencv
- Dubbo测试
- 大数据量时Mysql的优化要点
- 【java】:java从零开始学1:环境配置
- 欢迎使用CSDN-markdown编辑器
- 00000
- 事件响应链,点击屏幕时是如何互动的,事件的传递
- 在eclipse中使用Lombok
- 64位linux下inet_ntop()返回值竟然为int,printf报段错误
- iphone app为什么会被打回来的一些情况,如何制止?
- SpringMVC+Spring4+Mybatis3集成,开发简单Web项目+源码下载
- 有用的技术大神网址
- HttpServletResponse不能导包
- 16进制
- 16进制的转换
- ios开发证书CER文件、P12文件,mobileprovition许可文件的用途
- Exchange 2013服务器常用的性能监视器
- 文章标题
- Tomcat解惑 之 CATALINA_HOME与CATALINA_BASE