shijiujinzhi
2016-04-28 17:45
190 查看
Private Sub Command1_Click()
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 16
Dim shang As Byte
Dim yushu(1 To 2) As Byte
Dim i As Byte
i = 2
shang = n \ er
yushu(i) = n Mod er
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2);
End Sub
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 16
Dim shang As Byte
Dim yushu(1 To 2) As Byte
Dim i As Byte
i = 2
shang = n \ er
yushu(i) = n Mod er
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend
Print yushu(1); yushu(2);
End Sub
相关文章推荐
- 深度学习文档1.0
- 十五 安装第三方模块
- 初识软件体系结构(架构)
- 字符串常用操作的实现
- Android sqlite 主键自增长
- Debian8.4下搭建PG9.5的主备流复制
- 除微信顶部的“防欺诈盗号,请勿支付或输入qq密码”
- iOS语音书写功能(语音转文本)
- shiliujinzhi
- javascript获取当前的时间戳
- Debian 8(jessie)下设置系统启动直接进入命令行,无GUI
- 2016年4月26日作业
- 十进制转化为二进制和十六进制
- Rhino+envjs-1.2.js 在java运行网站js 工具类
- Android Dialog
- HttpClient介绍
- tomcat redis nginx 实现session共享
- 安装protocolbuffer详解 原创: http://cq520.iteye.com/blog/2024739
- 230转化成二进制
- 网站UI分析