十进制转化成十六进制i
2016-05-07 17:18
267 查看
老师,我就问一句,yushu+55 什么意思?!
Private Sub Command1_Click()
Me.Font.Size = 50
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
s = f(yushu) & s
a = a \ b
Wend
Print s
End Sub
Private Function f(yushu As Byte) As String
If yushu <= 9 Then
f = yushu
Else
f = Chr(yushu + 55)
End If
End Function
Private Sub Command1_Click()
Me.Font.Size = 50
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
s = f(yushu) & s
a = a \ b
Wend
Print s
End Sub
Private Function f(yushu As Byte) As String
If yushu <= 9 Then
f = yushu
Else
f = Chr(yushu + 55)
End If
End Function
相关文章推荐
- HDU 4165 Pills (DP卡特兰数列)
- 几进制的转换
- html5新增加的表单元素-output
- HTML5网页打开摄像头,并拍照
- Bomb第三方支付
- 二叉数查找指定结点
- 一起学Netty(七)之 TCP粘包拆包基本解决方案
- 接口测试关注点、常用工具
- UVA, 820 Internet Bandwidth
- APP中缓存、加载与刷新机制设计
- html5新增加的表单元素-Keygen
- 2138的16进制简单的
- ContentProvider使用拾遗
- 十进制换成十六进制
- 一起学Netty(六)之 TCP粘包拆包场景
- 练习三 1003
- 一起学Netty(五)之 初识ByteBuf和ByteBuf的常用API
- MWC-MWC2.3代码RC数据接收代码理解
- 如何在github上展示作品——为你的项目生成一个快速访问的网址如(DaisyWang88.github.io)
- 韩信点兵(hanxin)