Question

vb的，窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：

(23)窗体上有一个名称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的小数部分四舍五入，转换为整数返回

Answer 1

d是错的，fix函数是截断取整，就是直接不要小数，不会四舍五入。
cint函数才是四舍五入