以下过程是标签Label1的()事件。 Prviate Sub Label1_DblClick() …… EndSub
第1题:
( 20 )在窗体上画一个命令按钮和两个标签,其名称分别为 Command1 、 Label1 和 Label2 ,然后编写如下事件过程:
Private Sub Command1_Click()
a = 0
For i = 1 To 10
a = a + 1
b = 0
For j = 1 To 10
a = a + 1
b = b + 2
Next j
Next i
Label1.Caption = Str(a )
Label2.Caption = Str(b )
End Sub
程序运行后,单击命令按钮,在标签 Label1 和 Label2 中显示的内容分别是
A ) 10 和 20
B ) 20 和 110
C ) 200 和 110
D ) 11 0 和 20
第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.12
B.13
C.14
D.15
第3题:
在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是( )。
A.Private Sub Text1_Click()
Label1.Caption=Textl.Text
End Sub
B.Private Sub Text1_Change()
Label1.Caption=Text1.Text
End Sub
C.Private Sub Label1_Ctrange()
Label1.Caption=Text1.Text
End Sub
D.Private Sub Label1_Click()
Label1.Caption=Text1.Text
End Sub
第4题:
在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2:六个标签,名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6,其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条的数值,Label3显示A*B的计算结果。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。
A.Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub
B.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub
C.Private Sub Command1_Click() Label3.Caption=HScrolll*HScroll2 End Sub
D.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub
第5题:
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是: ______。
A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B.Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub
C.Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub
D.Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb
第6题:
在窗体上画一个名称为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.12
B.13
C.14
D.15
第7题:
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。
A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B.Private Sub Label 1_Change() Label1.Caption=Text1.Text End Sub
C.Private Sub Text1_Click() Label1.Caption=Text1.text End Sub
D.Private Sub Label1_Click( ) Label1.Caption=Text1.Text End sot
第8题:
在窗体上面画一个命令按钮和一个标签,其名称分别为 Command1和 Label1,然后编写如下事件过程:
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是( )。 A.11
B.12
C.16
D.20
第9题:
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第10题:
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text),4) End Sub 程序运行后,如果在对话框中输入abcdefgh,则在标签中显示的内容是 ______。
A.空
B.abcdef
C.abcd
D.efgh