单项选择题

设有如下Command1的单击事件过程及fun过程：
Private Sub Command1_Click( )
Dim x As Integer
x = Val( InputBox( "请输入一个整数" ) )
fun(x)
End Sub
Private Sub fun( x As Integer)
If x Nod 2 =0 Then fun(x / 2)
Print x ;
End Sub
执行上述程序，输入6，结果是( )。

A) 3 6
B) 6 3
C) 6
D) 程序死循环
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。
A) Private Sub HScroll1_Change( )
Print HScroll1. Value
End Sub
B) Private Sub HScroll1_Change( )
Print HScroll1. SmallChange
End Sub
C) Private Sub HScroll1_Scroll( )
Print HScroll1. Value
End Sub
D) Private Sub HScroll1_Scroll( )
Print HScroll1. SmallChange
End Sub
单项选择题
窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。 程序如下： Private Sub Command1_Click (Index As Integer) If Index = 1 Then Print 计算机等级考试 End If If Index = 2 Then Print Command1 (2). Caption End If End Sub 运行程序，单击“命令按钮2”，则如下叙述中正确的是( )。
A) Print command1 (2). Caption语句有错
B) 在窗体上显示“命令按钮2”
C) 在窗体上显示“命令按钮3”
D) 在窗体上显示“计算机等级考试”
相关试题