2. 计算机
  3. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command1_Click() a

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command1_Click() a

admin2018-10-18  53
问题 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
    Private Type x                     Private Sub Command1_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函数的。用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。
转载请注明原文地址:https://kaotiyun.com/show/LPFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)