重要提示:请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
首页 > 大学专科> 电子信息
网友您好,请在下方输入框内输入要搜索的题目:
搜题
拍照、语音搜题,请扫码下载APP
扫一扫 下载APP
题目内容 (请给出正确答案)
[主观题]

在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后,在列表框中添加若干列表项。

当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图16-1所示。请在【 】和【 】处填入适当的内容,将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【 】 () Label1. Caption=【 】 End Sub

在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后,在列表框中添加若干列表

答案
查看答案
更多“在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后,在列表框中添加若干列表项。”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编如下事件过程:Privat

A.1

B.5

C.27

D.45

点击查看答案

第2题

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程:

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程: Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【 】 End Sub Private Sub Form_Click() Timer1.Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1.Caption=【 】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程

点击查看答案

第3题

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程: Private Sub Form_Load() Timer1. Enabled=False Timer1. Interval=【 】 End Sub Private Sub Form_Cliek() Timer1. Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1. Caption=【 】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟改变一次。请填空。

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后

点击查看答案

第4题

在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后,在列表框中添加若干列
表项。当双击列表框中的某个项目时,在标签kabel1中显示所选中的项目,如图所示。

在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后,在列表框中添加若干请在【 】和【 】处填入适当内容,将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮, 一个名称为Label1、 Label2的标签, 然后编写如下的事件过程:

Private x As Integer

Private Sub Command1_Click()

x = 5: y = 3

Call Proc(x, y)

Label

1.Caption = x

Label

2.Caption = y

End Sub

Private Sub Proc(ByVal a As Integer, ByVal b

As Integer)

x = a * a

y = b + b

End Sub

运行程序后, 则两个标签中显示的内容分别是

A.5和3

B.25和3

C.25和6

D.5和6

点击查看答案

第6题

在窗体上画两个组合框,其名称分别为Combo1、Comb02,然后画两个标签,名称分别为Label1、 Labe12。要
求程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 Private Sub Comb01_Click() Call ShowItem(Combo1,Labe11) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2, Labe12) End Sub Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) ______.Caption=______.Text End Sub

点击查看答案

第7题

在窗体上画两个组合框,其名称分别为Combo1、Comb02,然后画两个标签,名称分别为Label1、Label2,如
图所示。程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。

在窗体上画两个组合框,其名称分别为Combo1、Comb02,然后画两个标签,名称分别为Label1Privte 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

点击查看答案

第8题

在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗
口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮。即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。 Private Sub Command1_C1ick() If List1. List1adex>=【 】Then List1. Removeltem【 】 Label1. Caption=【 】 Else MsgBox "请选择要删除的项目" End If End Sub

在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1

点击查看答案

第9题

在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Commandl和Label1,通过属性窗
口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。 Pfivme Sub Command1_Click() If List1.List1ndex>=【 】Then List1.Removehem【 】 Label1.Caption=【 】 Else MsgBox“请选择要删除的项目”

在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Commandl和Label1End If End Sub

点击查看答案

第10题

在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名
称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示:

在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属如果存在,则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Combo1【 】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【 】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【 】Combo1.Text End If End Sub

点击查看答案
下载APP
关注公众号
TOP
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案 购买前请仔细阅读《购买须知》
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《服务协议》《购买须知》
立即支付 系统将自动为您注册账号
已付款,但不能查看答案,请点这里登录即可>>>
请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
请用微信扫码测试
优题宝