全国计算机等级考试二级VB上机试题及答案二.pdf

全国计算机等级考试二级全国计算机等级考试二级 VB 上机试题及答案上机试题及答案(二二) 基本操作（2 小题，每题 15 分，共 30 分） * 请根据以下各小题的要求设计 VB 应用程序（包括界面和代码）。 请根据以下各个小题的要求设计 Visual Basic 应用程序（包括界面和代码）。 (1) 在名称为 Form1 的窗体上画一个名称为 L1 的标签，标题为“请确认“；再画两个命 令按钮，名称分别为 C1、C2，标题分别为“是“、“否“，高均为 300、宽均为 800。如图 所示。 请在属性窗口中设置适当属性满足以下要求： 1）窗体标题为“确认“，窗体标题栏上不显示最大化和最小化按钮; 2)在任何情况下，按回车键都相当于单击“是“按钮；按 ESC 键都相当于单击“否“按钮。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为 sjt11.vbp，窗体文件名为 sjt11.frm。 （2）在名称为 Form1 的窗体上画一个文本框，名称为 Text1，其宽度为 1000；再画一 个滚动条，名称为 HS1。其刻度值的范围是 1000-2000。请编写滚动条的 Change 事件过 程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行 时的窗体如图所示。程序中不能使用任何变量，事件过程只能写一条语句。 *注意： 存盘时必须存放在考生文件夹下， 工程文件名为 sjt12.vbp， 窗体文件名为 sjt12.frm。 参考答案与分析 （1）【解析】 首先按试题要求在窗体上画一个标签和两个命令按钮， 并分别将它们的属性按试 题要求进行设置。窗体标题栏中的最大化和最小化按钮是用 MinButton 属性和 MaxButton 属性来设置的。Cancel 属性返回或设置一个值，用来指示窗体中命令 按钮是否为取消按钮。Default 属性设置默认的焦点，为保证任何时候按 Enter 键都 相当于单击 C1 按钮，还需在 C2 的 Click 事件中使用 C1 的 SetFocus 方法。 【答案】 步骤 1：启动 VB，新建工程文件。 步骤 2：设计窗体。根据题意，该用户界面包括四个对象，即窗体，一个标签和 两个按钮。 步骤 3： 设置属性。 根据题意， 窗体的标题(Caption)属性改为“确认“，MaxBotton 与 MinBotton 属性均设为 False。设置按钮的标题(Caption)属性分别为“是“、“ 否“，设置相应的宽高，把 C1 的 Default 属性设置为“true“, 把 C2 的 Cancel 属性性设置为“true“,编辑窗口编写代码如下： Private Sub C2_Click() C1.SetFocus End Sub 步骤 4：保存。程序设计完成经调试无误后进行存盘。执行“文件“菜单中的“保 存工程“命令，打开“文件另存为“对话框，窗体文件名为“Stj1.form“，单击保存 按钮。然后在紧接着出现的“工程另存为“对话框中选择工程文件名为 “Stj1.vbp“，单击保存按钮。 （2）【解析】 本题主要考查对象的 Left 属性的概念。Left 属性使用来设置对象的左边的坐标 值，坐标值的默认单位为 twip。当用程序代码设计时其格式为：对象. Left x。这里的对象可以是窗体和绝大多数控件。当“对象“为窗体时，Left 指的是 窗体得左边界于屏幕左边界的相对距离；而当“对象“为控件时，Left 指控件的 左边界与窗体的左边的相对距离。和 Left 属性相同的还有 top 属性，它是用来 设置对象的顶边的坐标值，其对象的概念和 Left 属性中相同。本题要求单击按 钮后文本框水平移动到窗体的最左端。对象为文本框，它的 Left 值是相对于窗 体的左边界来说的，因此当它移动到窗体最左端时其 Left 值为 0。 【答案】 步骤 1：启动 VB，新建工程文件。 步骤 2：设计窗体。根据题意，该用户界面包括三个对象，即窗体、一个文本框 和一个命令按钮。 因此在窗体上添加一个文本框和一个命令按钮并放置在窗体的 适当位置。 步骤 3：设置属性。根据题意，窗体的名称（Name）和标题(Caption)属性都为 默认的 Form1，因此无需再为其重新设置属性。将文本框的名称（Name）和标题 (Caption)属性分别设置为“Text1“和空值。将命令按钮的名称（Name）和标题 (Caption)属性分别设置为“C1“和“移动“。设置完属性之后就可以通过双击命令 按钮进入代码编辑窗口编写代码如下： 1 Private Sub C1_Click() 2 Text1.Left = 0 3 End Sub 步骤 4：保存。程序设计完成经调试无误后进行存盘。以 Stj2.vbp 和 sjt2.frm 进行保存。 简单操作（2 小题，每题 20 分，共 40 分） * 请根据以下各小题的要求设计 VB 应用程序（包括界面和代码）。 （1）在考生文件夹下有一个工程文件 stj3.vbp，相应的窗体文件为 stj3.frm。在窗体 上有一个名称为 Command1、标题为“计算“的命令按钮；两个水平滚动条，名称分别为 Hscroll1 和 Hscroll2，其 Max 属性均为 100，Min 属性均为 1；四个标签，名称分别为 Lable1、Lable2、Lable3 和 Lable4，标题分别为“运算数 1“、“运算数 2“、“运算数结 果“和空白；此外还有一个包含有四个单选按钮的控件数组，名称为 Option1，标题分 别为“+“、“-“、“*“、“/“，如图所示。程序运行后，移动两个滚动条中的滚动框，用滚 动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结 果将显示在 Lable4 中，程序运行情况如图所示。这个程序不完整，请把它补充完整， 并能正确运行。 试题源程序： 1 Private Sub Command1_Click() 2 For i = 0 To 3 3 If ? = True Then 4 opt = Option1(i).Caption 5 End If 6 Next 7 Select Case ? 8 Case “+“ 9 Result = HScroll1.Value + HScroll2.Value 10 Case “-“ 11 Result = HScroll1.Value - HScroll2.Value 12 Case “*“ 13 Result = HScroll1.Value * HScroll2.Value 14 Case “/“ 15 Result = HScroll1.Value / HScroll2.Value 16 End Select 17 Label4.Caption = Str(HScroll1.Value) M 22 End Sub * 参考答案与分析 （1）【解析】 （1）OptionButton 控件的 Value 属性，返回或设置控件的状态，True 表示已 选择了该按钮；False（缺省值）表示没有选择该按钮。 所以第一个?和处应为：Option（i）.Value = True 表示选中 Option（i）按钮。 （2）Select Case 语句：根据表达式的值执行几组语句之一。 语法： Select Case 测试表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 Case Else 语句块 n End Select 本题要根据所选的单选按钮进行相应的计算，所以第二个?处应为：opt 要考生引起注意的是，滚动条的 Value 值是一个数值类型，所以我们可以用来直 接做数学运算，而标签的 Caption 值是一个字符串类型的，故在最后将计算结果 在标签上显示出来时，需要用 Str（）函数将计算结果转换为字符串类型。 【答案】 （1）启动 VB 程序，打开考生文件夹下的工程文件 stj3.vbp。 （2）双击窗体的任意位置，进入代码编辑窗口，完善程序如下： 1 Private Sub Command1_Click() 2 For i = 0 To 3 3 If Option1(i).Value = True Then i. opt = Option1(i).Caption 4 End If 5 Next 6 Select Case opt 7 Case “+“ 8 Result = HScroll1.Value + HScroll2.Value 9 Case “-“ 10 Result = HScroll1.Value - HScroll2.Value 11 Case “*“ 12 Result = HScroll1.Value * HScroll2.Value 13 Case “/“ 14 Result = HScroll1.Value / HScroll2.Value 15 End Select 16 Label4.Caption = Str(HScroll1.Value) M 21 End Sub （3）单击启动键运行成功。 （4）按考试要求将文件保存在考生文件夹下。 综合应用（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 = True 3 Dim i As Integer 4 Dim t As Integer 5 For i = 0 To 2 6 If Op1(i) = True Then i. t = Val(Left$(Op1(i).Caption, ?) ii. Text1.Text = ?(t) 7 End If 8 Next i 9 End Sub 10 Function Out(n As Integer) 11 Dim i As Integer 12 Dim t As Long 13 t = 1 14 For i = 2 To n 15 Print 16 Next i 17 Out = t 18 End Function 19 Private Sub Cmd2_Click() 20 Open App.Path & “out044.txt“ For Output As #1 21 Print #1, Text1.Text 22 Close #1 23 End Sub 24 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分别单击工具箱的按钮控件及文本框控件，在窗体上画出一个文本框和一个 控制按钮。