计算机程序设计
语句“Dim i，j As Integer”的含义是“定义两个整型变量i和j”。
题目
语句“Dim i，j As Integer”的含义是“定义两个整型变量i和j”。
相似问题和答案
第1题：
以上程序段运行的结果是：______. 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。
第2题：
A. j-i
B. j-i+1
C. j*i
D. i+j
第3题：
阅读程序： 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。
第4题：
以下程序段运行的结果是______。 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
第5题：
下列程序共执行了______次循环。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循环是先执行后判断。
第6题：
A. 3
B. 4
C. 9
D. 10
第7题：
A、c(i+j)
B、 c(i)(j)
C、c(i-1, i+1)
D、 c(1,0)
第8题：
下列程序段的执行结果为 ______。 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。
第9题：
若有说明int i,j=2,*p=&i;，则能完成i=j赋值功能的语句是______。
A．i=*p;
B．*p=*&j;
C．i=&j;
D．i=**p;
解析：指针是一种用来存放变量地址的特殊变量。本题中指针变量p用于存放整型变量i的地址，改变*p的值即为改变i的值。又因为“&”和“*”两个运算符的优先级别相同，按自右而左的方向结合，所以*&j先进行&j运算，得j的地址，再进行*迄算，取所得地址里面的值，故*&j与j等价。
第10题：
23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i
A．9
B．10
C．11
D．12