1、国家二级 VB机试（上机操作）模拟试卷 93及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Fomal的窗体上建立一个如下表所示的下拉菜单，其中 “设置 ”菜单项为灰色(不可用 )，如图 3-58所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Forml的窗体上画一个名称为 Hscrolll的水平滚动条，其最大刻度为100，最小刻度为 0；再画两个单选按钮，名称分别为 Option1、 Option2，标题分别为 “最大值 ”、 “
2、最小值 ”，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上 (如图 3 59所示 )。请编写适当的事件过程，使得程序运行时，单击 “最大值 ”单选按钮，则滚动条上的滚动框移到最右端；单击 “最小值 ”单选按钮，则滚动框移到最左端。注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)在名称为 Forml的窗体上画一个名称为 lblPwd的标签，标题为 “密令 ”；画两个文本框，名称分别为 txtPwd、 txtObi，都没有初始内容；再画三个命令按钮，
3、名称分别为 cmdShow、 cmdide、 cmdCopy，标题分别为 “显示 ”、 “隐藏 ”、 “复制 ”，在开始运行时，向 txtPwd中输入的所有字符都显示 “*，单击 “显示 ”按钮后，在 txtPwd中显示所有字符，再单击 “隐藏 ”后， txtPwd中的字符不变，但显示的都是 “?”，单击 “复制 ”后，把 txtPwd中的实际内容复制到 txtObi中，如图 340所示。要求： 在属性窗口中，把窗体的标题改为 “密令窗口 ”。 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为vbsj3 vbp，窗体文件名为 vbsi3 frm
4、。 (2)在考生文件夹下有一个工程文件 vbsj4 vbp，运行情况如图 3-41所示。程序的功能是计算如下表达式的值： Z=(X+2)2+(X+3)3+(X+4)4+(X+N)N 。其中， N和 X值通过键盘分别输入到文本框 txtN、 txtX中。之后如果单击名称为 cmdCal、标题为 “计算 ”的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用 运算符，而应使用函数 xn进行
5、幂运算。程序至少运行一次，按照下图输入数据，使 N=5， x=10，单击 “计算 ”按钮，计算 Z的值，并将结果显示在标签 lblResuIt中，否则没有成绩。最后，程序按原文件名存盘。程序源码： PriVate Function xn(a As Single， m Integer) Dim i As Integer tmp=1 For i=1 To mtmp=? Nextxn=?End FunctionPriVate Sub cmdCal Click() Dim n As Integer， i As Integer Dim t As Single， s， x As Single n=Val(
6、txtN Text) x=Val(txtX Text) z=0 For i=2 To n t=x+iz=z+? NextlblResult,Caption? call SaveResultEnd SubPriVate Sub SaveResult() Open App Path “ 0ut4 dat” For Output As#1 Print #l， lblResult Caption Close #1End Sub 三、综合应用题 3 在考生文件夹下有文件 in5 txt，文件中有几行汉字。请在 Forml的窗体上画一个文本框，名称为 Text1，能显示多行；再画一个命令按钮，名称为 C1
7、，标题为“存盘 ”。编写适当的事件过程，使得在加载窗体时，把 in5 txt文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字 “计算机等级考试 ”(如图 3 197所示 )。最后单击 “存盘 ”按钮，把文本框中修改过的内容存到文件 out5,txt中。注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹下，以 sjt5 vbp为文件名存储工程文件 ，以 sjt5 frm为文件名存储窗体文件。 国家二级 VB机试（上机操作）模拟试卷 93答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，利用菜单设计器按表
8、4 34在窗体上建立一个二级菜单。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表4 35在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。 参考代码： Private Sub Optionl C1ick() HSCrolll Value=100End SubPrivate Sub Option2 C1ick() HSCrolll Value=0End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EX
9、E”工程，按表 4-25在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写 3个按钮的单击事件过程。参考代码： Private Sub cmdShow _C1ick() txtPwd PaSSWOrdChar=“”End SubPrivate Sub cmdHide C1iCk() txtPwd PasswordChar=“?”End SubPrivate Sub cmdCopy C1ick() txtobj Text=txtPwd TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件 vbsj4 vbp
10、，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：tmp=tmp*axn=tmpZ=Z+xn(t， i)iblResult Caption=z步骤 2：按键运行程序，在第 1个文本框中输入 5，第 2个文本框中输入 10，然后单击 “计算 ”按钮。步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： Private Sub C1 Click() Open”out5 txt”For Output As1 Print#1， Textl Text Close #$1 End Sub Private Sub Form Load() Open“in5 txt”For Input As1 Textl Text=“” Do While Not EOF(1) Line Input#1， aS Textl Text =Textl Text + a$ + Chr(13)+Chr(10) Loop C10Se#1 End Sub 步骤 3：按 键运行程序，在文本的最前面手工插入一行汉字： “计算 机等级考试 ”，然后单击 “存盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。
