VB使用数组结构编写一个程序，输入10个学生的成绩，统计最高分、最低分、平均分

来源：百度知道 编辑：UC知道 时间：2024/06/23 22:26:21
界面有4个TEXT和4个COMMAND，用来分别输入数据和显示最高分最低分和平均分
用inputbox函数输入10个成绩数据
前面说错了，不好意思，是3个TEXT显示最高最低平均分，4个COMMAND上面打输入数据，最高分最低分平均分，然后又一个picture是当用INPUTBOX函数显示输入了数据后那些数据会在那个picture中显示出来，谢谢，麻烦了

Dim A(1 To 10) As Single
Private Sub Command1_Click()
'请在第一个文本中输入成绩,成绩之间用空格隔开
Dim s As String
s = Trim(Text1.Text)
d = Split(s, " ")
ReDim A(1 To UBound(d) + 1) As Single
For i = 1 To UBound(A)
A(i) = d(i - 1)
Next
End Sub

Private Sub Command2_Click()
maxn = A(1)
For i = 2 To UBound(A)
If A(i) > maxn Then maxn = A(i)
Next
Text2.Text = "最大值为" & maxn
End Sub

Private Sub Command3_Click()
MinN = A(1)
For i = 2 To UBound(A)
If A(i) < MinN Then MinN = A(i)
Next
Text3.Text = "最小值为" & MinN
End Sub

Private Sub Command4_Click()
For i = 1 To UBound(A)
av = av + A(i)
Next
Text4.Text = "平均数为:" & av / UBound(A)
End Sub

你的设计很混乱.既然有了输入数据的TEXT.为什么还要INPUTBOX..要其中一个即可.
建议你用s