VB程序生成随机数及求和
本文介绍了一个使用Visual Basic编写的简单程序，该程序能够生成一组随机整数并计算这些整数的总和。通过三个循环结构，程序依次实现了生成随机数、显示每个生成的数字以及计算所有数字的总和并输出。
继续写上！！！
Private Sub Command1_Click()
ClsDim n As Integer
Dim s As Integer
Dim a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print a(n)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print s
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
