更多"在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label"的相关试题:
[单项选择]
在窗体上画一个命令按钮和两个标签，其名称分别为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(Labell)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[单项选择]
在窗体上画两个标签和—个命令按钮，其名称分别为Label1、Labd2和Command1，然后编写如下程序：Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load（ ） Label1. Caption="ABCDE" Label2．Caplion=10End SubPrivate Sub Command1_ Click（ ） a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（）。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
[单项选择]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click（ ）
X=5:Y=3
Call proc(x,y)
Label1.Caption=x
Labet2.Caption=y
End Sub Private Sub proc(a As Integer，ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )
A. 25和3
B. 5和3
C. 25和6
D. 5和6
[单项选择]在窗体上画—个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click（ ） X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
A. 25和3
B. 5和3
C. 25和6
D. 5和6
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：
Sub s(x As Integer, y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1 Click（ ）
Dim i As Integer, z As Integer
m=0
z=0
For i=1 To 3
S i, Z
m=m+z
Next i
Labell. Caption=Str(m)
End Sub
程序运行后，单击命令按钮，在标签中显示的内容是( )。
A. 50 B) 20 C) 14 D) 7
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Private Sub Command1_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
[单项选择]在窗体上画—个命令按钮和—个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_tlick（ ） 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
