更多"在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两"的相关试题:
[填空题]在窗体上画两个组合框，其名称分别为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
[单项选择]
在窗体上画一个命令按钮和两个标签，其名称分别为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. 110和20
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load（ ）
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1 Click（ ）
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为______。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=Int(Val(Text1.Text)+0.5)
Label1.Caption=Str(x)
End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。
A. 27
B. 28
C. 29
D. 30
[填空题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click（ ）
S＄=InputBox("请输入一个字符串")
Text1.Text=S＄
End Sub
Private Sub Text1_Change（ ）
Label1.Caption=UCase(Mid(Text1.Text，7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。
