以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在空白处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single, amax As Single, amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do, While______
If x＞amax Then
aman=X
End If
If______Then
amin=x
End If
x=InputBox("Enter a Score")
Loop
Pnnt"Max="; amax, "Min=";amin
End Sub

砌体结构工程施工质量验收规范（GB50203-2011）：空心砖、蒸压加气混凝土砌块、轻骨料混凝土小型空心砌块等的运输、装卸过程中，严禁抛掷和倾倒进场后应按品种、规格分别堆放整齐，堆置高度不宜超过（）

A.2m

B.2.5m

C.3m

D.3.5m