1、国家二级 VB机试（上机操作）模拟试卷 367及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个标签，其名称为 Label1，标题为 “等级考试 ”，BorderStyle属性为 1，可以根据标题自动调整大小：然后再画一个命令按钮，其名称和标题均为 Command1，编写适当的事件过程。程序运行后，其界面如图3 127(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图 3 127(b)所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体 文件名为 sjtl frm。(2)在名称为Form1的窗体上画一个文本
2、框，其名称为 Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为 Op1、 Op2和 Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮 Op1，则在文本框中显示 “颐和园 ”；如果选择单选按钮 Op2，则在文本框中显示 “兵马俑 ”；如果选择单选按钮Op3，则在文本框中显示 “西湖 ”。程序的运行情况如图 3 128所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文 件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在名称为 Form1的窗体上画一个名称为 lbl
3、Pwd的标签，标题为 “密令 ”；画两个文本框，名称分别为 txtPwd、 txtObi，都没有初始内容；再画三个命令按钮，名称分别为 cmdShow、 cmdHide、 cmdCooy，标题分别为 “显示 ”、 “隐藏 ”、 “复制 ”，在开始运行时，向 txtPwd中输入的所有字符都显示 “*”，单击 “显示 ”按钮后，在txtPwd中显示所有字符，再单击 “隐藏 ”后， txtPwd中的字符不变，但显示的都是“?”，单击 “复制 ”后，把 txtPwd中的实际内容复制到 txtObj中，如图 3 59所示。 要求： 在属性窗口中，把窗体的标题改为 “密令窗口 ”。 建立适当的事件过程，完
4、成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为 vbsj3 vbp，窗体文件名为 vbsi3 frm。 (2)在考生文件夹下有一个工程文件 vbsj4 vbp，运行情况如图 3 60所示。程序的功能是计算如下表达式的值：Z=(X+2)2+(X+3)3+(x+4)4+(X+N)N 。其中， N和 X值通过键盘分别输入到文本框 txtN、 txtX中。之后如果单击名称为 cmdCal、标题为 “计算 ”的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符
5、，把程序中的 “?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用 运算符，而应使用函数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 N=5， X=10，单击 “计算 “按钮，计算 Z的值，并将结果显示在标签 lblResult中，否则没有成绩。最 后，程序按原文件名存盘。程序源码：Private Function xn(a As Single， m AsInteger)Dim i As Integer： tmp=1 For i=1 To mtmp=? Next xn= ?End FunctionPrivate Sub cmdCal_Click()Di
6、m n As Integer， i As IntegerDim t As Single， s， x As Single n=Val(txtN Text) x=Val(txtX Text) ： z=0 FOr i=2 To n t=x+i z=z+? Next lblResult CaptiOn= ? Call SaveResultEnd SubPriVate Sub SaveResult()Open App Path & “ out4 dat“ For_Outpult As #1 Print #1，lblResult Caption Close #1End Sub 三、综合应用题 3 在考生文
7、件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 tim。窗体外观如图 3 5(a)所示。三个命令按钮的 名称分别为 Command1、 Command2和Command3，标题分别为 “读取数据 ”、 “首字母大写 ”和 “存盘 ”。程序运行后，如果单击 “读取数据 ”命令按钮，则读取考生文件夹下 in5 txt中的全部文本 (文本中的单词与单词之间或标点符号与单词之间均用一个空格分开 )，并在文本框中显示出来。文本内容如下： Tuckeddeepwithinthepromisesandpoliciesofhi sStateoftheUnionaddress， Presid
8、enLtBushu tteredthre ewordsthatspeakvolumesaboutWashingtonsparalysisinaddressingtheplightofthefortymiUionAmericans wholackhealthinsurance Inbetweenhisdiscourseon Medicareandhissupportforalow-incomehealthcareta xcredit，Bushcalledforsomethingcalledassociationhealthplans 如果单击 “首字母大写 ”命令按钮， 则将文本框中每个单词的第
9、一个字母变为大写字母 (如果原来已是大写字母则不改变 )，并在文本框中显示出来，如图 3 97(b)所示；如果单击 “存盘 “命令按钮，则把文本框中的内容 (首字母大写后 )保存到考生文件夹下的文件 out5 txt中。、窗体文件中己给出了部分程序，请把它补充完整，使其实现上述功能。要求： 1)编写 “读取数据 ”命令按钮的 Click事件过程。 2)去掉 “首字母大写 ”命令按钮和 “存盘 ”命令按钮事件过程中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行。 3)用原来的文件名保存工程文件和窗体文件。 国家二级 VB机试（上机操作）模拟试卷 367答案与解析 一、基本操作题 1
10、【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，如表 4 75在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Private Sub Command1_Click()Command1 Caption=Label1Label1 Visible=FalseEnd Sub 步骤3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1上画一个文本框和三个单选按钮，其属性及值如表 4 76所示。步骤 2：在代码编辑窗口，编写三个单选按钮的单击事件过程。参考代码： PriVate Sub Op1_Clic
11、k()Text1=“颐和园“End SubPrivate sub Op2_Click()Text1 Text=“兵马俑 “End Subrivate Sub Op3_Click()rrextl Text=“西湖 “End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题需要在窗体上画出控件并相应设罩其属性，然后编写命令按钮的单击事件，使得标签的 Visible属性为 False并且改变命令按钮的 Caption属性。 (2)本题只需在三个单选按钮的 Click事件过程中，分别为文本框的 Text属性赋予相应内容即可。 二、简单应用题 2 【正确答案】 (1)步骤 1
12、：新建一个 “标准 EXE”工程，按表 436在窗体中 画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，分别编写 3个按钮的单击事件过程。参考代码： Private Sub cmdShow_Click()txtPwd PassWOrdChar=“End SubPrivate Sub cmdHide_Click()txtPwd PasswordChar=“?“End SubPriVate Sub cmdCopy_Click()txtobj Text=txtPwd TextEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的 本题工程文件 vbsi4
13、 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：tmp=tmp*axn=tmpz=z+xn(t， i)lblResult Caption=z 步骤 2：按运行程序，在第 1个文本框中输入 5，第 2个文本框中输入 10，再单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空。 (2)本题源程序中，自定义函数 xn的功能是进行 am幂运算，它通过 For循环连续 m次将 a乘以累积变量
14、 tmp(初值为 1)来实现。故自定义函数 xn中第一个 ?处应改为： tmp*a，作为函数返回值第二个 ?处应改为： tmp。 在 “计算 “按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个 For循环依次计算表达式中各项的值 (x+i)i)，并将其累加入变量 z。计算表达式中各项的值通过调用自定义函数 xn(t， i)来实现的，其中 t=x+i。故cmdCal_Click事件过程中第一个 ?处应改为： xn(t， i)。计算结果显示在标签中，故第二个 ?处应改为： z。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的工程文件 sjt5 vbp，在代码编辑窗
15、口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： ch=Mid(oldSen， i， 1) newSen=newSen & ch Write #1， Text1 Text 步骤 2：编写 “读取数据 ”命令按钮的单击事件。 参考代码： Private Sub Command1_Click() Dim s As String Open“in5 txt“For Input As 1 Line Input #1， S Close #1 Text1 Text=s End Sub 步骤 3：按 键运行程序，先单击 “读取数据 ”按钮，接着单击 “首字母大写 ”按钮，最后单击 “存
16、盘 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 分析题目可知，本题中 “读取数据 ”命令按钮中首先使用 For Input方式打开文件，然后通过 Line Input#语句将打开文件中的数据读出到变量 s中并且赋给文本框。 在 “首字母 大写 ”按钮的单击事件中，首先依次取出文本框中的每一个字符，然后判断这个字符的上一个字符是否是空格，如果是空格则将该字符使用 L Case函数转换为大写；判断完毕后无论是否转换均将其连接到新的字符串中，同时令这个字符成为新的 “上一个字符 ”。这样，循环结束后每个单词的首字母就转换成了大写字母。 在 “存盘 ”按钮的单击事件中，首先以 Output方式打开文件，然后利用 Write#语句将文本框中的内容写回到文件中，最后关闭文件。
