更多"设有命令按钮Command 1的单击事件过程,代码如下: Priv"的相关试题:
[填空题]设有命令按钮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,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的单击事件过程如下:
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
[单项选择]单击命令按钮,下列事件过程的执行结果为( )。
Private Sub Command1_Click( )
Dim x As Integer, y As Integer
x=40:y=72
Call PtoP(x, y)
Print x; y
End Sub
Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer)
n = n / 10+2
m = m / 10+2
End Sub
A. [Page]/,总[Pages]
B. =[Page]/,总[Pages]
C. [Page]&“//,总”& [Pages]
D. =[Page]&“/,总”&[Pages]