十六进制的转换
2016-05-07 17:07
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
相关文章推荐
- hdu 5677 ztr loves substring【回文Manacher+多重背包】
- 机器学习中的数学(4)-线性判别分析(LDA), 主成分分析(PCA)
- IOS NSDate日期操作总结
- 第一章 JAVA入门(Main函数简介)
- Codeforces Beta Round #97 (Div. 1) A. Replacement 水题
- 二叉树
- 求任意范围内回文素数c++解决方案(解决了地址释放的问题,附错误原因简述)
- 十六进制的编程
- 基于R-CNN的物体检测
- 机器学习中的数学(3)-模型组合(Model Combining)之Boosting与Gradient Boosting
- poj,1273Drainage Ditches
- 《Hibernate学习笔记十》:多对多关联关系详解
- Windows安装AndroidStudio开发软件
- 16进制的转换
- IOS NSTimer 定时器用法总结
- 第一章 JAVA入门(Hello World)
- 栈与队列的互相转化
- PowerDesigner 的 COMMENT注释
- 整理音乐
- 机器学习中的数学(2)-线性回归,偏差、方差权衡