以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。
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

若某商品的消费量随着消费者收入的增加而增加，则该商品是（）。

A.替代品

B.互补品

C.正常品

D.低档品