窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下: Private Tvpe x Private Sub Command 1 Click() a As Integ

admin2015-05-29  55

问题 窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:
Private Tvpe x                     Private Sub Command 1 Click()
    a As Integer:b As Integer         Dim Y As x
    End Type                           y.a=InputBox("")
                                        Ify.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

解析 本题考查的考点是有关自定义类型和Fix函数的。用户可以通过Tvpe语句自定义类型,并可用自定义的类型声明变量。注意Fix函数是向下取整,Round函数是四舍五入。
转载请注明原文地址:https://kaotiyun.com/show/qJQp777K
0

最新回复(0)