niusouti.com

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

题目

在窗体上画一个名称为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． 12

B．13

C．14

D．15

相似考题

1.在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i, j)=i*j Next j Next i Label1. Caption=Str(arr(2, 2)+arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是______。A．12B．13C．14D．15

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

3.在窗体上画一个名称为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．100B．10C．121D．出错信息

4.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click（）Dim arr（10, 10） As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr（i, j） = i * jNext jNext iLabel1.Caption = Str（arr（2, 2） + arr（3, 3））End Sub程序运行后，单击窗体，在标签中显示的内容是（ ）。A．12B．13C．14D．15

更多“在窗体上画一个名称为Labell的标签,然后编写如下事件过程:Private Sub Form_Click()Dim arr(10,1 ”相关问题

  • 第1题：

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

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

  • 第3题：

    在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：

    PriVate Sub Commandl_CUck()

    Dimalt(1 To 100)As Integer

    Fori=1 To 100

    arr(i)=Int(Rnd*1000)

    Nexti

    Max=arr(1)

    Min=arr(1)

    Fori=1 To 100

    If [12] Then

    Max=arr(i)


    正确答案：arr(i)＞Max或arr(i)＞=Max或Maxarr(i)或Max=arr(i)arr(i)Min或arr(i)=Min或Min＞arr(i)或Min＞=arr(i)
    arr(i)＞Max或arr(i)＞=Max或Maxarr(i)或Max=arr(i),arr(i)Min或arr(i)=Min或Min＞arr(i)或Min＞=arr(i)

  • 第4题：

    在窗体上画一个名称为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循环控制结构。

  • 第5题：

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

    A．12

    B．13

    C．14

    D．15


    正确答案：B
    解析：本题arr(i，j)的值即为i*j，所以arr(2，2)+arr(3，3)就是求2*2+3*3=13。

相关内容