itgle.com

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

题目

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

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

Label1.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.在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： 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 Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。A．12B．13C．14D．15

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

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

更多“在窗体上画一个名称为Label1的标签,然后编写如下事件过程: PrivateSubForm_Click() Dima ”相关问题

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

    在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click（) Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then S = S + 1 End If Next i Label1.Caption = S End Sub 运行程序，单击窗体，标签中显示的是________。

    A．1

    B．5

    C．27

    D．45


    1000 True或任何非0数值 Time或Time＄ Interval是计时器最重要的属性，用来设置一定的时间间隔用来触发Timer事件。Interval以毫秒为单位，设为1000时表示1秒，根据题意，第6空填1000。第7个空，本处表达的意思是当单击窗体时，Timer1的功能被启动，故本处填True，也可以填任何非0数值。因为在VisualBasic中数值0表示False，非0值都可以表示True。根据题意，[8]需要把当前时间赋给Label1的Caption属性，故[8]填Time或Time＄。该函数返回当前时间。

  • 第4题：

    在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：

    运行上面的程序，单击命令按钮．其输出结果是

    A．8 9

    B．8 18

    C．64 9

    D．64 18


    正确答案：C
    解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程，所以虽然是传值，但在过程Subl中可见，因此在该过程中使用了窗体变量X，这个“x＝a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量，与过程Sunl中的变量y没有关系，标签Label2显示的是本过程的Y值，即9。正确答案为c。

  • 第5题：

    在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码： Option Base 0 Private Sub Command1_Click（) Dim a（5) As Integer, n As Integer For i = 0 To 5 a（i) = i n = n + a（i) Next i Label1 = n End Sub 运行程序，单击命令按钮，在标签中显示的内容是________。

    A．5

    B．10

    C．15

    D．20


    B

相关内容