设有如下程序： 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.15B.16C.20D.25

题目

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

相似考题

1.设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG

2.设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35

3.设有如下程序：Private Sub Form. Click（ ）Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+lsum=sum+ary(i)Next iPrint sumEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25

4.设有如下程序：Private Sub Form_Click()Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(j)=i+1sum=sum+ary(i)Next 1Print sumEud Sub程序运行后，单击窗体，则在窗体上显示的是A．15B．16C．20D．25

更多“设有如下程序: Private Sub Form. Click( ) Dim ary(1 To 5)As Integer Dim i As Integer ”相关问题

  • 第1题：

    有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为

    A．4 6

    B．6 6

    C．8 8

    D．10 12


    正确答案：C
    解析：在Sub过程中，程序段先定义了3个Integer型变量k，m，P，并给k赋给初值4，m的初值为1，然后调用事件过程PC，并将它的值赋给p；在事件过程PC中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在PC中，将m，I定义为静态变量，所以第一次调用后的值仍然保留，但是m，I分别都有赋值语句，将它们的值变为0，2，所以返回值不变。

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

    以下有关数组定义的语句序列中，错误的是

    A．Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45

    B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) ┄ End Sub

    C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub

    D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub


    正确答案：D
    解析：本题考查动态数组的定义。A项定义了一个默认数组。B项定义了一个动态数组。C项直接定义。由于声明数组时不能通过变量声明数组长度，故D项是错误的。

  • 第4题：

    有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为

    A．4 6

    B．6 6

    C．8 8

    D．10 12


    正确答案：C
    解析：考查考生对函数及函数参数的运用。
      [解题要点] 在Sub过程中，程序段先定义了3个Integer型变量k,m,op，并为k赋给初值4,m的初值为1，然后调用事件过程PPC，并将它的值赋给op。在事件过程PPC中定义了两个形参，参数的传送通过引用实参，即将k,m的地址作为a，b的地址；在PPC中，将m,i定义为静态变量，第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为0,2，所以返回值不变。
      [错解分析] 函数PPC中的两个参数都是以传值方式传递，注意不要与传地址方式传递混淆。
      [考点链接] 过程的定义和调用，以及参数传递方式的选择。

  • 第5题：

    有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为

    A．2 2

    B．4 4

    C．5 5

    D．6 6


    正确答案：D
    解析：在Sub过程中，程序段先定义了3个Integer型变量k,m,p，并赋给k初值为4,m的初值为1，然后调用事件过程Fun，并将它的值赋给p；在事件过程Fun中定义了两个形参，参数的传送是通过引用实参，即将k,m的地址作为a,b的地址；在Fun中，将m,i定义为静态变量，所以第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为5,2，所以返回值不变，都是6,6。

  • 第6题：

    在窗体上画一个名称为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的作用只控制循环次数。

  • 第7题：

    有如下程序:: 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
    解析：i Mod2＞0，就是i不能被2整除，而i Mod 3=0，就是i要能被3整除。所以本题就是求2～10之间，能被3整除但不能被2整除的数之和。而2～10之间符合条件的数为3和9，它们的和为12。

  • 第8题：

    阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。

    A.35

    B.31

    C.33

    D.37


    正确答案：C
    C。【解析】本题考查的是函数的调用，Function函数的意义是某个数的阶乘，所以通过计算结果为4！+3！+2!+1！=33

  • 第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 s As Long，f As Long

    Dim n As Integer，i As Integer

    f=1

    n=4

    For i=1 To n

    f=f*i

    s=s+f

    Next i

    Print s

    End Sub

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

    A.32

    B.33

    C.34

    D.35


    正确答案：B
    B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。

  • 第11题：

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

  • 第12题：

    下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd Sub

    A．12345

    B．6

    C．1 2 3 4 5 6

    D．0


    正确答案：C
    解析：本题是针对输出格式的问题。字符串输出没有正负号，字符之间没有空格；数字输出有正负号，字符之间有空格。打印的结果为123456。

  • 第13题：

    设有如下程序： Private Sub Form. Click（ ） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。

    A.ABCCDEDEFG

    B.AABBCDEFG

    C.ABCDEFG

    D.AABBCCDDEEFFGG


    正确答案：A
    A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。

  • 第14题：

    下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd Sub

    A．14

    B．15

    C．14

    D．13


    正确答案：A
    解析：本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。

  • 第15题：

    以下有关数组定义的语句序列中，错误的是 ______。

    A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45

    B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(size) End Sub

    C．Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub

    D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub


    正确答案：D
    解析：在数组定义中，定义的数组元素个数不能是变量。而选项D中的n是一个变量。

  • 第16题：

    以下有关数组定义的语句序列中，错误的是 ______。

    A．Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=12345

    B．Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(size) ... End Sub

    C．Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ... End Sub

    D．Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ... End Sub


    正确答案：D
    解析：在数组定义中，定义的数组元素个数不能是变量。而选项D中的n是一个变量。

  • 第17题：

    在窗体上画一个名称为Text1的文本框，然后编写如下代码： 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) Sun = 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

  • 第18题：

    有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。

    A．100

    B．120

    C．200

    D．50


    正确答案：B
    解析：本题难点是实、虚参数传递的问题。tot按ByRef参数传递。子过程的功能是计算n!，“5!=120”。

  • 第19题：

    有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m\2 End Function 单击命令按钮后，输出结果为

    A．2 2

    B．4 4

    C．5 5

    D．6


    正确答案：D
    解析：在Sub过程中，程序段先定义了3个 Integer型变量k，m，P，并给A赋给初值4，m的初值为1，然后调用事件过程Fun，并将它的值赋给9；在事件过程 Fun中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在Fun中，将m，i定义为静态变量，所以第一次调用后的值仍然保留，但是 m，i分别都有赋值语句，将它们的值变为5，2，所以返回值不变都是6 6。注意： 调用函数只能返回一个结果值。注意：函数调用、参数传递

  • 第20题：

    有如下的程序：Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print PEnd SubPrivate Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m\2End Function单击命令按钮后，输出结果为

    A．2 2

    B．4 4

    C．5 5

    D．6 6


    正确答案：D
    解析：在Sub过程中，程序段先定义了3个Integer型变量k，m，p，并给k赋给初值4，m的初值为1，然后调用事件过程Pid，并将它的值赋给p；在事件过程Pid中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在Pid中，将m，I定义为静态变量，所以第一次调用后的值仍然保留，但是m，I分别都有赋值语句，将它们的值变为5，2，所以返回值不变都是66。

  • 第21题：

    阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i 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 arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

    A．21

    B．13

    C．8

    D．25


    正确答案：A
    解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在VisualBasic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义；ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。

  • 第22题：

    以下有关数组定义的语句序列中，错误的是______。

    A．Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)=123.45

    B．Dim arr2()As Integer Dim size As Integer Private Sub Command2 Click() size=InputBox("输入：") ReDimarr2(size) End Sub

    C．Option Basel Private Sub Command3 Click() Dim arr3(3)As Integer End Sub

    D．Dim n As Integer Private Sub Command4 Click() Dim arr4(n) As Integer End Sub


    正确答案：D
    解析：在数组定义中，定义的数组元素个数不能是变量。而选项D中的n是一个变量。

  • 第23题：

    设有如下程序: Private Sub Form. Click( ) Dim i As Integer,x As String,y As String x="

    设有如下程序：

    Private Sub Form. Click（ ）

    Dim i As Integer，x As String，y As String

    x="ABCDEFG"

    For i=4 To 1Step-1

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

    Next i

    Print y

    End Sub

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

    A.ABCCDEDEFG

    B.AABBCDEFG

    C.ABCDEFG

    D.AABBCCDDEEFFGG


    正确答案：A
    A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。

相关内容