作业作业
2016-04-07 16:27
204 查看
Private Sub Command1_Click()
Dim n As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
Dim n As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
相关文章推荐
- 又一次作业
- 前端开发面试题--html
- PowerManager屏幕休眠断网与距离感应器P-Sensor
- 输入法查找—JAVA
- jsoncpp库
- 关于tableView你不知道的那些事
- 快速排序 - Qucik Sorting
- iOS 模态窗口居中弹出背景半透明
- 四、OpenStack入门 之 各组件解析(进阶)
- Unity Drawcall 优化
- 十个随机数相加
- Android开发之高效加载Bitmap
- Android网络通信的六种方式
- 用GNS做多区域的OSPF
- mysql修改root密码
- ant 将JAVA Web工程部署成war包
- js实现商品抛物线加入购物车特效
- MVC学习系列——参考
- 三、OpenStack入门 之 各组件解析
- xUtils3 详解