2013年VB新增试题答案与解析.docVIP

※※※※※※※※※※※※※※※※※※※※ 第21套： 基本操作 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求： 1）圆角矩形中填满绿色（颜色值为：H0000FF00 或 HFF00）； 2）窗体的标题为“圆角矩形”。运行后的窗体如图所示。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 【微步骤】 步骤1：启动Visual Basic系统，创建一个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：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。 步骤2：由于所提供的窗体控件不完整，需在该窗体上画一个计时器控件，计时器开始不计时，即把（Enabled属性）设为False，Interval属性设为1000（每秒加1）。 步骤3：双击“通话开始”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Command1_Click() Timer1.Enabled = True End Sub 步骤4：单击“通话结束”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Command2_Click() Timer1.Enabled = False End Sub 步骤5： 单击“计算通话费”按钮（即运行Click事件过程），在该Click事件过程中加入语句： Private Sub Command3_Click() sub1 End Sub 步骤6：计时器的Timer事件过程，在该Timer事件过程中加入语句： Private Sub Timer1_Timer() Text1 = Text1 + 1 End Sub 步骤7：调试并运行程序，关闭程序后按题目要求存盘。 简单应用 （1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。 注意： 不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 【微步骤】 步骤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）在考生文件夹下有一个工程文件sjt4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始”按钮，圆可以纵向或横向运动（通过选择单选按钮来决定 ），碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以选择单选按钮随时改变运动方向。 已经给出了所