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

题目

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


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

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

  • 第2题:

    在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案:C
    暂无解析,请参考用户分享笔记

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

    在窗体上绘制一个名称为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正确。

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