[单项选择]设有如下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. 程序死循环

更多"设有如下Command1的单击事件过程及fun过程： Private"的相关试题:

[填空题]设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click（　）
Dim a(30)As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【13】 a
If arrItem Mod 7=0 Then Print arrItem：
If arrItem＞90 Then Exit For
Next
End Sub
请填空。

查看答案

[单项选择]

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1 Click（　）
Dim a(3,3)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是（）。

A. 20
B. 7
C. 16
D. 17

查看答案

[填空题]设有命令按钮Command 1的单击事件过程，代码如下：
Private Sub Command1_Click（　）
Dima(3，3)As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=i*j+i+j
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i，4-i)
Next i
MsgBox Sum
End Sub
运行程序，单击命令按钮，消息框输出结果是______。

查看答案

[填空题]设有命令按钮Command 1的单击事件过程，代码如下： Private Sub Command1_Click（　） Dima(3，3)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=i*j+i+j Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i，4-i) Next i MsgBox Sum End Sub 运行程序，单击命令按钮，消息框输出结果是______。

查看答案

[单项选择]命令按钮Command1的单击事件过程如下：
Private Sub Command1_Click( )
Dim a( 10, 10)As Integer
x=0
For i = 1 To 3
For j = 1 To 3
a(i, j) =i * 2 Mod j
If x＜a(i, j)Then x=a(i, j)
Next
Next
Print x
End Sub
执行上述事件过程后，窗体上显示的是( )。
A. 1
B. 2
C. 3
D. 4

查看答案

[填空题]设有命令按钮Command1的单击事件过程，代码如下，请填空。
Private Sub Command1_Click（　）
Dim a(30) As Integer
For i=1 To 30
a(i) =i
Next
For Each arrItem______a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem＞90 Then Exit For
Next
End Sub

查看答案

[填空题]设有命令按钮Command1的单击事件过程，代码如下，请填空。 Private Sub Command1_Click（　） Dim a(30) As Integer For i=1 To 30 a(i) =i Next For Each arrItem______a If arrItem Mod 7=0 Then Print arrItem； If arrItem＞90 Then Exit For Next End Sub

查看答案

[单项选择]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$= "software and hardware" b$= Right(a$, 8) c$= Mtd(b$ 1, 8) Msgbox c$ End sub则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. and

查看答案

我来回答:

提交