下面程序的功能是,从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入,请填空。 Private Sub Command1_Click() Dim x As Single Dim amax As Single, amin As Single x=InputBox(" 请输入分数") amax=x amin=x Do While [1] If x >amax Then amax=x End If If= [2] Then amin=x End If x=InputBox(" 请输入分数") Loop Print amax, amin End Sub