在窗体上画一个名称为Labell的标签,然后编写如下事件过程: Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后,单击窗体,在标签中显示的内容是 ______。A.400B.20C.441D.出错信息

题目

在窗体上画一个名称为Labell的标签,然后编写如下事件过程: Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后,单击窗体,在标签中显示的内容是 ______。

A.400

B.20

C.441

D.出错信息


相似考题
参考答案和解析
正确答案:D
解析:一维数组a的下标在1~20之间。而循环结束后k值为21,故产生下标越界的错误。
更多“在窗体上画一个名称为Labell的标签,然后编写如下事件过程:Option Base 1Private Sub Form_Click( ”相关问题
  • 第1题:

    在窗体上画一个名称为Labell的标签,然后编写如下事件过程: Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后,单击窗体,在标签中显示的内容是 ______。

    A.100

    B.10

    C.121

    D.出错信息


    正确答案:D
    解析:一维数组a的下标在1~10之间。而循环结束后k值为11,故产生下标越界的错误。

  • 第2题:

    在窗体上画一个名称为Labell的标签,然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后,单击窗体,在标签中显示的内容是

    A.12

    B.13

    C.14

    D.15


    正确答案:B
    解析:本题具有一定的迷惑性,其实分析一下易知arr(i,j)的值即为i*j,所以an(2,2)+arr(3, 3)就是求2*2+3*3=13。注意: For…Next循环控制结构适用于指定循环次数的循环程序。其格式为:
      For循环变量二初始值To终值Step步长
      Next
      其中,当步长为正时,初始值要小于终值;当步长为负时,初始值要大于终值。注意:For…Next循环控制结构。

  • 第3题:

    在窗体上画一个名称为Coml的命令按钮,然后编写如下事件过程:

    该事件过程的功能是计算s=l 1/2! 1/3 1 … 1/n!的值。请填空。


    正确答案:
    (1/i)【解析】本题考查循环的知识。本程序首先置q为1,sum为0;经过l0次循环使q每次都乘以1/i,实现了1/n!的求法;每次循环后都加q,把结果再赋给$tllTl,循环结束,slim的值即为所求。

  • 第4题:

    在窗体上画一个名称为CommRnd1的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:

    Private Sub Command1 Click()

    s=0

    For i=1 TO 15

    x=2*i-1

    if x Mod 3;0 Then s=s+l

    Next i

    Labe11.Caption=s

    End Sub

    程序运行后,单击命令按钮,则标签中显示的内容是上【 】。


    正确答案:5
    5 解析:本题是一个简单的For-Next循环。在循环中加入了If判断语句,也就是只有在x能够被3整除的条件下,s才能进行累加。考生如果忽略了If条件,认为s一直在累加,那就会得出15。

  • 第5题:

    在窗体上绘制一个名称为Labell的标签,然后编写如下事件过程: Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i=2 To 4 For j=2 To 4 arr(i,j)=i*j Next i Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后,单击窗体,在标签中显示的内容是

    A.12

    B.13

    C.14

    D.15


    正确答案:B
    解析:多重循环属于考试难点,考生应该注意多重循环中环应该按照先进后出、后进先出的原则,不能交叉。按照这个原则将循环层次分清楚就不容易出错。程序运行后在标签中显示的内容是13,选项B正确。