这次比上次就easy多了
2016-03-31 16:42
99 查看
Private Sub Command1_Click()
Cls
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
一定要按套路出牌....
Cls
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
一定要按套路出牌....
相关文章推荐
- HDU 3259 Wormholes
- 函数——小程序,大作用
- zsh中的历史命令搜索
- Genymotion常见问题汇总(转)
- 简单错误记录
- C++继承时派生类的成员访问属性
- LeetCode 问题汇总(算法,难度,频率)
- iframe里面提交表单页面跳转问题
- 最频繁执行的存储过程,执行次数最多的存储过程
- vb2
- 【BZOJ1016】[JSOI2008]最小生成树计数【最小生成树】【搜索】
- 迭代器和算法
- Spring Bean 创建过程
- IOS UI学习教程之使用代码创建button
- 摆出十五个数
- Dubbo学习(七):服务的升级和降级
- adb logcat命令查看 log
- Java解决火狐浏览器使用uploadify上传报错302以及报IO error错问题
- 我的主人是二货
- ViewPager加载多图时避免OOM