[单项选择题] 命令按钮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( 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
B
题目中定义了一个二维数组,为数组赋初值并找出这些值中最大的值输出。数组中的值为: a(1, 1)=1*2 rood 1=0a(1, 2)=1*2 mod 2=0a(1, 3)=1*2 mod 3=2 a(2, 1)=2*2 rood 1=0a(2, 2)=2*2 mod 2=0a(2, 3)=2*2 rood 3=1 a(3, 1)=3*2 mod 1=0a(3, 2)=3*2 rood 2=0a(3, 3)=3*2 rood 3=0 显然最大值为2,因此Print x语句将在窗体上显示2。
VIP截止日期:2025-01-02 11:32:21
←请使用支付宝扫码支付VIP截止日期:2025-01-02 11:32:21
←请使用微信扫码支付