16进制的转换
2016-05-07 17:06
148 查看
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
相关文章推荐
- IOS NSTimer 定时器用法总结
- 第一章 JAVA入门(Hello World)
- 栈与队列的互相转化
- PowerDesigner 的 COMMENT注释
- 整理音乐
- 机器学习中的数学(2)-线性回归,偏差、方差权衡
- 【jQuery/CSS】显示或隐藏元素
- Object-c------NSArray的简单介绍
- C++实验五——数组的分离。
- dpdk编译安装
- 【2016】四月份英语学习总结
- 使用Spinner实现省市三级联动
- MySQL学习5:数据库基本操作
- RMAN备份动态性能视图 V$BACKUP_SET_SUMMARY
- IP地址与域名之间的转换(Windows + Visual Studio 2015)
- 栈与队列的互相转化
- linux平台下防火墙iptables原理
- 机器学习中的数学(1)-回归(regression)、梯度下降(gradient descent)
- Eclipse找不到或无法加载主类
- 闭包