随机十个数求和
2016-04-07 16:24
281 查看
今天新学的,趁热打铁!!!! 赶紧写上!! 省着以后补!!
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Dim sum As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
sum = sum + a(i)
Next i
Print sum
End Sub
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Dim sum As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
sum = sum + a(i)
Next i
Print sum
End Sub
相关文章推荐
- Linux alias --设置命令的别名
- navicate Premium注册码
- 问卷调查
- 在Mac终端中使用vim编辑文件步骤
- php等守护进程监控脚本(转载 http://www.9958.pw/post/php_script_scan)
- DynamicJSONserializer
- LeakDiag的使用和形成的LOG文件的分析方法
- isKindOfClass|isMemberOfClass|conformsToProtocol|respondsToSelector|methodForSelector的详细介绍和区别
- Android 辅助服务资料收集
- java使用数组实现循环队列
- spring中事务传播下,特殊方法手动控制事务
- eclipse集成NDK开发环境
- 微信公众平台开发4-access_token获取与保持有效性
- Eclipse如何查看源码
- HDU 1049
- rabbitmq安装总结
- 二叉树--前序遍历、中序遍历、后序遍历、层次遍历
- 1000以内任意十个整数之和
- C++多线程编程参考
- Oracle的sql语句练习题含答案