西晋 * * 衰落的主要原因是 [ ]

A．北部和西部的少数民族内迁

B．西晋的皇族纷纷起兵争夺皇位

C．赋税、徭役繁重，刑法残酷

D．灾荒连年

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。
Private Sub Command1_Click()
Dim x,amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While______
If x＞amax Then
amax=x
End If
If______Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print "max=";amax,"min=";amin
End Sub