习题7与答案.docx
- 文档编号:25280282
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:16
- 大小:91.84KB
习题7与答案.docx
《习题7与答案.docx》由会员分享,可在线阅读,更多相关《习题7与答案.docx(16页珍藏版)》请在冰豆网上搜索。
习题7与答案
第七章列表框、组合框和滚动条
7-1组合框和列表框的主要区别是什么?
答:
列表框只能使用户从多个项目中选择一个或多个进行相应处理,而组合框不仅能从已有的项目中进行选择,还能输入列表中不包括的项目。
组合框实际上相当于将列表框和文本框的功能综合到一起,既可以像列表框一样让用户选择其中的项目,又能像文本框一样,由用户输入自己指定的内容。
7-2设计一个程序,运行时的窗体如图7.17所示。
窗体中包含两个列表框。
左侧列表框中列出若干城市的名称。
当算计某个城市名时,这个城市从左侧的列表框中消失,同时出现在右侧的列表框中。
其中,左侧列表框中的城市名是在程序开始运行时添加到列表框中的。
图7.17
程序代码:
PrivateSubCmdExit_Click()
End
EndSub
PrivateSubForm_Load()
List1.Clear
List2.Clear
List1.AddItem"北京"
List1.AddItem"上海"
List1.AddItem"天津"
List1.AddItem"重庆"
List1.AddItem"广东省"
List1.AddItem"河南省"
List1.AddItem"辽宁省"
List1.AddItem"陕西省"
EndSub
PrivateSubList1_DblClick()
SelectCaseList1.Text
Case"北京"
List2.AddItem"北京"
j=List1.ListIndex
Case"上海"
List2.AddItem"上海"
j=List1.ListIndex
Case"天津"
List2.AddItem"天津"
j=List1.ListIndex
Case"重庆"
List2.AddItem"重庆"
j=List1.ListIndex
Case"广东省"
List2.AddItem"广东省"
j=List1.ListIndex
Case"河北省"
List2.AddItem"河北省"
j=List1.ListIndex
Case"辽宁省"
List2.AddItem"辽宁省"
j=List1.ListIndex
Case"陕西省"
List2.AddItem"陕西省"
j=List1.ListIndex
EndSelect
List1.RemoveItemj
EndSub
PrivateSubList2_DblClick()
SelectCaseList2.Text
Case"北京"
j=List2.ListIndex
Case"上海"
j=List2.ListIndex
Case"天津"
j=List2.ListIndex
Case"重庆"
j=List2.ListIndex
Case"广东省"
j=List2.ListIndex
Case"河南省"
j=List2.ListIndex
Case"辽宁省"
j=List2.ListIndex
Case"陕西省"
j=List2.ListIndex
EndSelect
List2.RemoveItemj
EndSub
______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________7-3修改例7.1的程序,将图7.2界面中显示航班信息的标签改为多行文本框,仍用于显示航班信息。
窗体如图7.18所示。
要求:
(1)程序运行时,在列表框中列出若干城市,不显示“返回”命令按钮,如图7.19所示;
(2)从列表框中选择一个城市名后,窗体左侧显示城市的列表框消失,这时窗体上只有右部文本框、标签和“返回”命令按钮(“结束”命令按钮被隐藏),用来显示到达此城市的航班的起飞时间和其他信息,如图7.20所示;
(3)单击“返回”按钮,恢复初始窗体的状态。
注意:
应将文本框中显示的航班信息清除。
图7.18
图7.19图7.20
程序代码:
PrivateSubForm_Load()
lstplace.AddItem"上海"
lstplace.AddItem"大连"
lstplace.AddItem"广州"
lstplace.AddItem"深圳"
lstplace.AddItem"重庆"
lstplace.AddItem"厦门"
lstplace.AddItem"新疆"
lstplace.AddItem"拉萨"
Text1.Text=""
cmdReturn.Visible=False
EndSub
PrivateSublstplace_Click()
ch$="北京--"
SelectCaselstplace.ListIndex
Case0
ch1$="星期五15:
00起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case1
ch1$="星期一09:
00起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case2
ch1$="星期六22:
20起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case3
ch1$="星期三11:
00起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case4
ch1$="星期四17:
00起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case5
ch1$="星期二23:
15起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case6
ch1$="星期日08:
30起飞"
Text1.Text=ch$+lstplace.Text+ch1$
Case7
ch1$="星期三11:
40起飞"
Text1.Text=ch$+lstplace.Text+ch1$
EndSelect
lstplace.Visible=False
cmdexit.Visible=False
Label1.Visible=False
cmdReturn.Visible=True
EndSub
_
_7-4建立如图7.21所示的界面。
水平和垂直滚动条分别表示速度和时间。
设速度的变化范围0~100km/h,时间的变化范围是0~50h。
当速度或时间发生变化时,分别在水平和垂直滚动条边的标签中显示当时的速度和时间值,并在“距离(km)”下的标签中显示相对于该速度和时间的距离值。
图7.21
程序代码:
PrivateSubCmdExit_Click()
End
EndSub
PrivateSubHScroll1_Change()
i=HScroll1.Value
j=VScroll1.Value
Text2.Text=Str(i)
Ifi<>0Andj<>0Then
Text3.Text=Str(i*j)
EndIf
EndSub
PrivateSubVScroll1_Change()
i=HScroll1.Value
j=VScroll1.Value
Text1.Text=Str(j)
Ifi<>0Andj<>0Then
Text3.Text=Str(i*j)
EndIf
EndSub
7-5设计一个程序,窗体外观如图7.22所示,在窗体上设置两个组合框,一个是下拉式组合框(Style=0,位置在窗体左上角),用来显示家电产品大类;另一个是简单组合框(Style=1,在窗体中部),用来显示某一大类产品的不同牌号产品。
设置三个标签,标签2和标签3用来为组合框1和组合框2作标注。
标签1用来在程序运行时显示用户所选中的产品信息。
在运行开始时标签1和“返回”按钮被设置为“不可见”。
在“显示产品信息”按钮被单击时,将其设置为“可见”,并在其中显示有关信息。
程序运行时,窗体外观如图7.23所示。
“返回”和“退出”两个命令按钮分别在不同的条件下显示,即程序运行时,这两个按钮不会同时显示在屏幕上。
当选择了某家电产品类别及某类产品时,单击“显示产品信息”按钮,显示所选产品的详细信息,如图7.24所示。
单击“返回”按钮,返回到初始窗口。
图7.22
图7.23图7.24
程序代码:
PrivateSubcmdExit_Click()
End
EndSub
PrivateSubcmdReturn_Click()
Combo1.Visible=True
Combo2.Visible=True
Label2.Visible=True
Label3.Visible=True
cmdShow.Visible=True
cmdExit.Visible=True
cmdReturn.Visible=False
Label1.Visible=False
EndSub
PrivateSubcmdShow_Click()
Combo1.Visible=False
Combo2.Visible=False
Label2.Visible=False
Label3.Visible=False
cmdShow.Visible=False
cmdExit.Visible=False
Label1.Visible=True
cmdReturn.Visible=True
Label1.BackStyle=1
IfCombo1.Text="电视机"Thentelevision
IfCombo1.Text="录像机"Thenvideocorder
EndSub
PrivateSubCombo1_Click()
SelectCaseCombo1.Text
Case"电视机"
Combo2.Clear
Combo2.AddItem"长虹彩电"
Combo2.AddItem"东芝彩电"
Combo2.AddItem"夏普彩电"
Combo2.AddItem"彩虹彩电"
Case"录像机"
Combo2.Clear
Combo2.AddItem"松下录像机"
Combo2.AddItem"东芝录像机"
Combo2.AddItem"夏普录像机"
EndSelect
EndSub
PrivateSubForm_Load()
Label1.Visible=False
Combo1.AddItem"电视机"
Combo1.AddItem"录像机"
cmdReturn.Visible=False
EndSub
PrivateSubtelevision()
SelectCaseCombo2.Text
Case"长虹彩电"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"21寸1800元"
Case"东芝彩电"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"25寸4600元"
Case"夏普彩电"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"21寸2300元"
Case"彩虹彩电"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"21寸1500元"
EndSelect
EndSub
PrivateSubvideocorder()
SelectCaseCombo2.Text
Case"松下录像机"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"1800元"
Case"东芝录像机"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"4600元"
Case"夏普录像机"
Label1.Caption="电子产品信息产品类别:
"+Combo1.Text+"产品名称:
"+
Combo2.Text+"2300元"
EndSelect
EndSub
_
7-6修改例7.3。
程序运行时,从一个顺序文件中读取城市名,并添加到组合框中。
退出程序时,将组合框中当前的项目保存到顺序文件中。
程序界面:
程序代码:
PrivateSubCboCity_Click()
LblCity.Caption=CboCity.Text
EndSub
PrivateSubCmdAdd_Click()
flag=0
IfCboCity.Text<>""Then
Fori=0ToCboCity.ListCount
IfCboCity.Text=CboCity.List(i)Then
flag=1
EndIf
Next
Ifflag=0Then
CboCity.AddItem(CboCity.Text)
EndIf
Else
MsgBox"请输入城市名称!
"
EndIf
EndSub
PrivateSubCmdDelete_Click()
IfCboCity.ListIndex=-1Then
MsgBox"请选择要删除的项目!
"
Else
CboCity.RemoveItemCboCity.ListIndex
EndIf
EndSub
PrivateSubCmdExit_Click()
CallForm_QueryUnload(0,0)
End
EndSub
PrivateSubCmdsave_Click()
flag=0
IfCboCity.Text<>""Then
Fori=0ToCboCity.ListCount
IfCboCity.Text=CboCity.List(i)Then
flag=1
EndIf
Next
Ifflag=0Then
CboCity.AddItemCboCity.Text
Open"E:
\惠丽峰07年精品课\惠丽峰_VB课件\第7章\课后习题\Lx7_6.txt"ForAppendAs#1
Print#1,CboCity.Text
Close#1
EndIf
Else
MsgBox"请输入城市名称!
"
EndIf
EndSub
PrivateSubForm_Load()
DimsAsString
Open"E:
\惠丽峰07年精品课\惠丽峰_VB课件\第7章\课后习题\Lx7_6.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,s
CboCity.AddItems
Loop
Close#1
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
Open"E:
\惠丽峰07年精品课\惠丽峰_VB课件\第7章\课后习题\Lx7_6.txt"ForOutputAs#1
Fori=0ToCboCity.ListCount-1
Print#1,CboCity.List(i)
Nexti
Close#1
EndSub__
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 习题 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)