十进制向十六进制转化.
2016-05-07 17:44
369 查看
Private Sub Command1_Click()
Dim yushu As Byte
Dim a As Integer
Dim b 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 Byte) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu >= 10
Case yushu = 10
f = "A"
Case yushu = 11
f = "B"
Case yushu = 12
f = "C"
Case yushu = 13
f = "D"
Case yushu = 14
f = "E"
Case yushu = 15
f = "F"
End Select
End If
End Function
Dim yushu As Byte
Dim a As Integer
Dim b 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 Byte) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu >= 10
Case yushu = 10
f = "A"
Case yushu = 11
f = "B"
Case yushu = 12
f = "C"
Case yushu = 13
f = "D"
Case yushu = 14
f = "E"
Case yushu = 15
f = "F"
End Select
End If
End Function
相关文章推荐
- 选择法
- 在ASP.NET 2.0中操作数据之二十六:排序自定义分页数据
- boost::filesystem
- UVA, 112Tree Summing
- 用vb.net 导出word
- 16进制
- vb(选择法排序)
- 《JavaScript Ninja》之挥舞函数
- Servlet中使用RequestDispatcher调派请求--include
- Oracle学习系列7
- Javaweb容器的四种作用域
- [Android]为TextView提供双色文本配置的小工具ColorPhrase
- H5开发学习 ---- sublime text 使用
- 求助: Android 加载 webview, 点击webview 中网页时间, 如何触发 Android 事件
- 计算机漏洞安全相关的概念POC | EXP | VUL | CVE | 0DAY
- 随机产生10个数,并使用选择法,由大到小排序
- 0基础如何学习安卓开发
- 数据结构X实验一
- CSS 布局模型
- hdoj2045动态规划