在窗体上画一个名称为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．出错信息

相似考题

1.在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。A．1B．5C．27D．45

2.在窗体上画一个名称为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 j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是A． 12B．13C．14D．15

3.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

4.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

参考答案和解析
正确答案：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正确。

相关内容