选择题 19.  窗体上有一个名称为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
    对以上程序,下列叙述中错误的是______。
【正确答案】 D
【答案解析】 x是用户定义的一种变量类型,可以使用它来声明变量。InputBox("")函数的提示信息为"",即为空,因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数,如果是那么y.b的值就是y.a的值的平方。Fix函数是取整函数,它会删除小数部分,直接取表达式的整数部分,不四舍五入,因此D选项错。