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

《东京梦华录》记载，北宋东京（今开封）“茶坊每五更点灯”，“朱雀门外除东西两教坊，余皆居民或茶坊。”这一生活场景表明当时（）

A.市已经遍布城内各处

B.商业活动不受时空限制

C.市民均以喝茶为消遣

D.朱雀门外是茶叶集散地