下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
题目
下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M
A．1 0 0 0 1 0 0 0 1
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
相似考题
更多“下列程序段的执行结果为()。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3－M＋1 ThenA(M,N)=1E ”相关问题
-
第1题：
有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End Sub
A．0 1 2 1 2 3 2 3 4
B．3 4 5 4 5 6 5 6 7
C．1 3 5 3 5 7 5 7 9
D．2 4 6 4 6 8 6 8 10
正确答案：B
解析：第一组双重循环语句对二维数组的9个元素赋值，注意数组下标的默认起点值为0，实际根据行列下标与其值的关系a(m-1，n-1)=m+n+1，元素值等于其行列下标号加3，因此，9个元素的值分别是{{3，4，5} {4，5，6}{5，6，7}}。因此，在第二组双重循环语句中，逐行逐列输出元素的值的排列顺序应该是选项B的结果。 -
第2题：
运行下列程序段，其中“n=n+1”语句被执行的次数是( )。
Dim m%, n%
For m = 1 To 3
For n = 1 To 6 Step 2
n = n + 1
Print n
Next
Next
A、 3
B、 6
C、 9
D、 18
正确答案：B
-
第3题：
在窗体上画1个命令按钮，并编写如下事件过程i
Private Sub Commandl—Click()
Dim a(3，3)
For m=1 T0 3
F0r n=1 To 3
If n=m Or n=4-m Then
a(m，n)=m+n
Else
a(m，n)：0
End If
Print a(m，n)；
Next n
Prim
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A．2 0 0
B．2 0 4
C．2 3 0
D．2 0 0
正确答案：B
解析：当m；1时，如果n=1，满足条件m=n，执行Then语句a(1，1)：m+n=2；当n=2时，不满足Ⅱ语句中的条件，执行Else语句a(1，2)=0；当n=3时，满足If条件n=4-m，执行Then语句a(1，3)=m+n=4。同理可得，当m；2时，得到的结果为0，4，0；当m=3时，结果为4，0，6。 -
第4题：
下列程序段的执行结果为
Dim A(3，3)
For M=1 To 3
For N=1 To 3
If N=M Or N=3-M+1 Then
A(M,N) =1
Else
A(M,N) =0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M,N)
Next N
Print
Next M
A．1 0 0 0 1 0 0 0 0
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D． 1 0 1 0 1 0 1 0 1
正确答案：D
解析：题中以嵌套For循环为数组A(3，3)赋值，此过程中，如果A(M，N)符合条件"N=M OR N=3-M+1"则此项赋1，否则赋0。以A(1,1)为例，由于M=N=1，故A(1,1)=1。
依次类推：
A(1,1) =1 A(2,1) =0 A(3,1) =1
A(1,2) =0 A(2,2) =1 A(3,2) =0
A(1,3) =1 A(2,3) =0 A(3,3) =1
-
第5题：
下列VBA程序段运行时，内层循环的循环总次数是______。
For m＝0 To 7 step 3
For n＝m-1 To m+1
Next n
Next m
正确答案：9
9 解析： 本题考查循环的基础知识。对于这类问题我们应该仔细分析清楚每一重循环的次数。可以看出，外循环由于步长为3，所以总共会执行3次，即m＝0、m＝3、m＝6：在每次外循环中，无论m取何值，内循环都是从m-1到m+1执行3次。所以内循环总共的执行次数为3*3＝9次。 -
第6题：
有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print m
A．1
B．5
C．32
D．40
正确答案：C
-
第7题：
下列程序段执行结果为 m=5 n=-6 If Not X〉0 Then m=n-3 Else n=m+3 Print m-n;n-m
A．-3 3
B．5-9
C．3-3
D．-65
正确答案：A
解析：把程序具体分析一下，可得：程序开始时分别执行m，n赋值5，-6。If语句Notm〉0相当于m〈=0，现在m得值为5比0大，所以条件值为False，执行Else语句n=m+3，此时n为8，执行Print方法，即输出m-n和n-m的值，m-n=-3，n―m=3，所以最后输出结果应该如选项A)所示。 -
第8题：
下列程序段的执行结果为______。 Dim n As Integer n=10 While n ＜＞ 0 n=n-1 Wend Print "n="; n
A．n=0
B．n=1
C．False
D．n=-1
正确答案：A
-
第9题：
下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M
A．1 0 0 0 1 0 0 0 0
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
正确答案：D
解析：题中以嵌套For循环为数组A(3,3)赋值，此过程中，如果A(M,N)符合条件"N=M OR N=3-M+1"则此项赋1，否则赋0。以A(1,1)为例，由于M=N=1，故A(1,1)=1。
依次类推：
A(1,1)=1 A(2,1)=0 A(3,1)=1
A(1,2)=0 A(2,2)=1 A(3,2)=0
A(1,3)=1 A(2,3)=0 A(3,3)=1 -
第10题：
下列程序段执行后，执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)
A．12 4
B．11 3
C．3 11
D．10 2
正确答案：B
-
第11题：
单击命令按钮后，下列程序代码的执行结果是______。
Public Sub fun (a As Integer, b As Integer, c As Integer)
Do
a=b+ c
n=n+1
Loop While n ＞ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, i As Integer
For i = 0 To 2: m = n + 1: Next i
For i = 1 To 2: Call fun (m, n, i): Next i
For i = 0 To 3
Print m;
Next i
End Sub
正确答案：2 2 2 2
2 2 2 2 -
第12题：
下列程序段的执行结果为( )。 Dim m(10),n(10) I=3 For I=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I);m(I)
A．3 11
B．3 15
C．11 3
D．15 3
正确答案：C
-
第13题：
（ 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
正确答案：B
-
第14题：
下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M
A．1 0 0 0 1 0 0 0 1
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
正确答案：D
-
第15题：
下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n+1 Loop While m＜10 Print m;n
A．1 5
B．14 6
C．a b
D．10 25
正确答案：B
-
第16题：
有如下事件过程： Private Sub Command1_Click( ) Dim m AS Integer，n AS Integer m=2：n=1 Print "m="；m；"n="；n Call TOD(m，n) Print "m="；m；"n="；n End Sub Sub TOD(x，y) x=x^2 y=y^3 End Sub 程序运行后，输出的结果为
A．m=2，n=1 m=1，n=2
B．m=2，n=1 m=4，n=1
C．m=1，n=2 m=1，n=4
D．m=1，n=2 m=2，n=4
正确答案：B
解析：本题考查的是函数调用和输出语句。定义了一个函数，函数的功能是：将实参传给形参，按址传送，将改变实参的数值，语句x=x^2的作用是将x的平方值赋给x，为4；语句y=y^3的作用是将y的三次方值传给y，为1；然后返回主调过程，输出变化前后的值。 -
第17题：
下列程序段的执行结果为______。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I)； M(I)
A． 3 11
B．3 15
C．11 3
D．15 3
正确答案：C
-
第18题：
阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为
A．16 24 4
B．16 24 8
C．24 16 6
D．24 16 8
正确答案：B
解析：本题捉供的是用“辗转相除法”求两个整数最大公约数的程序。一般来说，假定有两个整数m和n(m＞n)，将m作为被除数，n作为除数，相除后余数为r。如果r不等于0，则令m=n，n=r，再进行一次除法运算(以新的m作为被除数，n作为除数)，得到新的r。如果r仍不等于0，则重复上述过程，直到r=0为止，此时的n就是两个数的最大公约数。在本题的DoWhile-Loop循环中，通过辗转相除求最大公约数，循环结束的条件是相除后余数为0，如果不为0，则一直“除”下去。这里用Mod运算符求余数，较大的整数作为被除数或者较小的整数作为被除数都可以得到正确结果，但整除的次数可能会不一样。在本题的输入中，先输入16，再输入24，求出的最大公约数仍为8。 -
第19题：
下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n + 1 Loop While m＜10 Print m；n
A．1 5
B．14 6
C．a b
D．10 25
正确答案：B
解析：此题内容简单，开始m为2，n为3，执行Do语句，具体运行为：执行m=m+n；n=n+1语句后，m为5，n为4。这样运行到m=14，程序终止循环，此时n=6。注意：Do…LoopUntil循环结构，DoWhile|Until…Loop循环结构。 -
第20题：
下列程序段的执行结果是( )。
Dim A(3,3)
For M=1 To 3
For N=1 To 3
If N=M Or N=3-M+1 Then
A(M,N)=1
Else
A(N,N)=0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M,N)
Next N
Print
Next M
A．1 0 0 0 1 0 0 0 1
B．1 1 1 1 1 1 1 1 1
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
正确答案：D
解析：For循环的一般格式是：
Forcounter=start To end [Step step]
statements]
[Exit For]
statements]
Next [counter]
当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行。可以将一个For…Next循环放置在另一个For…Next循环中，组成嵌套循环。不过在每个循环中的counter要使用不同的变量名。
根据题目中的意思，在If N=M Or N=3-M+1 Then条件成立时，给数组元素赋值为1；否则给数组元素赋值为0。当N=1，M=1；N=1，M=3；N=2，M=2；N=3，M=3；N=3，M=1时，数组元素为1，其他的数组元素为0。
-
第21题：
下面程序的运行结果是( )。 includemain() {int a,s,n,m; a=2;s=0;n=1;m=1; while(m<=4 下面程序的运行结果是( )。 include＜stdio.h＞ main() {int a，s，n，m； a=2；s=0；n=1；m=1； while(m＜=4){n=n*a；s=s+n；++m；} printf("s=%d"，s)； }
正确答案：s=30
s=30 解析：分析循环条件“m=1，m=4”，所以循环4次。第1次：n=n*a=2，s=s+n=2；m=2。第2次：n=n*a=4，s=s+n=6；m=3。第3次：n=n*a=8，s=s+n=14；m=4。第4次：n=n*a=16，s=s+n=30。 -
第22题：
阅读以下程序:includeclass kk{int m;public:static int n;kk(){m=0;1void setvalu 阅读以下程序： #include＜iostream.h＞ class kk { int m； public： static int n； kk() { m=0； 1 void setvalue() { m++； n++； } void output() { cout＜＜"m="＜＜m＜＜",n="＜＜n＜＜endl； } }； int kk::n； void main() { kk obj1，obj2； obi1．Setvalue()； obj1．output()； obj2．setValue()； Obj2．output()； } 该程序的执行结果是( )。
A．m=1，n=1
B．m=l，n=l m=1，n=1 m=1,n=2
C．m=1，n=1
D．m=1，n=1 m=2，n=1 m=2，n=2
正确答案：B
-
第23题：
以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m
A． 1 1 1 1 1 1 1 1 1
B．2 0 4 0 4 0 4 0 6
C．0 0 0 0 0 0 0 0 0
D．1 0 1 0 1 0 1 0 1
正确答案：B
-
第24题：
以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。
Private Sub Command1_Click()
Dim A(3，3)
For M=1 To 3
For N=1 To 3
If N=M Or【 】Then
A(M，N)=1
Else
【 】=0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M，N)；
Next N
Print
Next M
End Sub
正确答案：N=3-M+1 A(MN)
N=3-M+1, A(M，N)