Private Sub Commandl_Chick.
a=0
F.or i=1 To 10
a=a+1
b=0
F.orj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Label1. Caption=Str(a)
Labe12.Caption=Str(b)
E.nd Sub
程序运行后,单击命令按钮,在标签 Label1和Label2中显示的内容分别为( )。
A.10 和 20
B.20 和 110
C.200 和 110
D.110 和 20
[单选题]在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:Private Sub Command1_Click()C.ounter=0F.ori=1 T04F.orj=6 To 1 Step一2C.ounter=Counter+1Next jNextiLabell.Caption=Str(Counter)E.nd Sub程序运行后,单击命令按钮,标签中显示的内容是A.11B.12C.16D.20
[单选题]在窗体上画一个命令按钮和两个标签,其名称分别为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中显示的内容分别是______
[单选题]在窗体上画一个命令按钮和两个标签,其名称分别为Command1、Label1和Label2,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 T0 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
[单选题]在窗体上画两个标签和一个命令按钮,其名称分别为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(Labe
[单选题]在窗体上画两个标签和一个命令按钮,其名称分别为Labell、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(Labe
[单选题]( 27 )在窗体上画两个标签和一个命令按钮,其名称分别为 Label1 、 Label2 和 Command1 ,然后编写如下程序:Private Sub func(L As Label)L.Caption= ” 1234 ”E.nd subPrivate Sub Form_Load()Label2.Caption=10E.nd subPrivate Sub Command1_Click()A.=Val(Label2.Caption)C.all func(Label1)Label2.Capti
[单选题]( 20 )在窗体上画一个命令按钮和两个标签,其名称分别为 Command1 、 Label1 和 Label2 ,然后编写如下事件过程:Private Sub Command1_Click()a = 0F.or i = 1 To 10a = a + 1b = 0F.or j = 1 To 10a = a + 1b = b + 2Next jNext iLabel1.Caption = Str(a )Label2.Caption = Str(b )E.nd Sub程序运行后,单击命令按钮,在标签
[单选题]在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Lubd2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Commandl_Click()X=5:Y=3C.all proc(X,Y)Labell.Caption=XLabel2.Caption=YE.nd SubPrivate Sub proc(a As Integer,ByVal b As Integer)X=a*aY=b+bE.nd Sub程序运行后,单击命令按钮,
[试题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入一个具有大小写的字符串,则在标签中显示的内容全部为大写。请填空。
[单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和 Commandl,然后编写如下两个事件过程;Private Sub Command1_Click()S$= InputBox ("请输入1个字符串")Text1.Text= S$E.nd SubPrivate Sub Text1_Change()Labell.Caption = UCase(Mid(Text1, Text2, 8))E.nd Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话