窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x   a As Integer   b As Integer End Type Private Sub Command1_Cli

admin2019-06-20  31

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

答案D

解析 x是用户定义的一种变量类型,可以使用它来声明变量。InputBox(" ")函数的提示信息为" ",即为空,因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数,如果是那么y.b的值就是y.a的值的平方。Fix函数是取整函数,它会删除小数部分,直接取表达式的整数部分,不四舍五入,因此D选项错。
转载请注明原文地址:https://kaotiyun.com/show/rvUp777K
0

最新回复(0)