更多"在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Lab"的相关试题:
[单项选择]在窗体上画一个命令按钮和两个标签,其名称分别为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)
Label1.Caption=str(b)
End Sub
程序运行后,单击命令按钮,在标签Label1和Label2中显示的内容分别是【 】
A. 10和20
B. 20和10
C. 200和110
D. 110和20
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为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（ ） Labell.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click（ ） a=Val(Label2.Caption) Call func(Labell，A) Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是：_______。
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
[单项选择]在窗体上画两个标签和一个命令按钮，其名称分别为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
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click（ ）
strText=InputBox("请输入")
Text1. Text=strText
End Sub
Private Sub Text1_Change（ ）
Label1. Caption=Right(Trim(Text1. Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是______。
A. 空
B. abcdef
C. abc
D. def
