对任意10个数字求和（2）
2016-04-21 16:32
260 查看
打开vb
在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，
在弹出的表框中输入以下代码：
Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
sum = 0
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为：" & sum
End Sub
在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，
在弹出的表框中输入以下代码：
Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
sum = 0
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为：" & sum
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 接上一篇 word2vec调用demo
- 使用FileResult返回浏览器文件及乱码问题解决
- Winform混合式开发框架的特点总结
- C# 子窗体调用父窗体的方法
- weblogic服务器部署web代理修复weblogic的JAVA反序列化漏洞
- C++ 类的“三法则”
- POJ 2112 二分图
- 如何理解虚表及其计算含虚函数的类的大小
- 分析iframe标签在SEO中的利与弊
- Linux目录结构和常用命令
- c# 自定义扩展方法
- HDU1181 变形课 DFS
- 人生苦短，请好好珍惜自已的身体
- spark-submit python 程序，"/home/.python-eggs" permission denied 问题解决
- PHP的UTF-8中文转拼音处理类（性能已优化至极致）
- 用inotify监听文件或目录变化
- 构造函数不能为虚函数
- Ionic 坑总结
- Adam学习12之loadFasta中的Fragment参数配置
- don't run elasticsearch as root.