概述
Option Explicit
Private Sub Command1_Click()
Cls
Dim a(10) As Integer
Dim n As Integer
Dim sum As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 100)
Print a(n)
n = n + 1
Wend
For n = 1 To 10
sum = sum + a(n)
Next
Print sum
End Sub
最后
以上就是复杂羽毛为你收集整理的“随机十个数相加” 之for 篇的全部内容，希望文章能够帮你解决“随机十个数相加” 之for 篇所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
![随机生成10个8位数[0-9]、[a-z]、[A-Z]](/uploads/reation/bcimg8.png)
发表评论 取消回复