有如下程序，运行时输出的结果是 ______。 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 -题库考试答案搜索网

有如下程序，运行时输出的结果是 ______。 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

单选题

2022-01-05 13:59

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

查看答案

正确答案

试题解析

解析：第一组双重循环语句对二维数组的9个元素赋值，注意数组下标的默认起点值为0，实际根据行列下标与其值的关系a(m-1，n-1)=m+n+1，元素值等于其行列下标号加3，因此，9个元素的值分别是{{3，4，5} {4，5，6}{5，6，7}}。因此，在第二组双重循环语句中，逐行逐列输出元素的值的排列顺序应该是选项B的结果。

标签：

感兴趣题目

以下程序运行后；输出结果是______。 main() { char*d[]={"ab"，"cde"}； printf("%x",d[1]); }

有以下程序： main() { unsigped int a; int b=-1; a=b; printf("% u", a); } 程序运行后的输出结果是______。

有以下程序 main() { int m=0256,n=256； printf("%0 %o "，m，n)； } 程序运行后的输出结果是______。

有以下程序： main() { int a=666, b=888; printf("% d ", a, b); } 程序运行后的输出结果是______。

有如下程序，运行时输出的结果是 ______。 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

对窗体编写如下代码： Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) a=Array(237，126，87，48，498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)＞m1 Then m1=a(I) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为______ 。

对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。 Option Base 1 Private Sub Form. KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = all) m2= 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)＞m1 Then m1 = a(j) m2= i End If Next i End If Print m1 Print m2 End Sub

有以下程序： main() { int x=5，y=2，z=1； printf("%d "，x%y&～z)； }程序运行后的输出结果为______。

在窗体上添加一个文本框，其名称为text1，然后编写如下的Load事件过程，则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd Sub

有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form. Click() Dim i As Integer,j As Integer ReDim arr(3，2) For i＝1 To 3 For j＝1 To 2 arr(i,j)＝i*2+j Next j Next i ReDim Preserve arr(3,4) For j＝3 To 4 arr(3,j)＝j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为______。

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

写出下列程序[如图1]的运行结果：若程序运行后程序= THEN输入x ＝－2 ，则输出的结果为 ____输出______ ．