VB程序设计上机题目复习课程.docx
- 文档编号:3296308
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:7
- 大小:18.39KB
VB程序设计上机题目复习课程.docx
《VB程序设计上机题目复习课程.docx》由会员分享,可在线阅读,更多相关《VB程序设计上机题目复习课程.docx(7页珍藏版)》请在冰豆网上搜索。
VB程序设计上机题目复习课程
VB程序设计上机题目
45
1.基本操作(2小题,每小题15分,共计30分)
注意:
下面出现的"考生文件夹"均为%USER%
**********************************************************************
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1,标题为"图片"的窗体上画1个名称为Image1的图像框,其
高为2500,宽为2000。
请通过属性窗口设置适当属性,装入考生目录下的
图片文件pic1.jpg,并使图片适应图像框的大小(如图所示)。
注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名
为sjt1.frm。
**********************************************************************
(2)在名称为Form1的窗体上画1个名称为Text1的文本框,其初始内容为空;再
画2个单选按钮,名称分别为Option1、Option2,标题分别为"参加"、"不
参加",Option1的标题在单选按钮的左边,如图所示。
当程序运行时,在
Text1中输入一些文字(例如"比赛"),单击Option1时,则把其标题放在
输入文字的前面(例如"参加比赛"),单击Option2时,则把其标题放在输
入文字的后面(例如"比赛不参加")。
请编写适当的事件过程,完成上述
功能。
注意:
存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文
件名为sjt2.vbp。
要求程序中不得使用变量,每个事件过程中只能写一条
语句。
评析
第1小题:
新建一个窗体Form1,通过属性窗口设置窗体Form1的Caption属性为"图片"。
点击工具箱中的Image控件图标,然后在窗体上拖拉出一个图像框Image1,通过属性窗口设置其Height属性为2500,Width属性为2000,Stretch属性为True,并通过Picture属性添加考生文件夹下的图片文件pic1.jpg。
按要求保存文件即完成本题。
第2小题:
新建一个窗体Form1,点击工具箱中的TextBox控件图标,然后在窗体上拖拉出一个文本框Text1,通过窗口设置其Text属性为空。
点击工具箱中的OptionButton控件图标,然后在窗体上拖拉出两个单选按钮Option1、Option2,通过属性窗口设置其Caption属性分别为"参加"、"不参加",并将单选按钮Option1的Alignment属性设置为1-RightJustify。
打开代码窗口,添加如下代码
PrivateSubOption1_Click()
Text1.Text=Option1.Caption&Text1.Text
EndSub
PrivateSubOption2_Click()
Text1.Text=Text1.Text&Option2.Caption
EndSub
按要求保存文件即完成本题。
2.简单应用(2小题,每题20分,计40分)
注意:
下面出现的"考生文件夹"均为%USER%
***********************************************************************
(1)考生文件夹中有工程文件sjt3.vbp。
窗体上有名称为Label1、标题为"标签
控件"的标签;有一个名称为Command1、标题为"命令按钮"的命令按钮。
单
击上述两控件中任一控件,则在标签Label2中显示所单击控件的标题内容
(标题内容前有"单击"二字),下图是单击命令按钮后的窗体外观。
请去
掉程序中的注释符,把程序中的?
改为正确的内容。
注意:
考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名
存盘。
**********************************************************************
(2)在考生文件夹下有一个工程文件sjt4.vbp。
程序运行后,如果单击"开始
"按钮,则图片自左向右移动,同时滚动条的滑块随之移动,每0.5秒移
动一次。
当图片完全移出窗体的右边界时,立即再从窗体的左边界开始重
新移动,若单击"停止"按钮,则图片停止移动,如图所示。
在窗体文件
中已经给出了全部控件,但程序不完整。
要求:
请去掉程序中的注释符,把程序中的?
改为正确的内容,使其实现上
述功能,但不能修改程序的其他部分和控件属性。
最后把修改后的文件
按原文件名存盘。
评析
第1小题:
本题主要考查了控件参数。
①在VB中也可以把对象作为参数向过程传递。
在形参表中,把形参变量的类型声明为"Control",就可以向过程传递控件。
对象的传递只能是按地址传递。
在用控件作为参数时,必须考虑到作为实参的控件是否具有通用过程中所列的控件的属性。
为此,VisualBasic提供了一个TypeOf语句,其格式为:
[If|ElseIf]TypeOf控件名称Is控件类型
TypeOf语句放在通用过程中,"控件名称"实际上指的控件参数(形参)的名字,即"AsControl"前面的参数名。
"控件类型"是代表各种不同控件的关键字。
解题方法:
应用程序中的ShowName是以控件对象为参数的通用过程。
若单击命令按钮Command1,调用执行事件过程Command1_Click,该过程以命令按钮名Command1为实参调用通用过程ShowName,执行ShowName后,在窗体中的Label2标签内显示"单击命令按钮";若单击命令按钮Command2,调用执行事件过程Command2_Click,该过程以标签Label1为实参调用通用过程ShowName,执行ShowName后,在窗体中的Label2标签内显示"单击标签控件"。
打开代码窗口,修改后的代码如下:
PrivateSubCommand1_Click()
CallShowName(Command1)
EndSub
PrivateSubLabel1_Click()
CallShowName(Label1)
EndSub
PrivateSubShowName(cAsControl)
IfTypeOfcIsCommandButtonThen
Label2.Caption="单击"&Command1.Caption
EndIf
IfTypeOfcIsLabelThen
Label2.Caption="单击"&Label1.Caption
EndIf
EndSub
按要求保存文件即可完成本题。
第2小题:
本题主要考查了计时器和水平滚动条控件。
①计时器的Enabled属性设置为True时,可使计时器按Interval属性在指定的时间间隔发生计时器事件。
本题中每隔0.5秒发生一次计时器事件,因此计时器控件的Interval属性应设置为500。
②Top、Left(顶边、左边位置)
这两个属性用来设置对象的顶边和左边的坐标值,用以控制对象的位置。
这里的"对象"可以是窗体和绝大多数控件。
当"对象"为窗体时,Left指的是窗体的左边界与屏幕左边界的相对距离,Top指的是窗体的顶边与屏幕顶边的相对距离;而当"对象"为控件时Left和Top分别指控件的左边和顶边与窗体的左边和顶边的相对距离。
解题方法:
事件过程Form_Load为计时器控件的Interval属性设置初值500;事件过程Command1_Click用来启动计时器控件Timer1;事件过程Command2_Click用来停止计时器控件Timer1;事件过程Timer1_Timer用来控制图片的移动。
每执行一次计时器事件,图片自左向右移动200,同时滚动条的滑块随之移动,也就是说图片和滚动条保持同步运动。
If语句判断图片左边界是否完全移出窗体的右边界,如果是,图片左边界大于窗体的宽度,即IfPicture1.Left>Form1.WidthThen,图片再回到窗体左边界,此时图片左边距窗体左边界的距离为0。
打开代码窗口,修改后的代码如下:
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubForm_Load()
Timer1.Interval=500
EndSub
PrivateSubTimer1_Timer()
Picture1.Left=Picture1.Left+200
IfPicture1.Left>Form1.WidthThen
Picture1.Left=0
EndIf
HScroll1.Value=Picture1.Left
EndSub
按要求保存文件即可完成本题。
3.综合应用(1小题,计30分)
注意:
下面出现的"考生文件夹"均为%USER%
在窗体上画1个文本框,名称为Text1(可显示多行),然后再画三个命令按
钮,名称分别为Command1,Command2和Command3,标题分别为"读数","统
计"和"存盘",如图所示。
程序的其功能是:
单击"读数"按钮,则把考生目
录下的in5.txt文件中的所有英文字符放入Text1(可多行显示);单击"统
计"按钮,找出并统计英文字母i,j,k,l,m,n(不区分大小写)各自出
现的次数;单击"存盘"按钮,将字母i到n出现次数的统计结果依次存到考生
目录下的顺序文件out5.txt中。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt5.vbp,窗体文件名
为sjt5.frm。
评析
本题主要考查了文件的操作和字符串的处理。
1、Open语句
Open语句用来打开或建立一个文件,其语法为:
Open文件名[for存取方式][Access操作方式][锁定]As[#]文件号[Len=记录长度]
参数说明:
"存取方式"指文件的输入输出方式,可以是以下操作之一:
Output指定顺序输出方式
Input指定顺序输入方式
2、Input$函数:
格式:
Input$(n,#文件号)
Input$函数返回从指定的文件中读出的n个字符的字符串。
也就是说,它可以从数据文件中读取指定数目的字符。
3、LOF函数
LOF函数返回给文件分配的字节数(即文件的长度)。
4、Print#语句
用来把数据写入顺序文件。
语法为:
Print#文件号,[[Spc(n)|Tab(n)][表达式列表][;|,]]
Spc(n)函数用来在当前的输出位置加入n个空白;Tab(n)函数用来设置在第n个位置写入数据。
分号表示后续写入的数据将接着当前的数据尾部写入;逗号表示在当前写入的数据后换行。
5、Close语句
用来关闭一个被打开的文件。
语法为:
Close#文件号
打开代码窗口,"读数"、"统计"、"存盘"按钮的代码如下:
OptionBase1
Dima(6)AsInteger
PrivateSubCommand1_Click()
OpenApp.Path&"\"&"in5.txt"ForInputAs#1
s=Input(LOF
(1),#1)
Text1.Text=s
Close#1
EndSub
PrivateSubCommand2_Click()
Fori=1ToLen(Text1)
str1=Mid(Text1,i,1)
SelectCaseLCase(str1)
CaseIs="i"
a
(1)=a
(1)+1
CaseIs="j"
a
(2)=a
(2)+1
CaseIs="k"
a(3)=a(3)+1
CaseIs="l"
a(4)=a(4)+1
CaseIs="m"
a(5)=a(5)+1
CaseIs="n"
a(6)=a(6)+1
EndSelect
Nexti
EndSub
PrivateSubCommand3_Click()
OpenApp.Path&"\"&"out5.txt"ForOutputAs#1
Fori=1To6
Print#1,a(i);
Nexti
Close#1
EndSub
按要求保存文件即可完成本题。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 上机 题目 复习 课程