转化为十六的数
2016-05-12 17:24
274 查看
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
相关文章推荐
- Spring整合redis
- 自制反汇编逆向分析工具 迭代第六版本 (一)
- mathtype 快捷键总结
- Web Component--01. 简介
- Github git clone error: Peer's Certificate has expired
- HTML5 视频播放 <video>
- Github git clone error: Peer's Certificate has expired
- Github git clone error: Peer's Certificate has expired
- Github git clone error: Peer's Certificate has expired
- iOS蓝牙开发(下)一个好用的蓝牙第三方BabyBluetooth
- NYOJ 21 三个水杯(bfs,广搜)
- Linux之————守护进程与crond定时任务 推荐
- select函数详解
- 冒泡排序法
- java的数组
- CocoaPods本地库管理
- 星级评分RatingBar
- 【opencv】神经网络识别数字
- python里面的dict和set
- Is it possible to simulate a new addressing scheme for MANETs using GNS3 ?