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
第2题
在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label中显示所选中的项目,如图所示。请在空白处填入适当的内容,将程序补充完整。
Private Sub Form_Load() List1.AddItem“北京” List1.AddItem“上海” List1.AddItem“河北” End Sub Private Sub List1_Dblclick() Label.Caption=【 】 End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
下面程序用来计算: Private Sub Command1_Click( ) A = Val(TextText) B = Val (TextText) Select Case A Case【 】 N=A+B Case Is = 5 N = B/A Case Is<5 N=0 End Select TextText = N End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
有一过程如下: Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下: Private Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox ("请输入数据") Call Subl (a,tot) Print tot End Sub 则输入数据5,运行结果为【 】。
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!