循环(5 )
2016-04-14 16:37
204 查看
Private Sub Command1_Click()
Dim sum As Integer
Dim n As Integer
Dim a(10) As Integer
Randomize
For n = 1 To 10
a(n) = (Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
For n = 1 To 10
Print a(n)
Next
End Sub
Dim sum As Integer
Dim n As Integer
Dim a(10) As Integer
Randomize
For n = 1 To 10
a(n) = (Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
For n = 1 To 10
Print a(n)
Next
End Sub
相关文章推荐
- 欢迎您在新浪博客安家
- JS 获取样式属性
- Springmvc注解优化
- JavaWeb中的Filter
- Android SDK Manager国内无法更新的解决方案(亲测有效)
- 问题:UIButton 添加倒计时功能后会一闪一闪
- Android学习路线指南
- 定时器开启
- Hibernate学习(2)
- iOS抽屉效果
- Request对象
- 淘宝天猫网站停止支持IE6、IE7浏览器,你还在用xp吗?
- spring 事务控制
- vs2010操作office2010
- LeetCode:Convert Sorted List to Binary Search Tree
- UIAlertView' is deprecated: first deprecated in iOS 9.0 - UIAlertView is deprecated. Use UIAlert
- Springmvc注解启用
- Java内部类:概览(一)
- Java transient关键字
- HandlerThread的用法与自定义HandlerThread(1)