单选题设有如下程序： 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.列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。Private Sub Form_Click（）Dim i As IntegerOpen 【11】 As #1For i=1 To 10【12】Next iClose #1End Sub

3.有如下程序：Private Sub Form_Click()Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18

4.阅读程序Option Base 1Private Sub Form_Click（）Dim arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3 = arr（i）\3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15

参考答案和解析
正确答案： C
解析： 暂无解析
更多“设有如下程序： Option Base 0 Private Sub Form_Click（　） Dim a Dim i”相关问题

  • 第1题：

    设有如下程序：

    Private Sub Form_Click（）

    Dim n As Integer, s As Integer

    n = 8

    s = 0

    Do

    s = s + n

    n = n - 1

    Loop While n > 0

    Print s

    End Sub

    以上程序的功能是______。程序运行后，单击窗体，输出结果为______。


    正确答案：

     求1-8的和　36

  • 第2题：

    下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

    A．36

    B．25

    C．1

    D．出错信息


    正确答案：D

  • 第3题：

    有如下程序：

    Private Sub Form_Click（）

    Dim i As Integer, sum As Integer

    sum = 0

    For i = 2 To 10

    If i Mod 2 <> 0 And i Mod 3 = 0 Then

    sum = sum + i

    End If

    Next i

    Print sum

    End Sub

    程序运行后，单击窗体，输出结果为（ ）。

    A．12

    B．30

    C．24

    D．18


    正确答案：A

  • 第4题：

    有如下程序：

    Option Base 1

    Private Sub Form_Click()

    Dim arr,Sum

    Sum=0

    For i=1 To 10

    If arr(i)/3=arr(i)\3 Then

    End If

    Next i

    End Sub

    程序运行后，单击窗体，消息框的输出结果为( )。


    正确答案：27
    27

  • 第5题：

    设有如下程序： 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。

  • 第6题：

    设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。

    A．ABCDE 20 10

    B．10 20 ABCDE

    C．ABCDE 10 20

    D．出错信息


    正确答案：A

  • 第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 21

    B．543 2

    C．6 54 3

    D．7 6 54


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

  • 第8题：

    在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1．Text=c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是

    A．40

    B．10

    C．12

    D．16


    正确答案：B
    解析：本题首先定义了数组变量arr和3个整型变量，接着用Array函数定义了一个数组，并用LBound和UBound函数求出数组的上下界，分别存放在变量Start和Finish中，然后通过For循环求出数组中各元素的和，放在变量Sum中，最后将和除以数组的上界，实际上是求出数组各元素的平均值，即(12+4+8+16)/4=10，将在文本框中显示出来。

  • 第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 Form_Click()

    Dim i As Integer, Sum As Integer

    Sum=0

    For i=2 To 10

    If i Mod 2=0 And i Mod 3<>0 Then

    Sum=Sum+i

    End If

    Next

    Print Sum

    End Sub

    程序运行后,单击窗体,输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：考查考生对IF条件语句的掌握程度。纵观题目可以看出,本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2,4,8,10,所以和是24,故本题的正确答案是选项C)。

  • 第11题：

    设有如下程序： 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。

  • 第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题：

    设有如下程序：

    Private Sub Form_Click()

    Dim i As Integer，x As String,Y As String

    x=”ABCDEFG”

    For i=4 To 1 Step-1

    y=Mid(x，i，i)+y

    Next i

    Print y

    End Sub

    程序运行后，单击窗体，输出结果为

    A．ABCCDEDEFG

    B．AABBCDEFG

    C．ABCDEFG

    D．AABBCCDDEEFFGG


    正确答案：A
    解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3时，从字母C开始取到E，并加在y的开头，当i=2时，从字母B开始取到C，并加在y的开头，当i=1时，只取字母A，并加在y的开头，因此本题答案为A)。

  • 第14题：

    有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：A

  • 第15题：

    有如下程序：

    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 arr（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


    正确答案：D

  • 第16题：

    下面程序段的运行结果是【 】。

    Option Base 1

    Private Sub Swap (a() As Integ

    For I=1 to 10\2

    t=a(I)

    a(I)=a(10-I+1)

    a(10-I+1)=t

    Next I

    End Sub

    Private Sub Form_Click()

    Dim x(10) As Integer

    For I=1 to 10

    x(I)=I*2

    Next I

    Swap x()

    For I=1 to 10

    Print x(I)

    Next I

    End Sub


    正确答案：20 18 16 14 12 10 8 6 4 2
    20 18 16 14 12 10 8 6 4 2 解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。

  • 第17题：

    有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：纵观题目可以看出，本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2，4，8，10，所以和是24，故本题的正确答案是选项C。

  • 第18题：

    设有如下程序： 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。

  • 第19题：

    有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

    A．12

    B．30

    C．24

    D．18


    正确答案：A
    解析：本题程序的功能是：将从2到10中既是奇数(i Mod 2＞0)又是3的倍数(i Mod 3=0)的数求和，在2到10中满足条件的数字是3，9，其和是12。

  • 第20题：

    阅读程序： 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 arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为

    A．13

    B．14

    C．27

    D．15


    正确答案：C
    解析：分析题干，arr(i)/3=arr(i)\3是求出数组中能整除3的元素，而 Sum=Sum+arr(i)是将这些元素相加，也就是求3+9+15的值为27，所以选项C正确。

  • 第21题：

    在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

    A．1

    B．3

    C．6

    D．10


    正确答案：D
    解析：在本题中，定义了一个一维数组Arr，并为其开辟了10个元素的空间，然后通过For循环为该数组的后5个元素赋值。不难看出，数组Arr后5个元素的值分别为3、4、5、6、7。最后一个语句是为文本框的Text属性赋值，这个值是Arr数组的两个元素之和，其中第一个元素是Arr(6)，即3；第二个元素的下标是数组Arr第六个元素(3)和第十个元素(7)的和，即Arr(3+7)=Arr(10)，而该元素的值为7。因此，Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(10)=3+7=10

  • 第22题：

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

    A．25

    B．26

    C．27

    D．28


    正确答案：C
    解析：OptionBasel表示数组的下标是从l开始的。本题中先定义arr=Array(1，3，5，7，9，11，13，15，17，19)，即a(1)=1，a(2)=3，a(3)=5，a(4)=7，a(5)=9，a(6)=11，a(7)=13，a(8)=15，a(9)=17，a(10)=19，而在循环语句中就是要求把能被3整除的数加起来，即a(2)+a(5)+a(8)=3+9+15=27。

  • 第23题：

    设有如下程序： 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。

相关内容