更多"在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe1"的相关试题:
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序：
Private SUb fune(L As Label，By Val a As Integer)
L.Caption="1234"
a=a*a
End Sub
Private Sub Form Load（ ）
Labe11.Captlon="ABCD"
Labe12.Capfion=10
End Sub
Private SUb Command1_Click（ ）
a=Val(Label2.Caption)
Callfunc(Labell，
A. 1234和100
B. ABCD和100
C. 1234和10
[单项选择]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_C1ick（ ）
X=5：Y=3
Call proc(X，Y)
Labe11．Caption=X
Labe12．Caption=Y
End Sub
Private Sub proc(ByVal a As Integer，ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
A. 5和3
B. 25和3
C. 25和6
D. 5和6
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=Int(Val(Text1.Text)+0.5)
Labe11.Caption=Str(x)
End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labe11，然后编写如下事件过程：
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=8 To 1 Step-2
Counter=Counter+1
Next j
Next i
Labe11.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个名称为Command1的命令按钮和3个名称为Labe11、Labe12、Labe13的标签，然后 编写如下程序段： Private x As Integer Private Sub Commandl Click（ ） Static y As Integer Dim z As Integer n=10 z=n +z y=y +z X=X+Z Labe11．Caption=x Labe12．Caption=y Labe13．Caption=z End Sub 运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是( )。
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
[单项选择]在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下程序代码： Private X As Integer Private Sub Commandl_Click（ ） X=5:Y=3 Callproc(X,Y) Labe11.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVala As Integer,ByValb As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。
A. 5和3
B. 25和3
C. 25和6
D. 5和6
[填空题]在窗体上画一个名称为Command1的命令按钮和3个名称为Labe11、Labe12、LabeD的标签，然后编写如下程序段：
Private x AS Integer
Private Sub Command1_Click（ ）
Static y AS Integer
Dim z As Integer
n=10
z=n+z
y=y+z
X=X+Z
Labell．Caption=x
Label2．Caption=y
Label3．Capt&on=z
End Sub
运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是 【15】 。
[填空题]【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1. Text= (4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
[填空题]【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。
【程序】
Private Sub Combo1 (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1. Text= (4) Then
Labe12. Caption ="输入项已在组合框中"
Exit Sub
End If
Next i
Label2. Caption ="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub
[填空题]在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、 Label2。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Combo1_Click（ ）
Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click（ ）
Call ShowItem(Combo2,Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label)
______.Caption=______.Text
End Sub
[填空题]在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、 Labe12。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Comb01_Click（ ）
Call ShowItem(Combo1，Labe11)
End Sub
Private Sub Combo2_Click（ ）
Call ShowItem(Combo2, Labe12)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
______.Caption=______.Text
End Sub
