shiliujinzhi
来源:互联网 发布:三星打印机扫描软件 编辑:程序博客网 时间:2024/04/29 12:11
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
0 0
- shiliujinzhi
- 字符串常用操作的实现
- Android开发,关于aar你应该知道的
- 【Arduino官方教程第一辑】示例程序 2-7 使用tone()函数弹奏一段小曲
- unity3D 彻底搞懂 Quaternion LookRotation FromToRotation SetLookRotation方法
- androidstudio 常用快捷键
- shiliujinzhi
- 《招聘一个靠谱的iOS》面试题参考答案(上)
- Linux系统调用Hook
- shijiujinzhi
- 深度学习文档1.0
- vb
- IOS上路_01-Win7+VMWare9+MacOSX10.8+XCode4.6.3
- HBase数据模型(2)
- 字符串库函数的应用举例