VB新增试题答案和解析要点.docx

VB新增试题答案和解析要点.docx

《VB新增试题答案和解析要点.docx》由会员分享，可在线阅读，更多相关《VB新增试题答案和解析要点.docx（15页珍藏版）》请在冰豆网上搜索。

VB新增试题答案和解析要点

※※※※※※※※※※※※※※※※※※※※

第21套：

基本操作

请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。

请利用属性窗口设置适当的属性满足以下要求：

1）圆角矩形中填满绿色（颜色值为：

&H0000FF00&或&HFF00&）；

2）窗体的标题为“圆角矩形”。

运行后的窗体如图所示。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

【微步骤】

步骤1：

启动VisualBasic系统，创建一个Form1窗体。

步骤2：

在该窗体上画一个形状控件，通过其属性窗口将名称设为shape1，高（Height属性）设为1000，宽（Width属性）设为2000，Shape属性设为4，FillStyle属性设为0，FillColor属性设为&HFF00&。

步骤3：

激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆角矩形”。

步骤4：

调试并运行程序，设置工程文件名为sjt1.vbp，设置窗体文件名为sjt1.frm。

（2）在考生文件夹下有一个工程文件sjt2.vbp。

窗体中已含有除计时器外的其他控件，还有一个过程sub1，其功能是按照Text1中的通话时间计算通话费，并将其显示在Text2中。

程序运行时，单击“通话开始”按钮，则在Text1中累加通话时间（每秒加1），单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程sub1。

要求：

1）在窗体上画一个计时器（见图），并通过属性窗口设置适当属性。

2）编写三个按钮的Click事件过程。

3）编写计时器的事件过程。

注意：

要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程sub1。

不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。

【微步骤】

步骤1：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。

步骤2：

由于所提供的窗体控件不完整，需在该窗体上画一个计时器控件，计时器开始不计时，即把（Enabled属性）设为False，Interval属性设为1000（每秒加1）。

步骤3：

双击“通话开始”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

步骤4：

单击“通话结束”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand2_Click（）

Timer1.Enabled=False

EndSub

步骤5：

单击“计算通话费”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand3_Click（）

sub1

EndSub

步骤6：

计时器的Timer事件过程，在该Timer事件过程中加入语句：

PrivateSubTimer1_Timer（）

Text1=Text1+1

EndSub

步骤7：

调试并运行程序，关闭程序后按题目要求存盘。

简单应用

（1）在考生文件夹下有一个工程文件sjt3.vbp。

程序运行时，单击窗体则显示如图所示的图案。

请去掉程序中的注释符，把程序中的？

改为正确的内容。

注意：

不能修改程序的其他部分和控件属性。

最后把修改后的文件按原文件名存盘。

【微步骤】

步骤1：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

步骤2：

进入代码编辑窗口。

由于所提供的窗体程序不完整，在窗体的PrivateSubForm_Click（）事件过程中，按以下要求修改程序中的问号。

第1个问号（'Fori=1To?

）：

5

第2个问号（'Forj=1To?

）：

2*i-1

第3个问号（'Forj=1To?

）：

i+1

第4个问号（'Forj=1To?

）：

9-2*i

步骤3：

调试并运行程序，关闭程序后按题目要求存盘。

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以纵向或横向运动（通过选择单选按钮来决定），碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图所示。

可以选择单选按钮随时改变运动方向。

已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？

改为正确的内容。

注意：

不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。

【微步骤】

步骤1：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

步骤2：

进入代码编辑窗口。

由于所提供的窗体程序不完整，在“停止”按钮的PrivateSubCommand2_Click（）事件过程和计时器的PrivateSubTimer1_Timer（）事件过程中，按如下要求修改程序中的问号。

第1个问号（'?

=False）：

Timer1

第2个问号（'Shape2.Top=?

+d*50）：

Shape2.Top

第3个问号（'IfShape2.Top<=Shape1.?

OrShape2.Top+Shape2.Width>=Shape1.Top+Shape1.HeightThen）：

Top

第4个问号（'Shape2.Left=?

+d*50）：

Shape2.Left

步骤3：

调试并运行程序，关闭程序后按题目要求存盘。

综合应用

注意：

下面出现的“考生文件夹”均为%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事件过程；

注意：

不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须用“保存”按钮存储计算结果，否则无成绩。

最后，程序按原文件名存盘。

【微步骤】

步骤1：

启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

步骤2：

双击“计算运费”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubCommand2_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）

EndSub

步骤3：

选择列表框中的某个城市（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubList1_Click（）

Text1=a（List1.ListIndex+1）

EndSub

步骤4：

在“装入数据”按钮的PrivateSubCommand1_Click（）事件过程中，按以下要求修改程序中的问号。

第1个问号（'n=n+?

）：

1

第2个问号（'List1.AddItem?

）：

ch$

步骤5：

调试并运行程序，关闭程序后按题目要求存盘。

第48套：

基本操作

请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画1个名称为Cbo1的组合框，组合框的列表项分别是：

北京、天津、上海。

请设置组合框的参数，使其外观如图所示。

窗体的标题是“使用组合框”。

注意：

存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

【微步骤】

步骤1：

启动VisualBasic系统，创建一个Form1窗体。

步骤2：

在该窗体上画一个组合框控件，通过其属性窗口将名称设为Cbo1，高（Height属性）设为1000，宽（Width属性）设为2000，Shape属性设为4，FillStyle属性设为0，FillColor属性设为&HFF00&。

步骤3：

激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆角矩形”。

步骤4：

调试并运行程序，设置工程文件名为sjt1.vbp，设置窗体文件名为sjt1.frm。

（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文本框中输入一行单词（只含有字母或空格），单击命令按钮后，将把每个单词的第一个字母改为大写（如果原来已是大写字母则不变），