（24）在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A）2 0 0
0 4 0
0 0 6
B）2 0 4
0 4 0
4 0 6
C）2 3 0
3 4 0
0 0 6
D）2 0 0
0 4 5
0 5 6
（25）设有以下函数过程
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End function
若调用函数fun时的实际参数都是自然数，则函数返回的是
A）a、b的最大公约数
B）a、b的最小公倍数
C）a除以b的余数
D）a除以b的商的整数部分
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
