单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是( )。

A) Option1. Value = False
Cheek1. Value = True
B) Option1. Value = True
Check1. Value = 0
C) Option2. Value = False
Check1. Value = 2
D) Option1. Value = True
Check1. Value = 1

单项选择题

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。

A) Private Sub Text1_Change( )
Label1. Caption = Str( Len( Text1. Text) )
End Sub
B) Private Sub Text1_Click( )
Label1. Caption = Str( Len( Text1. Text) )
End Sub
C) Private Sub Text1_Change( )
Label1. Caption = Text1. Text
End Sub
D) Private Sub Label1_Change( )
Label1. Caption = Str( Len( Text1. Text) )
End Sub

相关试题