vb12
来源：互联网 发布：夜场人才招聘系统源码 编辑：程序博客网 时间：2024/05/01 23:29
Private Sub Command1_Click()
Cls
Dim a As Integer, i As Integer, sum As Integer
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox “10个随机数的和为： ” & sum
Next
End Sub
0 0
