随机10个数和 一
2016-04-07 16:29
323 查看
Private Sub Command1_Click()
Sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
Sum = Sum + a
MsgBox "10个随机数和为:" & Sum
Next
End Sub
Sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
Sum = Sum + a
MsgBox "10个随机数和为:" & Sum
Next
End Sub
相关文章推荐
- vb6
- 图片水印
- Android系统开发之五:多线程编程详解(Handler ,Looper , Message , MessageQueue)
- 用不同的方法进行随机数的相加
- POJ 3666 Making the Grade【DP】
- POJ 3666 Making the Grade【DP】
- 深度评测xcgui
- WebSphere 中池资源调优 - 线程池、连接池和 ORB
- 基于XMPP协议的Android IM研究
- 嵌入式系统GPS模块设备编程
- linux下ACE工具包的编译安装
- 六、OpenStack入门 之 扩展话题
- 随机生成10个数并求和法一
- Global.asax 文件之 Application_Error
- bootstrap 2.3版与3.0版的使用区别
- win7 点IE浏览器无法打开
- 【License】一张图该诉你各种License的含义?
- hdu5502
- 作业作业2
- java.lang.NoClassDefFoundError: javax/servlet/SessionCookieConfig 原因分析与解决方案