更多"窗体上有名称为Command1的命令按钮,名称分别为Label1、La"的相关试题:
[单项选择]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click( ) Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption =y Label3.Caption =z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
[单项选择]在窗体上画一个名称为Command1的命令按钮和3个名称分别为Label1, Label2, Label3的标签,然后编写如下代码: 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 Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序,连续三次单击命令按钮后,则3个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
[单项选择]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:
Private x AS Integer
Private Sub Command1_Click( )
Static y As Integer
Dim 2 As Integer
n=10
Z=n+2
y=y+2
X=X+2
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
[单项选择]
在窗体上画一个命令按钮和两个标签,其名称分别为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
[单项选择]在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如
下程序代码:
Private X As Integer
Private Sub Command1_Click( )
X=8: Y=4
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. 8和4
B. 8和16
C. 16和4
D. 16和16
[单项选择]在窗体上画—个名称为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
[单项选择]在窗体上画两个标签和一个命令按钮,其名称分别为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. 1234和100
B. ABCD和100
C. 1234和10
[单项选择]在窗体上画两个标签和一个命令按钮,其名称分别为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