15电气1班麻天骄作业
2016-03-31 17:38
225 查看
生成10个数作业
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim wzs(10) As Integer
n = 1
While n <= 10
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print wzs(n)
n = n + 1
Wend
End Sub
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim wzs(10) As Integer
n = 1
While n <= 10
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print wzs(n)
n = n + 1
Wend
End Sub
相关文章推荐
- android: 接收和发送短信
- java文件上传和下载
- java多线程-synchronized
- 数据结构: 链表基础
- Android App中实现简单的刮刮卡抽奖效果的实例详解
- GCD多线程的使用
- cookie和session
- 必须原创
- url参数中带有&号,需要用先把url做个解析,使其方便在网络上传递
- WSGI是什么
- S5PV210串行通信接口详解1
- 创建MyOffice项目
- A Byte of Python 笔记(7)数据结构:列表、元组、字典,序列
- Android 快速开发框架之——AndroidFine
- 如何计算物料品种数
- Spring MVC和Struts2的区别1
- linux(centos)用户与权限
- CodeForces 368B-Sereja and Suffixes【模拟】
- 原子操作为啥比较快
- Centos 7.0 安装nginx