设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）A、4；3；2；1B、5；4；3；2C、6；5；4；3D、7；6；5；4

题目

设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

  • A、4；3；2；1
  • B、5；4；3；2
  • C、6；5；4；3
  • D、7；6；5；4
相似考题

1.设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 – I);Next IEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。A.4321B.5432C.6543D.7654

2.在窗体上画一个名称为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 9B．2 3 4 3 4 5 4 5 6C．1 4 7 2 5 8 3 6 9D．1 2 3 4 5 6 7 8 9

3.在窗体上画—个命令按钮(其名称为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 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出

4.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7

更多“设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）A、4；3；2；1B、5；4；3；2C、6；5；4；3D、7；6；5；4”相关问题

  • 第1题：

    阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。

    A.8 7 6

    B.7 6 5

    C.6 5 4

    D.5 4 3


    正确答案：B
    B。【解析】该题首先计算出arr(7-i)，得出arr(7)，arr(6)，arr(5)这三个数是数组中的第8，7，6个元素，VB数组下表从0开始，所以输出应该为7，6，5。

  • 第2题：

    设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是

    A．#2=2 #3=3

    B．#2=2 #3=5

    C．#；2=2 #；3=3

    D．#；2=2 #3；=5


    正确答案：B
    解析：由于Print方法中的分号表示前后字符之间的连接，并不显示在窗体中，同时由于Function过程以Static定义，在I=3时，Fac(1)的值为5。

  • 第3题：

    设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是

    A．6

    B．5

    C．4

    D．3


    正确答案：B
    解析：本题是对多分支结构和循环结构的综合考查。i为1时，执行了第一个 Case后的语句A＝A+1得A的值为2。i为 2时，执行的是第二个Case后的语句A＝A+ 2(注意，此时右边的A值应保留了上一次循环的结果值2)即A＝2+2得A的值为4。i为3时，又一次执行了语句A＝A+1即A＝4 +1得A的值为5。故最后执行语句Print A后，窗体上显示的内容是5。

  • 第4题：

    设有如下程序： Option Base 0 Private Sub Form_Click（ ） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。

    A.4 3 2 1

    B.5 4 3 2

    C.6 5 4 3

    D.7 6 5 4


    正确答案：C
    C。【解析】OptionBase0指示程序中数组下标从0开始，因此在For循环中打印的数组元素分别为第6、5、4、3个元素，结果为6、5、4、3。

  • 第5题：

    在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．1 2

    B．1 2 3

    C．3 4 5

    D．4 5


    正确答案：D
    解析：本题主要考查考生对程序代码的阅读理解能力。用Array函数为数组a(5)赋值，其元素分别为1、2、3、4、5。第一个For i循环把a(i)数组中的元素逐个加到变量Sum上，然后求出Sum浮点除5的结果(为3)，赋值给变量x。第二个Fori循环表示当a(i)大于3时，则用Print语句输出该元素。据此，正确答案为D。

  • 第6题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

    A．1 2 3 246 3 69

    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
    解析：本题仍然是使用For循环对二维数组赋值。由于有For,循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j”可知输出的数值为1、2、3。此时For j循环终止，并执行“Print”语句，即进行换行。然后再执行For i的第二次循环，以此类推，正确答案为D。

  • 第7题：

    阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为

    A．5 7 6 8

    B．6 8 7 9

    C．7 9 8 10

    D．8 10 8 11


    正确答案：C
    解析：本题主要测试二维数组的输入输出操作。由于程序的开头有OptionBase1的语句，因此所定义的Arr是一个4行4列的二维数组。在第1个二重For循环中，根据内层和外层循环变量的变化对数组的每个元素赋值，其计算公式为：(i-1)*2+j，其中i和j分别为外层和内层循环变量。用这个公式计算的数组Arr各元素的值如下：Arr(1，1)=1Arr(1，2)=2Arr(1，3)=3Arr(1，4)=4Arr(2，1)=3Arr(2，2)=4Arr(2，3)=5Arr(2，4)=6Arr(3，1)=5Arr(3，2)=6Arr(3，3)=7Arr(3，4)=8Arr(4，1)=7Arr(4，2)=8Arr(4，3)=9Arr(4，4)=10在第2个二重循环中，用Print方法输出Arr数组4个元素的值，即Arr(3，3)、Arr(4，3)、Arr(3，4)和Arr(4，4)，从上面的赋值情况可以看出，这4个元素的值分别是7、9、8、10。

  • 第8题：

    在窗体上画一个名称为Conunand1的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer，j Aa 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 2 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
    解析：本题考查利用多重循环获取数组的值，题目难度不大，但却是考试重点，要求考生重点掌握。本题出自2002年9月考题，需要注意输出方法：外循环第1次i=0，内层循环j循环3次，输出123，然后换行，接着外循环执行第2次，依次类推，可得答案为D。

  • 第9题：

    设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。

    A.15

    B.16

    C.20

    D.25


    正确答案：C
    C。【解析】本题中因为i是从l～5递增，当i=1时，ary(1)=1+i=2，sum=sum+2----2，当i=2时，ary(2)=1+i=2+1=3，sum=sum+3=2+3=5，同理当i=3时，ary(3)=4，sum=9，当i=4时，ary(4)=5，sum=14，当i=5时，ary(5)=6，sum=20，所以答案选择C。

  • 第10题：

    设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dimi As Integer a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。

    A．4 3 2 1

    B．5 4 3 2

    C．6 5 4 3

    D．7 6 5 4


    正确答案：C
    解析：不要把下标和数组元素值相混淆。函数Array将初值赋给数组a，在循环中将下标为5、4、3、2的数组元素值打印出来，即6、5、4、3。

  • 第11题：

    设有如下程序： Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next End Sub 程序运行后，单击窗体，则在窗体上显示的是

    A．4 3 2 1

    B．54 3 2

    C．6 5 4 3

    D．7 6 5 4


    正确答案：C
    解析：注意，由于"OptionBase0"，故数组的下标下界为0，所以a(5)应该是数组a的第六个元素"6"，以此类推，可知正确答案为C。

  • 第12题：

    单选题
    设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
    A

    4；3；2；1

    B

    5；4；3；2

    C

    6；5；4；3

    D

    7；6；5；4


    正确答案： C
    解析： 暂无解析

  • 第13题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1 Click() Dim a As Integer Dim b As Integer a=2 For i=1 To 3 b=F(A) Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是

    A．4 4 4

    B．4 5 6

    C．5 6 7

    D．5 5 5


    正确答案：B
    解析：本题综合考查了Function函数过程的建立与调用及For循环控制语句。但解题的关键是理解Static定义变量，使变量具有的数值存储功能。本题在Fori的三次循环中，每调用一次函数过程F(A)，c的值都会在上次调用的基础上加1，b的数值保持不变，a的数值也保持不变，故单击按钮时，窗体上显示的内容为B项内容，即数值分别为4，5、6。

  • 第14题：

    在窗体上画一个名称为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)； Nextj Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

    A．1 2 3 24 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
    解析：由于有For循环的嵌套，当i等于1时，Forj循环执行三次，根据“a(i,j)=(i-1)*3+j“可知输出的数值为1、2、3。此时Forj循环终止，并执行“Print”语句，即进行换行。然后再执行Fori的第二次循环，以此类推，正确答案为D。

  • 第15题：

    阅读程序：

    Private Sub Commandl一Click()

    Dim arr

    Dim i AS Integer

    arr=Array(0，1, 2，3，4，5，6，7,8，9，10)

    For i=0 To 2

    Print arr(7-i)；

    Next

    End Sub

    程序运行后，窗体上显示的是：

    A．8 7 6

    B．7 6 5

    C．6 5 4

    D．5 4 3


    正确答案：B
    解析：本题中arr被Array函数定义为数组并被赋初值；For循环中i的值为O到2，那么，7一i的值为7，6，5；Print arr(7一i)也就是输出arr(7)，arr(6)，arr(5)的值，即输出7，6，5。

  • 第16题：

    设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是

    A．4 3 21

    B．543 2

    C．6 54 3

    D．7 6 54


    正确答案：C
    解析：本题综合考查For循环控制语句与用Array函数为数组进行初始赋值．注意，由于“Option Base 0”，故数组的下标下界为0，所以a(5)应该是数组a的第六个元素“6”，以此类推，可知正确答案为C。

  • 第17题：

    在窗体上画一个名称为Comlnalld1的命令按钮，然后编写如下程序： 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 2 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
    解析：本题考查利用多重循环获取数组的值，题目难度不大，但却是考试重点，要求考生重点掌握。本题出自2002年9月考题，需要注意输出方法：外循环第1次i=0，内层循环j循环3次，输出1 2 3，然后换行，接着外循环执行第2次，依次类推，可得答案为D。

  • 第18题：

    在窗体上画一个名称为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


    正确答案：D
    解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。

  • 第19题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For i=1 To UBound(A) a(i)=a(i)+i-1 Next Print a(3) End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是

    A．4

    B．5

    C．6

    D．7


    正确答案：B
    解析：题目中存在Option Base语句，则数组中第一个元素的索引值为1，当i=3时，a(i)=3，计算a(i)=a(i)+i-1结果为5，选项B为正确答案。

  • 第20题：

    阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是

    A．3 5 7 9 30

    B．1 3 5 7 9

    C．2 4 6 8 20

    D．11 15 17 19 20


    正确答案：A
    解析：本题For循环的循环变量初值为2，终值为10，步长为1。在循环体内，判断循环变量的值是否为偶数，如果是，则将该值累加给变量sum，否则输出循环变量的值。不难看出，运行该程序后，在循环体内输出的是奇数，而累加的是偶数。在循环体外，输出偶数的累加之和。

  • 第21题：

    设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。

    A．4 3 2 1

    B．5 4 3 2

    C．6 5 4 3

    D．7 6 5 4


    正确答案：C

  • 第22题：

    有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

    A．25

    B．26

    C．27

    D．28


    正确答案：C
    解析：本题考查的是数组赋值以及算术运算符“/”和“\”的区别。本程序段首先用Array函数给arr数组赋初值。“/”是浮点除法，执行标准除法操作，结果为浮点数。“\”为整数除法，整型整除运算，结果为整型值。本程序的功能是：找出arr数组中能被3整除的元素值，将其累加到sum中，然后输出。满足该条件的元素是3、9、15，和值为27。

  • 第23题：

    设有如下程序： Private Sub Command1_Click（） Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9） For I=0 To 3 Print a（5-I）； Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

    • A、4321
    • B、5432
    • C、6543
    • D、7654

    正确答案:C

相关内容