vb6.0实验六习题与答案
更新时间:2024-06-01 11:14:01 阅读量: 综合文库 文档下载
- vb6.0实验四推荐度:
- 相关推荐
实验六
专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的
1、认识常用控件:单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器(Slider)、时钟、图形控件;
2、学习在窗体中创建常用控件
2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法
4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容
1、单选按钮、复选框、框架
1)设置窗体F1的标题为“复选框、框架和单选按钮”;在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000;并程序运行时,Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。
2)设计窗体,要求 ①标题为“设置字体”;
②在窗体中设置有边框的标签控件Label1,高度和宽度分别为450和3800,标题为“欢迎使用VB”,字号为“四号”,居中显示;
③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2;
④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程,使得程序运行时,单击“楷体_GB2312”,标签控件的字体为楷体_GB2312,单击“华文新魏”,标签控件的字体为华文新魏;单击“是”,标签控件的字体为斜体,单击“否”,标签控件的字体取消斜体。
Private Sub Option1_Click()
Label1.FontName = Option1.Caption
End Sub
Private Sub Option2_Click()
Label1.FontName = Option2.Caption
End Sub
Private Sub Option3_Click() Label1.FontItalic = True
End Sub
Private Sub Option4_Click() Label1.FontItalic = False
End Sub
3)在窗体是设置设置框Text1,其中文字为:黑体、四号、居中;设置单选按钮Option1和Option2,标题分别为“福州大学”和“阳光学院”,编写行当的事件过程,使得程序时,单击“福州大学”或“阳光学院”,在文本框中显示“福州大学”或“阳光学院”。
Text.text=option1.caption
Text1.text=option2.caption
4)在窗体上设置框架,其标题为“效果”,框架内设置四个复选框,标题分别为“上标”、“下标”、“阳文”和“阴文”。其中:“上标”处于选中状态,“阴影”处于被禁止状态,其余两个处于未选中状态。
设置value
2、列表框、组合框
1)按图设计,在窗体中设置两个标签L1和L2、两个列表框MyList1和MyList2:
其中:标签的标题分别为“科目名称”和“专业”;
两个列表框的列表项如图所示;并且MyList1允许仅用鼠标进行多项选
(Multiselect=1)
(style= 1-checkbox)
2)按图设置窗体的标题为“简单组合框”、一个简单组合框MyComb1、两个标题分别为“添加”和“删除”的命令按钮Cmd1和Cmd2。
要求: ①简单组合框的左边距1000、上边距500;在组合框中添加“土建”、“计算机”、“会计”、“工商管理”。
②设置编写适当的事件过程,使得程序运行时,在组合框的文本框中输入项目,单击“添加按钮,将其添加到组合框中;在组合框中选定一个项目,单击“删除”按钮,则删除除该项目。
Private Sub Command1_Click() Combo1.AddItem Combo1.Text End Sub
Private Sub Command2_Click()
Combo1.RemoveItem Combo1.ListIndex End Sub
3)按图示设计窗体:
要求:编写适当的事件过程,实现
①当List1任选一项,单击“选择”按钮,将选项定项添加到List2中 ②当List2任选一项,单击“删除”按钮,将选项定项从List2中删除 ③单击“统计”按钮,弹出消息框,显示选定项目数信息。 Private Sub Command1_Click() List2.AddItem List1.Text End Sub
Private Sub Command2_Click() List2.RemoveItem List2.ListIndex
End Sub
Private Sub Command3_Click() x = List2.ListCount
MsgBox \你选了\ & x & \个项目\, 0, \选定项统计\ End Sub
4)按图示设计窗体:
要求:
①三个标签控件可随内容自动改变大小,Label1的文本居中对齐; ②组合框Combo1的选项有:隶书、楷体_GB2312、宋体、黑体等四项
③编写适当事件过程,实现:当组合框或列表框中单击某项时,则Label1中按选项设置字体和字号。
Private Sub Combo1_Click() Label1.Font = Combo1.Text End Sub
Private Sub List1_Click() Label1.FontSize = List1.Text End Sub 3、滚动条、
1)按图示设计窗体:
要求:
①两个标签控件可随内容自动改变大小,Label1的文本居中对齐且在垂直方向变化大小以适应内容,文本字体为“隶书”、字号为“四号”。
②宽度水平滚动条HS1取值范围从300~2500,单击滚动条箭头,改变值为50;单击滚动条空白处,改变值为100;
③编写适当事件过程,实现:按滚动条当前值改变标签的宽度,并把滚动条当前值显示在文本
框中。
Private Sub HScroll1_Change() Label1.Width = HScroll1.Value Text1.Text = HScroll1.Value End Sub 4、时钟
1)按图示设计窗体:
要求:
①标签Label2为有边框,其标题文字加粗、字号为“四号” ②文本框Text1的文字加粗、字号为“四号”
③编写适当的事件过程,实现单击“开始”按钮时Label2动态显示当前时间,文本框文字每隔1秒加1。单击“退出”,退出应用程序。 Dim s As Integer
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() s = s + 1
Label1.Caption = Time Text1.Text = s End Sub
Private Sub Command2_Click() End End Sub
5、图像框与图片框 1)按图示设计窗体:
要求:
①图像框带有边框、加载图像能自动改变大小适应图像框。
②编写适当事件过程,实现:单击“显示图像”命令按钮或单选按钮,加载图像“setop.bmp” ③编写适当事件过程,实现:单击“隐藏图像”命令按钮或单选按钮,删除图像框中图像
正在阅读:
vb6.0实验六习题与答案06-01
二次函数压轴题分类精选 - 相似10-23
构建丝绸之路新经济带 加快“三个陕西”建设步伐(大纲+题库)最新08-11
国际法司考真题03-16
各种道集的关系09-13
三年级上册课本58道复习题04-07
塑料衬里施工方案 - 图文03-10
创新创业学答案01-17
基础会计实用计算题(2)06-05
- 《江苏省环境水质(地表水)自动监测预警系统运行管理办法(试行)》
- 安乐死合法化辩论赛立论稿(浙大新生赛)
- 公共科目模拟试卷公务员考试资料
- 我国固定资产投资FAI对GDP的影响
- 大学生创新创业训练计划项目申请书大创项目申报表
- 完美版—单片机控制步进电机
- 2013资阳中考化学试题
- 18.两位数减一位数退位(397道)
- 工程量计算规则
- 二年级操行评语(下)
- 第3章 流程控制语句
- 浅基桥墩加固技术
- 课题研究的主要方法
- 5100软件说明书 - 图文
- 车间技术员年终总结
- 关于印发《中铁建工集团开展项目管理实验室活动方案》的通知
- 经典诵读结题报告
- 地下水动力学习题答案
- 2018年全国各地高考数学模拟试题平面解析几何试题汇编(含答案解
- 街道办事处主任2018年度述职述廉报告
- 习题
- 答案
- 实验
- 6.0
- vb
- 3D全套教程
- 三角函数的图像与性质经典练习题
- 勾股定理培优试题(通江二中刘仕平
- 实用新型专利撰写模板
- 如何应对考试前后的突发情况每日一练(2016.11.7)
- 图形的旋转说课稿
- 实用新型专利申请范本(官方版)
- 南京市城区防御台风应急预案
- 内蒙古科技大学经管学院本科生毕业论文手册 - 图文
- 深圳人口与医疗需求预测
- 消防应急专项应急预案 - 图文
- 2014邻里纠纷调解案例
- 附表事故隐患排查表2.14.5.29
- 创业策划书
- 3、工程投标及施工管理承诺书
- 音乐与舞蹈说课稿
- 漏洞县交规模拟考试精选第5套试题
- 小学五年级下册第八单元阅读写作指导教案讲义
- 宣城市楷昂化工有限公司突发环境事件环境风险评估报告
- 岳阳市乐斗教育培训学校2013年中考数学押题卷(含答案)