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

下表是元素周期表的一部分，请你据此回答问题：

⑴原子序数为8的元素属于        元素（填“金属”或“非金属”）；

⑵钠的相对原子质量是          ；

⑶上表中，金属元素有       种。