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