123
来源:互联网 发布:pscad软件介绍 编辑:程序博客网 时间:2024/06/11 10:28
Private Sub Command1_Click()
Me.Font.Size = 60
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 5
shang = n \ er '11
yushu(i) = n Mod er '1
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
Ened Sub
Me.Font.Size = 60
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i As Byte
i = 5
shang = n \ er '11
yushu(i) = n Mod er '1
While shang <> 0
i = i - 1
n = shang '11 5 2 1
shang = n \ er '5 2 1 0
yushu(i) = n Mod er '1 1 0 1
Ened Sub
0 0
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- 123
- ElasticSearch学习16_Elasticsearch java api 基本使用之增、删、改、查
- Android SwipeRefreshLayout 官方下拉刷新控件使用
- iOS SQLite3数据库操作
- 【转】JAVA的反射机制-实例详解
- 实现按两次退出应用
- 123
- thinkphp使用redis存储session
- JVM
- 专题三1012
- 文章标题
- 横竖屏切换导致国际化的问题
- VF01开票自动生成会计凭证
- struts自定义拦截器解读
- 23的·16进制