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

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.在窗体上画一个名称为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 0Private Sub Form_Click( )Dim aDim i As Integera=Array(1,2,3,4,5, ”相关问题

  • 第1题：

    设有如下程序：

    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) 

  • 第2题：

    设有如下程序：

    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)。

  • 第3题：

    有如下程序：

    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

  • 第4题：

    设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。

    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变量值即可。

  • 第5题：

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

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

    B．543 2

    C．6 54 3

    D．7 6 54


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

  • 第7题：

    设有如下程序：

    Option Base 1

    Private Sub Commandl Click()

    Dim arrl

    Dim Min As Integer，i As Integer

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

    Min=【 】

    For i=2 To 8

    If arrl(i)＜Min Then【 】

    Next

    Print"最小值是:";Min

    End Sub

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


    正确答案：arrl(1) Min=arrl(i)
    arrl(1) , Min=arrl(i) 解析：由于有Option Base 1语句，所以数组下标是从1开始。本题的功能是查找8个数中的最小值，首先使用Array语句给数组赋值，然后把第一个值赋值给最小值变量，及Min=arrl(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给Min，即Min=arrl(i)。

  • 第8题：

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

    A． 25

    B．26

    C．27

    D．28


    正确答案：C
    解析：Option Base 1表示数组的下标是从1开始的。本题中先定义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整除的数加起来，即4(2)+a(5)+a(8)=3+9+15=27。

  • 第9题：

    阅读程序： 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正确。

  • 第10题：

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

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

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

    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

  • 第14题：

    下列程序运行时输出的结果是( )。 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

  • 第15题：

    有如下程序：

    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

  • 第16题：

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

  • 第17题：

    在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。

    A．54321

    B．123

    C．12345

    D．345


    正确答案：C
    解析：本题考查使用Array函数给数组元素赋值的应用。分析程序可知，是通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Arr(5)=5，S=5；当i=4时，Arr(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，Arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句Print S。因此，最后输出的值为“12345”。

  • 第18题：

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

    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)正确。

  • 第19题：

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

  • 第20题：

    在窗体上画一个文本框，然后编写如下代码： 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，将在文本框中显示出来。

  • 第21题：

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

    A.空白

    B.错误提示

    C.北京

    D.上海


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

  • 第22题：

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

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

相关内容