还是vb问题，希望有各位的帮助

来源：百度知道 编辑：UC知道 时间：2024/06/19 05:07:01
窗体上生成8个文本框的文本框控件数组，由随机数产生8个 30～90的随机数赋予文本控件数组。在图形框输出控件元素值大于75的数的和，数的个数及平均值..
.谢谢各位啦

Private Sub Command1_Click()
Dim i%, j%, AddNum%
Randomize

For i = 0 To 7
Text1(i) = Int(61 * Rnd + 30)
If Val(Text1(i)) > 75 Then
AddNum = AddNum + Val(Text1(i))
j = j + 1
End If
Next

Picture1.Print "大于75的数总和为:"; AddNum
Picture1.Print "大于75的数个数为:"; j
Picture1.Print "大于75的数的平均数为:"; AddNum / j
End Sub