Private Sub Command1_Click()Dim a(10) As StringPrint "10个学生的成绩分别为:"For i = 1 To 10a(i) = InputBox("请输入第" & i & "个学生成绩:", "成绩输入")Print a(i); " ";Next iPrintDim max As Single, min As Single, ave As Single, sum As Singlemax = a(1): min = a(1): sum = 0Fo