shiliujinzhi
2016-04-28 17:44
204 查看
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
相关文章推荐
- 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分析
- 对石家庄铁道大学网站UI的分析
- JSTL分割字符串并获取没一个子字符串
- linux-Centos-7-64位:5、 nginx代理+sticky模块实现基于cookie的负载均衡
- 1
- nyoj 108 士兵杀敌一
- 合理使用Android提供的Annotation来提高代码的质量
- Java中的@SuppressWarnings
- Android重要组件ListView的技术使用,研究。(持续更新...)
- Android中引起内存泄露的原因分析