全国计算机等级考试二级VB上机试题及答案(十).doc

全国计算机等级考试二级VB上机试题及答案(十)基本操作（2小题，每题15分，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动条时，都执行语句Form1.Print HS1.Value。程序运行时的界面如图所示。（2）在名称为Form1的窗体上画一个空白文本框，名称为Txt1，其高度为1500；再画一个垂直滚动条，名称为Vsb1，其刻度范围为1500-2000。请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的高度。程序运行时的界面如图所示。*参考答案与分析（1）【解析】滚动条的Max为最大值属性，Min为最小值属性。水平滚动条的移动触发Change事件，Change事件中的语句Form1.Print HS1.Value表示窗体显示水平滚动条的当前位置。【答案】第一步：启动VB，新建一个工程文件。第二步：在窗体上画一个水平滚动条，将其Name属性设置为HS1，Max属性为100，Min为0。第三步：编写程序代码：1 Private Sub HS1_Change()2 Form1.Print HS1.Value3 End Sub第四步：调试并运行程序，运行正确后按要求保存。（2）【解析】文本框的高度是由其Height属性控制，垂直滚动条的刻度由其Value属性控制，两者相等便能达到题目要求的按照滚动条的刻度值改变文本框的高度。【答案】第一步：启动VB，新建一个工程文件。第二步：在窗体上画一个文本框，Name属性为Txt1，其Height属性为1500；再画一个垂直滚动条，Name属性为Vsb1，将其Max设为2000，Min设为1500。第三步：编写程序代码:1 Private Sub Vsb1_Change()2 Txt1.Height = Vsb1.Value3 End Sub第四步：调试并运行程序，运行正确后按要求保存。 简单操作（2小题，每题20分，共40分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个名称为text1的文本框，再建立一个名称为Format的弹出式菜单，含有三个菜单项，标题分别为加粗、斜体、下划线，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单项后，则进行菜单标题所描述的操作，如图所示。（2）在考生文件下有一个工程文件sjt4.vbp，请在窗体上画一个文本框，名称为Text1；画一个命令按钮，名称为C1，标题为确定；在画三个单选按钮，名称分别为Op1、Op2、Op3，标题分别为飞机、火车、汽车，如图所示。请编写适当的事件过程，使得在运行时，选中一个单选按钮并单击确定按钮后，按照下表在文本框中显示相应的内容。注意：不得修改已经给定的程序。退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须选中一个单选按钮，并单击确定按钮，否则可能无成绩。【试题源程序】1 Private Sub Form_Unload(Cancel As Integer)2 Open out4.txt For Output As #13 Print #1, Op1.Value, Op2.Value, Op3.Value, Text1.Text4 End Sub*参考答案与分析（1）【解析】单击鼠标右键，弹出菜单，故把PopupMenu 方法放在Mousedown事件中，该事件响应所有鼠标单击操作。对于鼠标左右键，是由Button参数来确定的，左键的Button参数是1，右键的是2，即If Button = 2 Then PopupMenu 菜单名。【答案】（1）打开VB，在新建工程对话框中选择标准EXE选项，单击打开按钮，新建工程文件，里面会同时建立一个名为Form1的窗体文件。（2）单击工具箱中的TextBox控件，在Form1窗体中拖出一个文本控件，使用其默认名称Text1。执行工具菜单中的菜单编辑器命令，打开菜单编辑器。（3）在标题栏中输入格式（或者空白也可，因为此标题并不显示），在名称栏中输入Format,然后将可见前的去掉；单击下一个按钮，再单击编辑区的按钮，在标题栏中输入加粗， 在名称栏中输入M1； 单击下一个按钮，再单击编辑区的按钮，在标题栏中输入斜体， 在名称栏中输入M2；单击下一个按钮，再单击编辑区的按钮，在标题栏中输入下划线， 在名称栏中输入M3。（4）双击Text1控件的任意位置，进入代码编辑状态，在过程中选中MouseDown事件，完善代码如下：1 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)2 If Button = 2 Then3 Me.PopupMenu Format4 End If5 End Sub6 Private Sub M1_Click()7 Me.Text1.FontBold = True8 End Sub9 Private Sub M2_Click()10 Me.Text1.FontItalic = True11 End Sub12 Private Sub M3_Click()13 Me.Text1.FontUnderline = True14 End Sub（5）运行无误后，按考试要求将文件保存在考生文件夹下。（2）【解析】本题主要考查对单选按钮的操作和选择结构程序的运用。单选按钮的一个重要属性是Value属性，该属性用来决定是否选中了该选项。若此属性值为True，代表该选项被选中，否则，代表该选项没有被选中。一般系统默认值为False。 条件语句也称为If语句，它有两种格式，一种是单行结构，一种是块结构。单行条件语句比较简单，其格式为：If 条件Then then部分 Else else部分。块结构条件语句以If开头，以End If结束，中间有多个elseif分支，可以用于对多个不同条件进行比较判断，从而执行对应的语句。在本题中主要是通过对每个单选按钮的选中与否进行判断，也就是对单选按钮的Value属性值进行判断，当某一个单选按钮的Value属性值为真时，在文本框中显示对应的信息。在本题所给出的一段程序中，是在窗体的Unload事件中对文件进行写操作，写入最后一次的执行后，各个单选按钮的Value值和文本框中信息。首先用Open语句打开文件名为out4.txt的文件，然后用Print # 语句将对应的字段写入该文件中。窗体的Unload事件用来清除内存中指定的窗体，当关闭窗体或执行Unload语句时触发该事件。将文件的写操作放在这个事件，因此在程序运行并执行了某个操作后，关闭窗口将触发该事件，也就将这次执行后的情况写入指定文件中。这也是本题最后所给的两点要求的原因。【答案】步骤1：启动VB，打开考生文件夹一下的工程文件sjt4.vbp。步骤2：双击窗体中的命令按钮，进入代码编辑窗口，对确定按钮的单击事件进行代码编辑如下：1 Private Sub C1_Click()2 If Op1.Value = True Then3 Text1.Text = 需要1小时4 ElseIf Op2.Value = True Then5 Text1.Text = 需要10小时6 Else7 Text1.Text = 需要15小时8 End If9 End Sub 步骤3：填写完毕，调试成功后，以原文件名保存。 综合应用（1小题，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。在考文件夹下有工程文件djks044.vbp及窗体文件djks044.frm，该程序是不完整的，请在有？的地方填入正确内容，然后删除？及所有注释符（），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为10！、11！、12！，Index属性分别为0、1、2；再画两个命令按钮，按钮的名称分别为Cmd1与Cmd2，标题分别为计算与保存；画一个名称为Tex1的文本框。程序的功能是在选定一个单选框并单击计算按钮后，可以计算出相应的阶乘值，在Text1中显示该值。单击保存，文本框中的数据可以保存到考生文件夹下的out044.txt文件夹中。注意窗体加载时，Cmd2按钮不可用，单击计算按钮后，Cmd2变为可用。程序运行时的窗体界面如图所示。【试题源程序】1 Private Sub Cmd1_Click()2 Cmd2.Enabled = True3 Dim i As Integer4 Dim t As Integer5 For i = 0 To 26 If Op1(i) = True Theni. t = Val(Left$(Op1(i).Caption, ?)ii. Text1.Text = ?(t)7 End If8 Next i9 End Sub10 Function Out(n As Integer)11 Dim i As Integer12 Dim t As Long13 t = 114 For i = 2 To n15 Print16 Next i17 Out = t18 End Function19 Private Sub Cmd2_Click()20 Open App.Path & out044.txt For Output As #121 Print #1, Text1.Text22 Close #123 End Sub24 Private Sub Form_Load()25 Cmd2.Enabled = ?26 End Sub*参考答案与分析【解析】本题程序代码中包含一个函数过程Out，该过程用来计算以n为参数的阶乘。第三个？处填t=t*i，表示阶乘，阶乘值赋给t。第二个？处填Out，表示对函数过程的引用。第一个？处填2。Left$(Op1(i).Caption,2)表示返回字符串Op1(i).Caption从左开始的2个字符，即需要传给Out过程的实参。根据题意，窗体加载时，Cmd2按钮不可用，表示禁用，故在第四个？处填False。【答案】1单击考试界面的功能选项，从弹出的菜单中选择启动应用程序选项。Visual Basic启动后，打开考生文件下的工程文件。2分别单击工具箱的按钮控件及文本框控件，在窗体上画出一个文本框和一个控制按钮。文本框的Na