更多"设有命令按钮Command1的单击事件过程，代码如下：
Priva"的相关试题:
[填空题]设有命令按钮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(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
[填空题]设有命令按钮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( )
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,b(2,3) As Integer
a=Array(3,7,5,11,31,43,17,62,9,23,37,41)
i=0
Do While i<=UBound(a)
For j=0 To 2
For k=0 To 3
B(j,k)=a(i)
i=i+1
Next
Next
Loop
Pritn b(2,2)
End Sub
运行程序，窗体上显示的是（）。
A. 43
B. 17
C. 37
D. 23
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[单项选择]命令按钮Command1的事件过程如下：
Private Sub Command1_Click（ ）
Dim art(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 2 To 4
arr(i, j) =i+j
Next j
Next i
Print arr(1, 3) + arr(3, 4)
End Sub
执行上述过程，输出结果是( )。
A. 6
B. 7
C. 11
D. 12
[填空题]窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为______。
[单项选择]设有如下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的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是（）。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
