本文介绍了一个使用VBScript编写的简单程序，该程序能够生成10个1到1000之间的随机整数并计算这些数的总和。通过定义数组存储随机数并利用循环进行求和操作，最终输出总和。
《一》Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Dim sum As Integer
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
Dim sum As Integer
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
sum = sum + a(i)
Next i
Print sum
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
