VB产生随机并求和求平均

来源：百度知道 编辑：UC知道 时间：2024/05/12 01:52:21
各位高手 帮忙在-----填一下

Private Sub Form_Click()
Dim a(10), i As Integer, s As Integer
Randomize
For i = 1 To 10
a(i) = Int((201 * Rnd) + 300)
Print a(i)
s = ----
Next i
Print
Print "和="
Print "平均值="; s / 10
Print
End Sub

Private Sub Form_Click()
Dim a(10), i As Integer, s As Integer
Randomize
For i = 1 To 10
a(i) = Int((201 * Rnd) + 300)
Print a(i)
s=a(i)+s
next i
print
print "和＝" ;s
Print "平均值="; s / 10
Print
End Sub

如下，怎么老说和别人的重复。。。

Private Sub Form_Click()
Dim a(10), i As Integer, s As Integer
Randomize
For i = 1 To 10
a(i) = Int((201 * Rnd) + 300)
Print a(i)
s = s + a(i)
Next i
Print
Print "和=" & s
Print "平均值="; s / 10
Print
End Sub

Private Sub Form_Click()
Dim a(10), i As Integer, s As Integer
Randomize
For i = 1 To 10
a(i) = Int((201 * Rnd) + 300)
Print a(i)
s = s+a(i)
Next i
Print
Print "和=" ;s
Print "平均值="; s / 10
Print
End Sub
还可以用指针或者函数过程来编写，指针用*p来定义，如果用函数的话，用function 函数名 参数来定义，呵呵