VB新增试题答案和解析要点Word格式.docx
《VB新增试题答案和解析要点Word格式.docx》由会员分享,可在线阅读,更多相关《VB新增试题答案和解析要点Word格式.docx(15页珍藏版)》请在冰豆网上搜索。
步骤1:
启动VisualBasic系统,创建一个Form1窗体。
步骤2:
在该窗体上画一个形状控件,通过其属性窗口将名称设为shape1,高(Height属性)设为1000,宽(Width属性)设为2000,Shape属性设为4,FillStyle属性设为0,FillColor属性设为&
。
步骤3:
激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“圆角矩形”。
步骤4:
调试并运行程序,设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。
(2)在考生文件夹下有一个工程文件sjt2.vbp。
窗体中已含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1中的通话时间计算通话费,并将其显示在Text2中。
程序运行时,单击“通话开始”按钮,则在Text1中累加通话时间(每秒加1),单击“通话结束”按钮,则停止通话时间的累加;
单击“计算通话费”按钮,则调用过程sub1。
要求:
1)在窗体上画一个计时器(见图),并通过属性窗口设置适当属性。
2)编写三个按钮的Click事件过程。
3)编写计时器的事件过程。
要求程序中不得使用变量,每个事件过程中只能写一条语句,“计算通话费”按钮的事件过程中只允许调用过程sub1。
不得修改已经存在的内容和控件属性,最后把文件按原文件名存盘。
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt2.vbp,相应的窗体文件名为sjt2.frm。
由于所提供的窗体控件不完整,需在该窗体上画一个计时器控件,计时器开始不计时,即把(Enabled属性)设为False,Interval属性设为1000(每秒加1)。
双击“通话开始”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
步骤4:
单击“通话结束”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubCommand2_Click()
Timer1.Enabled=False
步骤5:
单击“计算通话费”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubCommand3_Click()
sub1
步骤6:
计时器的Timer事件过程,在该Timer事件过程中加入语句:
PrivateSubTimer1_Timer()
Text1=Text1+1
步骤7:
调试并运行程序,关闭程序后按题目要求存盘。
简单应用
(1)在考生文件夹下有一个工程文件sjt3.vbp。
程序运行时,单击窗体则显示如图所示的图案。
请去掉程序中的注释符,把程序中的?
改为正确的内容。
不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
步骤1:
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。
进入代码编辑窗口。
由于所提供的窗体程序不完整,在窗体的PrivateSubForm_Click()事件过程中,按以下要求修改程序中的问号。
第1个问号('
Fori=1To?
):
5
第2个问号('
Forj=1To?
2*i-1
第3个问号('
i+1
第4个问号('
9-2*i
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以纵向或横向运动(通过选择单选按钮来决定),碰到矩形的边时,则向相反方向运动,单击“停止”按钮,则停止运动,如图所示。
可以选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?
改为正确的内容。
不得修改已经存在的内容和控件属性,最后把修改后的文件按原文件名存盘。
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。
由于所提供的窗体程序不完整,在“停止”按钮的PrivateSubCommand2_Click()事件过程和计时器的PrivateSubTimer1_Timer()事件过程中,按如下要求修改程序中的问号。
?
=False):
Timer1
Shape2.Top=?
+d*50):
Shape2.Top
IfShape2.Top<
=Shape1.?
OrShape2.Top+Shape2.Width>
=Shape1.Top+Shape1.HeightThen):
Top
Shape2.Left=?
Shape2.Left
综合应用
注意:
下面出现的“考生文件夹”均为%USER%
在考生文件夹下有一个工程文件sjt5.vbp。
程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;
当选中列表框中的一个城市时,它的距离就显示在Text1中,如图所示;
此时,单击“计算运费”按钮,则计算到该城市的每吨运费(结果取整,不四舍五入),并显示在Text2中。
每吨运费的计算方法是:
距离×
折扣×
单价。
其中:
单价为0.3。
折扣为距离<
500折扣为1
500≤距离<
1000折扣为0.98
1000≤距离<
1500折扣为0.95
1500≤距离<
2000折扣为0.92
2000≤距离折扣为0.9
单击“保存”按钮,则把距离和每吨运费存到文件out5.txt中。
已经给出了所有控件和部分程序,要求:
1)去掉程序中的注释符,把程序中的?
改为正确的内容;
2)编写列表框的Click事件过程;
3)编写“计算运费”按钮的Click事件过程;
不得修改已经存在的程序;
在退出程序之前,必须至少计算一次运费,且必须用“保存”按钮存储计算结果,否则无成绩。
最后,程序按原文件名存盘。
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的窗体文件名为sjt5.frm。
步骤2:
双击“计算运费”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
p=0.3
d=Int(Text1.Text/500)
SelectCased
Case0
discount=1
Case1
discount=0.98
Case2
discount=0.95
Case3
discount=0.92
CaseElse
discount=0.9
EndSelect
Text2=Int(discount*p*Text1)
步骤3:
选择列表框中的某个城市(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubList1_Click()
Text1=a(List1.ListIndex+1)
在“装入数据”按钮的PrivateSubCommand1_Click()事件过程中,按以下要求修改程序中的问号。
n=n+?
1
List1.AddItem?
ch$
步骤5:
第48套:
(1)在名称为Form1的窗体上画1个名称为Cbo1的组合框,组合框的列表项分别是:
北京、天津、上海。
请设置组合框的参数,使其外观如图所示。
窗体的标题是“使用组合框”。
存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
在该窗体上画一个组合框控件,通过其属性窗口将名称设为Cbo1,高(Height属性)设为1000,宽(Width属性)设为2000,Shape属性设为4,FillStyle属性设为0,FillColor属性设为&
(2)在名称为Form1的窗体上画1个名称为P1的图片框,窗体的标题为“程序设计”,如图1所示。
编写适当的事件过程,使得程序运行后,单击窗体,则在图片框中显示窗体的标题,并把窗体的标题变为“Basic”,如图2所示。
存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
(1)在考生文件夹中有一个工程文件sjt3.vbp,窗体上有2个命令按钮、1个水平滚动条和1个计时器,其名称分别为Command1、Command2、HScroll1和Timer1,如图1所示。
程序运行后,按钮Command1、Command2的标题分别立即显示"
开始"
、"
停止"
,同时把计时器的Interval属性设置为100,Enabled属性设置为False。
此时如果单击"
按钮,则该按钮变为禁用,而标题则变为"
继续"
,同时滚动条的滚动框自左至右移动,每次移动10,如图2所示,移到右端时,自动从左端重新开始向右移动;
如果单击"
命令按钮,则该按钮变为禁用,"
命令按钮变为有效,同时滚动框停止移动;
再次单击"
命令按钮后,滚动框继续移动。
已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?
考生不得修改窗体文件中已经存在的程序。
最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有2个名称分别为Text1、Text2的文本框,有1个名称为Command1的命令按钮。
程序运行时,在Text1文本框中输入一行单词(只含有字母或空格),单击命令按钮后,将把每个单词的第一个字母改为大写(如果原来已是大写字母则不变),