计算机程序设计
相似问题和答案
第1题：
阅读程序： 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 程序运行后，单击窗体，输入结果为______。
A． 21
B．13
C．8
D．25
解析：ReDim语句的功能是为动态数组变量重新分配储存空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为第二维为1和 2的数组赋值，而第二个For循环是为第二维为3和4的数组赋值。而arr(3,2)=i*2+i=3*2+2=8， arr(3,4)司+9=-4+9=13，故输出结果为8+13=21。
第2题：
以上程序段运行的结果是：______. Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print j
A．20
B．7
C．35
D．8
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为： 每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断；如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行 1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35。
第3题：
以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)
A．14
B．0
C．6
D．值不确定
解析：首先确定最后输出的元素是n(2，2)，因为第2个循环结束后，循环变量i和j都等于2。在第1个循环中，对n的元素赋值为0、1、2、1、2、3、2、3、4。在第2个循环中，对n(2，2)的值进行了修改，使得n(2，2)＝ n(1+l，1+1)，然后再通过n(1+1，1+1)+＝n(1，1)，使得n(2，2)＝n(2，2)+n(1，1)=4+2＝6。
第4题：
下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd Sub
A．14
B．15
C．14
D．13
解析：本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。
第5题：
A. 3
B. 4
C. 9
D. 10
第6题：
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x
A．3
B．4
C．5
D．6
解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2，2)=2，a(3,3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1，1)、a(2,2)和a(3,3)外其他元素都为0，所以 x=1+2+3=6。
第7题：
在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。
A．12
B．13
C．14
D．15
第8题：
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A． 12
B．13
C．14
D．15
解析：本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。
第9题：
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End Sub
A．1 2 3 4 5
B．1 1 2 3 4
C．1 1 1 2 3
D．1 1 1 1 2
解析：本题首先定义了一个5行5列的数组，然后通过一个二重For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为1，该对角线上元素的值为1，该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a，故输出的第三行为“11123”。
第10题：
以下程序段运行的结果是______。 Dima(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A．20
B．7
C．35
D．8
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断：如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行．1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35