Question

vbclick事件过程中生成20个【0,100】区间的随机整数，显示在第一个文本框中，在“求平均值”按钮的

click事件过程中生成20个【0,100】区间的随机整数，显示在第一个文本框中，在“求平均值”按钮的click时间过程中调用函数辅护滇咎鄄侥殿鞋东猫过程求这些随机整数的平均值，显示在第二个文本框中。

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Randomize
Text1.Text = ""
For i = 1 To 20
Text1.Text = Text1.Text & Int(Rnd() * 100 + 1) & " "
If i Mod 5 = 0 Then Text1.Text = Text1 & vbCrLf '每生成5个数换行 需要把Text1的MultiLine属性 设置为 True
Next
Text1.Text = Left(Text1, Len(Text1) - 1) '删除字符串最后面多余的空格
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim a As Integer
If Len(Text1) = 0 Then Exit Sub
For i = 0 To UBound(Split(Text1, " ")) '求和
a = a + Val(Split(Text1, " ")(i))
Next
Text2.Text = Round(a / (UBound(Split(Text1, " ")) + 1) * 100) / 100 '平均值四舍五入 留两位小数
End Sub