在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer

题目

在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3

相似考题

1.在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5\10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End SubA．15B．13C．11D．9

2.设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。A．20B．7C．16D．17

3.在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18

4.设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的内容是______。A．30B．25C．20D．15

更多“在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer”相关问题

第1题：

下列程序段的执行结果为 ______。 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

正确答案：D
解析：通过第一个以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。
第2题：

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer,x As Integer For i=1 To6 If i=1 Then x=i If i<= 4 Thenx=x+1 Elsex=x+2 End If Next i Print xEnd Sub 程序运行后，单击命令按钮，其输出结果为。A．9 B．6 C．12 D．15

正确答案：A
【解析】本题考查控制结构中的循环结构与条件结构。题目非常简单，但考生需要仔细分析结构。开始i=1，执行x=i语句，此时i<=4,执行x=x+1=2，当i=4是执行x=x+2，直到i=6时结束For循环，x的最终值是1+1+1+2+2+2=9，正确答案为选项A。关于VB的控制结构一直是考试重点，历次考试都必然会考到，考生应该注意这方面的内容，多编写程序。
第3题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 TO 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A．10
B．16
C．12
D．20

正确答案：C
解析：本题考查的是循环和条件判断语句，OptionBasel是强制使数组下标从1开始。
第4题：

有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End Sub
A． 25
B．35
C．45
D．55

正确答案：B
第5题：

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer， x As Integer For i=1 To 6 If i=1 Then x=i If i＜= 4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为
A．9
B．6
C．12
D．15

正确答案：A
解析：本题考查控制结构中的循环结构与条件结构．题目非常简单，但考生需要仔细分析结构。开始i=1，执行x=i语句，此时i=4，执行x=x+1=2，当i=4是执行x=x+2，直到i=6时结束For循环，x的最终值是1+1+1+2+2+2=9，正确答案为选项A。关于VB的控制结构一直是考试重点，历次考试都必然会考到，考生应该注意这方面的内容，多编写程序。
第6题：

单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
A．3 4 7 5 6
B．3 5 7 4 5
C．1 2 3 4 5
D．1 2 3 5 7

正确答案：B
第7题：

单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer，I As Integer，x(10) As Integer
For I=0 To 4：x(I)=I+1：Next I
For I=1 TO 2：Call Prioc(x)：Next I
For I=0 TO 3：Print x(I)；：Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I＜2
End Sub
A．3 4 7 5
B．3 5 7 4
C．1 2 3 4
D．1 2 3 5

正确答案：B
解析：数组也可以作为函数或过程的参数，使用方法是直接使用数组名加括号也可以直接使用数组名，例如Proc(x)和Proc(x())都正确。
第8题：

当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub
A．22135
B．21357
C．22213
D．13579

正确答案：A
解析：程序首先通过一个双重循环二维数组x的各个元素赋值，通过计算不难得出二维数组各行的值：第一行：13579第二行：21357第三行：22135第四行：22213第五行：22221第三行的值为22135，因此本题选A。
第9题：

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．6
B．12
C．24
D．47

正确答案：D
解析：在主过程中，数组x1的下标最大值为3，赋初值分别为2、3、4，通过实参和形参的调用，数组x1的值传给了数组n。在子过程中，数组n的下标最大值被重新定义为5，下标3～5的值计算的结果分别为6、12、24。在主过程中，将数组x1的各值相加得：2+3+6+12+24=47。
第10题：

在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。
A．35
B．33
C．31
D．29

正确答案：B
第11题：

在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为
A．16
B．24
C．32
D．36

正确答案：A
解析：本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)=2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)=9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。
第12题：

下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K 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

正确答案：D
解析：通过第一个以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。
第13题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j＝1 To 3 a(i,j)＝(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。
A．1 2 3 2 4 6 3 6 9
B．2 3 4 3 4 5 4 5 6
C．1 4 7 2 5 8 3 6 9
D．1 2 3 4 5 6 7 8 9

正确答案：D
解析：程序共有两层循环，每执行完一次内循环，则打印换行，当外层循环执行第一次时，a(i,j)＝(i-1)*3+j相当于a(1,j)＝j，由此判断选项A，D可能正确，当外层循环执行第二次时，a(i,j)＝(i-1)*3+j，相当于a(2,j)＝3+j，由此可判断选项D为正确答案。
第14题：

设有如下通用过程： Public Sub Fun(a( )As Integer，x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Cliek( ) Dim arr(5) As Integer，n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr，n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是
A．30
B．25
C．20
D．15

正确答案：A
解析：本题需先对通用过程分析Fun(a()AsInteger，xAs，Integer)的功能，该通用过程是将数组的a(1)到a(5)的和返回，arr(5)的各个元素a(1)到a(5)的值分别为2、4、6、8、10，所以其和为30。
第15题：

在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．5
B．6
C．8
D．11

正确答案：D
解析：上述程序在双层循环内有一个判断条件，分析其计算过程时比较麻烦，读者要仔细分析。变量x的计算过程为：x=1、2、3、2、1、4、3、2、1，表达式n-k的计算过程为：n-k=4、3、2、2、2、1、1、1、1。其中有14、23、21这些条件成立时跳出内部循环，其他内循环都将数组元素值相加起来，即sum=1+2+1+3+3+1=11。
第16题：

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是： ______。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 3 4 5 6 7 8 9
D．没有输出

正确答案：B
解析：程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项A，B可能正确，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此可判断选项B为正确答案。
第17题：

在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为( )。
A．9
B．6
C．12
D．15

正确答案：A
第18题：

在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) 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 Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是
A．12
B．13
C．14
D．15

正确答案：B
解析：本题具有一定的迷惑性，其实分析一下易知arr(i,j)的值即为i*j，所以an(2，2)+arr(3， 3)就是求2*2+3*3=13。注意： For…Next循环控制结构适用于指定循环次数的循环程序。其格式为：
For循环变量二初始值To终值Step步长
Next
其中，当步长为正时，初始值要小于终值；当步长为负时，初始值要大于终值。注意：For…Next循环控制结构。
第19题：

在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为
A．0
B．2
C．10
D．25

正确答案：D
解析：在此题中定义了一个数据拷贝函数，用数组来保存数据，在主调过程中，先用For…Next循环语句给m()赋给，然后调用BTC函数，将m()中的数据赋给n()，最后输出n(5)。在数据拷贝函数中，用了函数LBound(oldCopy())和UBound(old-Copy())分别获得数组的下界和上界，控制循环次数。用newCopy(i)=oldCopy(i)赋值语句，将m数组中的数据赋给n数组。因为m(5)=25，数组n与数组m等价，所以n(5)也是25。
第20题：

程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A．32
B．28
C．30
D．36

正确答案：A
解析：当发生Command1_click事件时，将定义一个4行4列的数组aa(数组下标从0开始)，然后通过一个两层For循环给它的各个元素赋值，赋值规律是给每一个元素赋它的行下标值乘以4，再加上列下标值再加1。然后通过一个For循环把数组元素aa(0，1)、aa(1，1)、aa(2，1)和aa(3，1)的值2、6、10、14加到s中，s的值为32。
第21题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 3 5 7
B．2 8 14 53
C．0 3 21 45
D．0 5 11 34

正确答案：C
解析：ExitFunction的功能是立即终止函数的运行并回到调用函数的地方继续执行其他语句。在Function过程的任何位置都可以设置ExitFunction语句。变量n传值为0、3、6、9，4次调用rel函数过程，由于0和3都小于5，使得i5不成立，被执行了“ExitFunction”语句，函数名将0和3返回。而6和9没有使得i5成立，变量x的计算结果分别为21和45，也被函数名返回。
第22题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是
A．6
B．7
C．8
D．9

正确答案：B
解析：本题中的通用过程fun(ByValmAsInteger)作用是判断参数m，如果m为偶数则函数返回2，如果m为奇数则函数返回1。在i=1To5的fun(ByValmAsInteger)调用中，共有偶数两个，奇数三个，所以最后结果为7。
第23题：

下列程序段的执行结果为______。 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 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print x
A．3
B．4
C．5
D．6

正确答案：D
解析：通过第一个以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。

题目

相似考题

相关内容