窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a\2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是（）。

A．x是用户定义的类型

B．InputBox函数弹出的对话框中没有提示信息

C．若输入的是偶数，y．b的值为该偶数的平方

D．Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

气瘿的主要病因是：（）

A.气滞

B.血瘀

C.痰凝

D.气虚

E.血虚