Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
Do While i <= 10
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数的和为:" & sum
End Sub
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
Do While i <= 10
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数的和为:" & sum
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
