1230转换成16进制
来源:互联网 发布:centos安装iso文件 编辑:程序博客网 时间:2024/05/22 08:09
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Integer
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 Integer) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu
Case 10, 11, 12, 13, 14, 15
f = Chr(yushu + 55)
End Select
End If
End Function
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Integer
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 Integer) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu
Case 10, 11, 12, 13, 14, 15
f = Chr(yushu + 55)
End Select
End If
End Function
0 0
- 1230转换成16进制
- 字符串转换成16进制
- oc 颜色转换 16进制 转换成RGB
- 16进制转换成10进制
- _objective-c 十进制转换成16进制
- delphi10进制转换成16进制
- 二进制转换成16进制 java string
- ip地址转换成16进制long
- 10进制转换成16进制
- ASCII字符串转换成16进制
- 把230转换成16进制
- 将二进制转换成16进制
- 10进制数转换成16进制
- Java byte转换成16进制int
- 字符串转换成16进制//16进制转换成字符串//16进制转换成ASCII码
- 16进制、中文转换
- 转换为16进制
- 转换成k进制
- oracle小知识总结
- jsonp跨域调用
- LeetCode 38. Count and Say
- JavaScript
- AngularJs事件绑定例子
- 1230转换成16进制
- git cherry-pick的使用举例
- 【深入理解JVM】:推荐阅读
- iOS开发之自定义导航栏返回按钮右滑返回手势失效的解决
- OpenGL Frame Buffer管理
- 16进制
- 关于微信开发的时候将IP映射到公网上
- Spring记录之模拟IoC(三)
- ENVI中基于Modis影像提取NDVI处理步骤