期货交易所不以营利为目的,按照其章程的规定实行自律管理,期货交易所不具有法人资格。()
第1题
第2题
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
第3题
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ListCount-1
If Combo1 Text= 【 12 】 Then
Label2 Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 Caption=" 已成功添加新输入项。 "
Combo1 ______ Combo1 Text
End If
End Sub
第4题
第5题
Privte Sub Combo1_Click() Call Showltem(Comb01.Label1) End Sub Private Sub Combo2_Click() Call Showltem(ComboLabe12) End Sub Public Sub Showhem(tmpCombo As ComboBox,tmpLabd As Label), 【 】Caption=【 】.Text End Sub
第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() 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
第7题
在窗体上画两个标签和一个命令按钮,其名称分别为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
第8题
D)窗体(Form)可以作为过程的参数
(25)在窗体上画一个名称为 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
第9题
Private Sub Combo1【 】(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1;ListCount-1 If Combo1.Text=【 】Then LabeCaption="输入项已在组合框中" Exit Sub End If Next i LabeCaption="已成功添加输入项" Combo1.【 】Combo1.Text End If End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!