设有如下程序： 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 1B．5 4 3 2C．6 5 4 3D．7 6 5 4

题目

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

相似考题

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.有以下程序：Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（）Dim i As Integer,j As IntegerReDim arr（3,2）For i=1 To 3For j=1 To 2arr （i,j）=i*2+jNext jNext iReDim Preserve arr（1,4）For j=3 To 4Arr（3,j）=j+9Next jPrint arr（3,2）;arr（3,4）End Sub程序运行后，单击窗体，输出结果为（ ）。 A．8 13B．0 13C．7 12D．0 0

3.执行以下语句过程，在窗体上显示的内容是Option Base 0Private Sub Command3_Click（）Dim dd=Array（"a", "b", "c", "d"）Print d（1） ; d（3）End Sub（ ）。A．abB．bdC．acD．出错

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
解析：不要把下标和数组元素值相混淆。函数Array将初值赋给数组a，在循环中将下标为5、4、3、2的数组元素值打印出来，即6、5、4、3。
更多“设有如下程序:Option Base 0Private Sub Form_Click()Dim aDimi As Integera=Array(1, 2, 3, 4, ”相关问题

  • 第1题：

    （ 24 ）有以下程序：

    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 ） 8 13

    B ） 0 13

    C ） 7 12

    D ） 0 0


    正确答案：A

  • 第2题：

    设有如下程序：

    Option Base 1

    Private Sub Command1_Click（）

    Dim arr1

    Dim Min As Integer, i As Integer

    arr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）

    Min = ______

    For i = 2 To 8

    If arr1（i） < Min Then______

    Next

    Print "最小值是："; Min

    End Sub

    以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。


    正确答案：

    arr1(1)　min=arr1(i) 

  • 第3题：

    运行下列程序，单击窗体后输出的结果是( )。

    Private Sub Form_Click()

    Dim a

    Dim s As Integer, i As Integer

    a = Array(1, 2, 3, 4, 5, 6)

    s = 1

    For i = 5 To 1 Step -2

    s = s * a(i)

    Next i

    Print s

    End Sub

    A、 15

    B、 48

    C、 120

    D、 720


    正确答案：B

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

    阅读程序： Option Base 1 Dim art()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 Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为

    A．21

    B．13

    C．8

    D．25


    正确答案：B
    解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，arr(3,4)=4+9=13，故最后为13。

  • 第6题：

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

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

  • 第10题：

    在窗体上画一个名称为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
    解析：UBound(a)函数返回数组a中指定上界，即For循环的终值为5。a(3)的值为3+3-1=5。

  • 第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、5；4；3；2
    • C、6；5；4；3
    • D、7；6；5；4

    正确答案: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题：

    在窗体上面画一个命令按钮，然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。

    A．4321

    B．12

    C．34

    D．1234


    正确答案：D

  • 第14题：

    阅读程序：

    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


    正确答案：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 Command1_Click()

    Dim arr1

    Dim Min As Integer, i As Integer

    arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

    Min = arr1(1)

    For i=2 To 8

    If arr1(i)＜Min Then

    Next i

    Print "最小值是:"; Min

    End Sub


    正确答案：Min=arr1(i)
    Min=arr1(i) 解析：题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素；且它存储在Min变量中，因此最后只要输出Min变量值即可。

  • 第17题：

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

  • 第18题：

    执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

    Option Explicit

    Private Sub Form_Click( )

    Dim A As Integer

    A=2

    Call Sub1 (A) End Sub

    Private Sub1 (x As Integer)

    x=x*2+1

    If x＜10 Then

    Call Sub1 (x)

    End If

    x=x*2+1

    Print x

    End Sub


    正确答案：23
    23 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。

  • 第19题：

    执行以下语句过程，在窗体上显示的内容是

    Option Base 0

    Private Sub Command3_Click()

    Dim d

    d=Array("a"，"b"，"c"，"d")

    Print d(1);d(3)

    End Sub

    A．ab

    B．bd

    C．ac

    D．出错


    正确答案：B
    解析：在Visual Basic中，一般可以用Array函数解决数值初始值的输入，格式为：
    数组名=Array(要输入的值)
    本题中声明的数组d，默认下界为0，即数组第一个元素为d(0) ，所以当程序调用Array函数后，d(0) =a，d(1)=b，d(2)= c，d(3)=d。不难看出，最后Print语句要输出的是d(1)、d(3)的值，即b、d。所以选项B)正确。

  • 第20题：

    在窗体上添加一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0Private Sub Commandl_Click（） Dim cityAs VariantCity=．Array（"北京"， "上海"，"天津”， "重庆"）Print city（1）End Sub程序执行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A.空白

    B.错误提示

    C.北京

    D.上海


    正确答案：D
    暂无解析，请参考用户分享笔记

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

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

相关内容