二级VISUAL+BASIC机试模拟8
更新时间:2023-03-14 23:52:01 阅读量: 教育文库 文档下载
第11套 上机考试试题
1 基本操作题(2小题,每题15分,共计30分)
注意:下面出现的“考生文件夹”均为c:\\wexam\\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为Text1的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“退出”,其名称分别为Dis和Exit,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框中显示“计算机考试”;如果单击“退出”命令,则结束程序运行。程序的运行情况如图11-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。 (2) 在窗体上画一个列表框,名称为L1,通过“属性”窗口向列表框中添加4个项目,分别为“WHBB”、“HIJK”、“QWEI”和“POIU”,单击列表框中的某一项,则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjtt2.frm。
2 简单应用题(2小题,每题20分,共计40分)
注意:下面出现的“考生文件夹”均为c:\\wexam\\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下:
在窗体中有两个命令按钮,名称分别是C1和C2,标题分别是“修改窗体图标”和“修改窗体标题”。要求程序运行后,点击C1命令按钮,则将窗体标题栏中的图标换为图标文件1.ico(该文件在考生文件夹下);点击C2命令按钮,则将窗体标题修改为“窗体”。程序界面如图11-4和图11-5所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下:
窗口中有一个名称为Picture1的图片框,一个名称为HScroll1的滚动条,3个命令按钮,名称分别为Command1,Command2和 Command3,标题分别为“运行”、“暂停”和“结束”,一个计时器控件,名称为Timer1。程序运行后,单击“运行”按钮后,使小球围绕大球转动,并可以使用滚动条调节转动的速度;单击“暂停”按钮后,暂停小球的转动;按“结束”按钮结束程序。程序运行界面如图11-6所示。
3 综合应用题(1小题,共计30分)
注意:下面出现的“考生文件夹”均为c:\\wexam\\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下:
在窗体上有一个名为L1的列表框,列表框中有若干的列表项如图11-7所示,通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮,名称分别是 C1和C2,标题分别是“全选”和“存盘”。要求在程序运行时,点击C1按钮则将 L1中的全部列表项选中,然后点击C2按钮,将L1中的全部列表项写入文本文件 out7.txt中,并将out7.txt保存在考生文件夹下。
答案:
1 基本操作题
(1)解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。
在Visual Basic中,菜单在“菜单编辑器”窗口中建立。通过End语句结束程序的运行。解题步骤: 第一步:建立界面并设置控件属性。菜单及控件属性设置见表11-1。
控 件 菜单 标题 名字 菜单 标题 名字 菜单 标题 文本框 Name 退出 Text1 显示 Exit 操作 Dis 属 性 名字 设 置 值 Op 第二步:编写程序代码。 参考代码:
Private Sub Dis_Click() Text1.Text=\计算机考试\ End Sub
Private Sub Exit_Click() End End Sub
第三步:调试并运行程序。 第四步:按题目要求存盘
(2) 解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。 用RemoveItem方法删除列表框中指定的项目,其格式为:
列表框.RemoveItem索引值
RemoveItem方法从列表框中删除以“索引值”为地址的项目,改方法每次只能删除一个项目。 ListIndex属性是已被选中的表项的位置。如果没有选中任何项,ListIndex的值将设置为-1。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表11-2。
控 件 属 性 L1 Name 列表框 List QWEI,POIU WHBB,HIJK 设 置 值 第二步:编写程序代码。 参考代码:
Private Sub L1_Click()
L1.RemoveItem L1.ListIndex End Sub
第三步:调试并运行程序。 第四步:按题目要求存盘。
2 简单应用题
(1) 解析:在窗体上建立好控件后,先设置控件属性,再编写事件过程。
按钮控件的属性由Caption来设置,单击触发其Click事件。通过设置Icon属性修改窗体的图标,修改窗体的Caption属性设置其标题。在程序中使用LoadPicture函数给Icon属性赋值,其格式为: LoadPicmre(\文件名\
LoadPicture函数把图形文件装入窗体、图片框或图像框中。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表11-3。
控 件 按钮 Caption 按钮 Caption 修改窗体标题 Name 修改窗体图标 C2 属 性 Name C1 设 置 值 第二步:编写程序代码。 程序提供的代码: Private Sub C1_CliCk()
' Form1.Icon=LoadPicture(\ End Sub
Private Sub C2_Click() 'Form1.?=\窗体\
End Sub 参考代码:
Private Sub C1_Click()
Form1.Icon=LoadPicture(\ End Sub
Private Sub C2_CliCk() Form1.Caption=\窗体\ End Sub
第三步:调试并运行程序。 第四步:按题目要求存盘。
(2) 解析:正面体上建立好控件后,先设置控件属性,再编写事件过程。
计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时,计时器计时开始,当为False时计时器计时暂停,所以要使小球运动暂停可将Enabled属性值设置为False,要使小球运行,则设置该属性值为True。解题步骤:
第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表11-4。
控 件 按钮 Caption 按钮 Caption Name 按钮 Caption 滚动条 图片框 Name Name 结束 HScroll1 Picture1 暂停 Commang3 Name 运行 Commang2 Name 属 性 设 置 值 Command1 第二步:编写程序代码。 程序提供的代码:
Option EXplicit
Dim c As Single,r As Single ' r小球到大球的球心的距离,C为小球的角度. Dim x As Single,y As Single ' X,Y为小球移动时的圆心 Dim st As Single
Private SUb Command1_CliCk() Timer1.Enabled=True End Sub
Private Sub Command2_Click() ' ?
End Sub
Private Sub Command3_Click() End End Sub
Private Sub Form_Load() r=20 c=0
St=0.063
HScroll1.Min=1 '设置最小值 HScroll1.Max=100 '设置最大值
End Sub
Private Sub HScroll1_Change()
' Timer1.?=200-HScroll1.Value ' 根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub
Private Sub PiCturel Paint()
PiCture1.FillColor=QBColor(12) PiCture1.ForeColor=QBColor(12) PiCture1.Circle (0,0) ,2 X=Cos(C) * r y=Sin(C) * r
Picture1.FillColor=QBColor(14) Picture1.ForeColor=QBColor(14) ' Picture1.? (x,y) ,0.5 c=c+st
If c>=2 * 3.14159 Then c=c Mod (2 * 3.14159) End If
End Sub
Private Sub Timer1 Timer() ' ? '重画图片框 End Sub 参考代码:
Option Explicit
Dim c As Single,r As Single ' r小球到大球的球心的距离,C为小球的角度. Dim x As Single,y As Single ' X,Y为小球移动时的圆心 Dim st As Single
Private Sub Command1_Click() Timer1.Enabled=True End Sub
PriVate Sub Command2_Click() Timer1.Enabled=False End Sub PriVate Sub Command3_Click() End End Sub
Private Sub Form_Load() r=20 c=0
st=0.063
HScroll1.Min=1 ' 设置最小值 HScroll1.Max=100 ' 设置最大值 End Sub
Private Sub HScroll1_Change()
Timer1.Interval=200-HScroll1.Vslue '根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub
Private Sub Picture1_Paint()
Picture1.FillColor=QBColor(12) Picture1.ForeColor=QBColor(12) Picture1.Circle (0,0) ,2 X=Cos(C) * r
y=Sin(C) * r
Picture1.Fillcolor=QBColor(14) Picture1.ForeColor=QBColor(14) Picture1.Circle (x,y) ,0.5
c=c+st
If c>=2* 3.14159 Then c=c Mod (2*3.14159) End If End Sub
Private Sub Timer1_Timer()
PiCture1.RefreSh '重画图片框 End Sub
第三步:调试并运行程序。 第四步:按题目要求存盘。
3 综合应用题
解析:列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量,列表项的排列从0开始,最后一项的序号为ListCount-1。使用列表项的Selected属性来表示列表框中哪些项被选中,该属性实际上是一个数组,各元素与列表框中的一项相对应,其取值为True或False,为True时表示选择了该项,为False表示未选择。解题步骤: 第一步:编写程序代码。 程序提供的代码:
Private Sub C1 Click() Dim i As Integer
For i=0 TO L1.LiStCount-1 'L1.?=True
Next End Sub
Private Sub C2 Click() Dim i As Integer
Open \ For i=0 To L1.ListCount-1 ' L1.ListIndex= ' Print #1, L1.?, L1.Selected(i)=False Next Close #1 End Sub 参考代码:
Private Sub C1_Click() Dim i As Integer
For i=0 To L1.ListCount-1 L1.Selected(i)=True
Next End Sub
Private Sub C2 Click() Dim i As Integer
Open \ For i=0 To L1.ListCount-1 L1.ListIndex=i Print #1, L1.Text, L1.Selected(i)=False Next
Close #1 End Sub
第二步:调试并运行程序 第三步:按题目要求存盘
正在阅读:
二级VISUAL+BASIC机试模拟803-14
大学思修试讲稿10-27
行政诉讼中规范冲突的原因及对策研究08-29
铜离子测定方法及检测论文05-30
水污染控制工程上册习题 - 图文11-22
逗甲鱼作文500字06-26
周末练习九及答案03-22
双重预防体系建设实施方案07-04
2020年绿化大苗种植项目实施方案08-30
修改四年级数学培优辅差计划05-11
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 二级
- 模拟
- VISUAL
- BASIC
- “十三五”重点项目-林下养鸡项目申请报告
- 2018届高三物理上学期第二次模拟考试试题
- 2.2档案法律法规知识问答
- AP的位置和信道分配优化专题报告-李晓峰
- 房屋建筑学试题(附答案) - 图文
- 德国大学以请求权为基准的解案分析方法漫谈解析
- 第21讲 第四章:工程施工技术(一)(2010年新版)
- 历年高考英语完形填空常用词汇总结
- 模电题目 - 张月红
- 一流公司员工必须熟练掌握的七种工具
- 烟台市阅读融入学科教学现场会材料汇编 - 图文
- 控制系统安装技术交底通知单- 控制系统
- 医患沟通培训测试
- 学前班配班老师学期个人工作总结
- 《制作洋葱表皮细胞临时装片》教学设计
- 2014春VB复习资料答案(2014-6-4)
- 平等权的宪法保护
- 2015东北三省四市三模地理试题及答案word版本 - 图文
- c语言实现简单排序(8种方法)
- 2009年秋季学期三维竞赛样题(有答案)