认同人格特质理论，并把特质分为根源特质和表面特质的学者是()

A．阿尔波特

B．艾森克

C．卡特尔

D．弗洛伊德

E．荣格

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　　 Private　Sub　Command1＿Click(　)
　　　　 Dim a As Integer，s As Integer
　　　　 a＝8
　　　　 s＝1
　 　　　 Do
S=s+a
a=a-1
Loop While a<=0
Prim s，a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是

A．7 9

B．34 0

C．9 7

D．死循环