十个随机数求和
来源:互联网 发布:世界最快的数学计算法 编辑:程序博客网 时间:2024/06/07 12:25
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
Dim i As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
0 0
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和
- 十个随机数的求和
- 十个随机数求和 一
- 十个随机数求和 二
- 十个随机数求和 三
- 十个随机数求和 四
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和 1044 郑明雨
- 随机十个数求和
- 十个随机数字求和
- 十个随机变量的求和
- 随机十个数求和
- 任意十个数求和
- 十个随机数的生成
- 生成十个随机数
- Matlab R2014a 由.m文件产生C代码,并在VS2010中测试
- 获取driver导出的所有symbol
- 【LeetCode】51. N-Queens
- 【bzoj3171】[Tjoi2013]循环格
- 条码扫描二维码扫描——ZXing android 源码简化
- 十个随机数求和
- linux中强大且常用命令:find、grep
- 32. Magento log()方法
- 约瑟夫环的问题与应用(JAVA)
- 使用Android Studio的lint清除无用的资源文件
- 利用LoaderManager加载相册图片
- Cocos2d-JS 笔记(SUN)
- Ruby On Rails--Active Record Query Interface(数据库查询)
- RDD操作详解1——Transformation和Actions概况