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

1、VB新增试题答案和解析要点第21套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求：1）圆角矩形中填满绿色（颜色值为：&H0000FF00& 或 &HFF00&）；2）窗体的标题为“圆角矩形”。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。【微步骤】步骤1：启动Visual Basic系统，创建一个Form1窗体。步骤2：在该窗体上画一个形状控件

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中。程序运行时，单击“通话开始”按钮，

3、则在Text1中累加通话时间（每秒加1），单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程sub1。要求：1）在窗体上画一个计时器（见图），并通过属性窗口设置适当属性。2）编写三个按钮的Click事件过程。3）编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费”按钮的事件过程中只允许调用过程sub1。 不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。【微步骤】步骤1：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。步骤2：由于所提供的窗

4、体控件不完整，需在该窗体上画一个计时器控件，计时器开始不计时，即把（Enabled属性）设为False，Interval属性设为1000（每秒加1）。步骤3：双击“通话开始”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Timer1.Enabled = TrueEnd Sub 步骤4：单击“通话结束”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command2_Click() Timer1.Enabled = FalseEnd Sub 步骤5： 单击“计算通话费”按钮

5、（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command3_Click() sub1End Sub 步骤6：计时器的Timer事件过程，在该Timer事件过程中加入语句：Private Sub Timer1_Timer() Text1 = Text1 + 1End Sub步骤7：调试并运行程序，关闭程序后按题目要求存盘。简单应用（1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。【

6、微步骤】 步骤1：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。步骤2：进入代码编辑窗口。由于所提供的窗体程序不完整，在窗体的Private Sub Form_Click()事件过程中，按以下要求修改程序中的问号。第1个问号（For i = 1 To ?）：5第2个问号（For j = 1 To ?）：2 * i - 1第3个问号（For j = 1 To ?）：i + 1第4个问号（For j = 1 To ?）：9 - 2 * i步骤3：调试并运行程序，关闭程序后按题目要求存盘。（2）在考生文件夹下有一个工程文件sj

7、t4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始”按钮，圆可以纵向或横向运动（通过选择单选按钮来决定 ），碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序， 但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：不得修改已经存在的内容和控件属性， 最后把修改后的文件按原文件名存盘。【微步骤】步骤1：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。步骤2：进入代码编辑窗口。由于所提供的窗体程序不完整，在“停止

8、”按钮的Private Sub Command2_Click()事件过程和计时器的Private Sub Timer1_Timer()事件过程中，按如下要求修改程序中的问号。第1个问号（? = False）：Timer1第2个问号（Shape2.Top = ? + d * 50）：Shape2.Top第3个问号（If Shape2.Top = Shape1.Top + Shape1.Height Then）：Top第4个问号（Shape2.Left = ? + d * 50）：Shape2.Left步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合应用 注意：下面出现的“考生文件夹”均为%

9、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距离 折

10、扣为0.9单击“保存”按钮，则把距离和每吨运费存到文件out5.txt中。已经给出了所有控件和部分程序，要求：1）去掉程序中的注释符，把程序中的 ？改为正确的内容；2）编写列表框的Click事件过程；3）编写“计算运费”按钮的Click事件过程；注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。【微步骤】步骤1：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 步骤2：双击“计算运费”按钮（即运行Click事件过程），在该Click事

11、件过程中加入语句：Private Sub Command2_Click() p = 0.3 d = Int(Text1.Text / 500) Select Case d Case 0 discount = 1 Case 1 discount = 0.98 Case 2 discount = 0.95 Case 3 discount = 0.92 Case Else discount = 0.9 End Select Text2 = Int(discount * p * Text1)End Sub 步骤3：选择列表框中的某个城市（即运行Click事件过程），在该Click事件过程中加入语句：P

12、rivate Sub List1_Click() Text1 = a(List1.ListIndex + 1)End Sub 步骤4：在“装入数据”按钮的Private Sub Command1_Click()事件过程中，按以下要求修改程序中的问号。第1个问号（n = n + ?）：1第2个问号（List1.AddItem ?）：ch$步骤5：调试并运行程序，关闭程序后按题目要求存盘。第48套：基本操作请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画1个名称为Cbo1的组合框，组合框的列表项分别是：北京、天津、上海。请设置组合框的

13、参数，使其外观如图所示。窗体的标题是“使用组合框”。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。【微步骤】步骤1：启动Visual Basic系统，创建一个Form1窗体。步骤2：在该窗体上画一个组合框控件，通过其属性窗口将名称设为Cbo1，高（Height属性）设为1000，宽（Width属性）设为2000，Shape属性设为4，FillStyle属性设为0，FillColor属性设为&HFF00&。步骤3：激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“圆角矩形”。步骤4：调试并运行程序，设置工程文件名为sjt1

14、.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、

15、Command2的标题分别 立即显示开始、停止，同时把计时器的Interval属性设置为100， Enabled属性设置为False。此时如果单击开始按钮，则该按钮变为禁用，而标题则变为继续，同时滚动条的滚动框自左至右移动，每次移动10，如图2所示，移到右端时，自动从左端重新开始向右移动；如果单击停止命令按钮，则该按钮变为禁用，继续命令按钮变为有效，同时滚动框停止移动；再次单击继续命令按钮后，滚动框继续移动。已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有2个名称分别为Text1、Text2的文本框，有1个名称为Command1的命令按钮。程序运行时，在Text1文本框中输入一行单词（只含有字母或空格），单击命令按钮后，将把每个单词的第一个字母改为大写（如果原来已是大写字母则不变），