1、国家二级 VB机试（上机操作）模拟试卷 286及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画两个标签 (名称分别为 lblName和 lblAge，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 txtName和 txtAge， Text属性均为空白 )和一个命令按钮 (名称为 cmdDisplay，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图 36
2、8所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文件名为 vbsj1 frm(2)在名称为 Form1的窗体上画一个文本框，名称为 txtInput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 369所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 vbSj2 vbp，窗体文件名为 vbsj2 frm 二、简单应用题 2 (1)在考生目录下有一个工程文件 vbsj3 vbp
3、，窗体上有一个命令按钮cmdNext(标题为 “下一个 ”)。要求：在窗体上建立一个单选按钮数组 optItem，含 4个单选按钮，标题分别为 “A”、 “B”、 “C”、 “D”，初始状态下， “A”为选中状态。如图 370所示。窗体文件中已经给出了命令按钮的 Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后 一个单选按钮，再单击命令按钮，则选中第 1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdNext Click()
4、For k=0To?If optItem(k) Value Thenn=?End IfNext koptItem(n) Value=Falsen=n+1If n=4Thenn=?End IfoptItem(n) Value=TrueEnd Sub(2)在考生文件夹下有一个工程文件 vbsj4 vbp，窗体上有两个文本框、三个 单选按钮和一个命令按钮。运行时，在txtInput中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入 txtResult(如图 371所示 )。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程
5、序中的注释符，把程序中的 “?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdChange_Click()Dim n As Integer， k As IntegerDim ch As String， a As Stringn=Len(txtInput Text)ch=“ “For k=1To na=Mid$(txtInput Text， ?， 1)If Opt1 Value=True ThenIf a =“a“And a =“z“Thench=ch+UCase(a)ElseIf a=“A“And a =“Z“The
6、nch=ch+?ElSech=Ch+aEnd IfEnd IfIf Opt2 Value=True Thench=UCase(txtInput)End IfIf Opt3 Value=True Thench=LCase(txtInput)End IfNext ktxtResult=?End Sub 三、综合应用题 3 在考生文件夹下有一个工程文件 vbsj5 vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为 lblName、 lblTel和 lblPost，标题分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为 txtName、 txtT
7、el和 txtPost，初始内容均为空白，如图 372所示。程序运行后，如果单击 “显示第三个记录 ”命令按钮，则读取考生文件夹下 in5 txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。注意：考生不得修改已经存在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 程序源码： Private Type PalTypeN
8、ame As String*8Tel As String*10Post As LongEnd Type考生编写如下事件过程的程序 (cmdDisplay_Click)Private Sub cmdDisplay_Click()End SubPrivate Sub cmdSave_Click()Open“out5 txt“For Output As#1Print#1， txtName Text， txtTel Text， txtPost TextClose1End Sub 国家二级 VB机试（上机操作）模拟试卷 286答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “
9、标准 EXE”工程，按表 441在窗体中画出控件并设置其相关属性。 步骤2：在代码编辑窗口，编写命令按钮的 Click事件过程。参考代码： Private Sub cmdDisplay_Click()Print txtName Text&“现年 “&txtAge Text&“岁 “End Sub步骤3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，按表 442在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件 过程。参考代码： Private Sub txtInput_Change()picoutput Print txt
10、Input TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题： &运算符用来强制两个表达式作字符串连接。本题只需在命令按钮的单击事件过程中，用 Print方法将两个义本框中的内容输出到窗体上。 第 2小题：要实现本题所要求的功能，可在文本框的 Change事件过程中，将当前文奉框中的文本用 Print方法输出到图片框中。 二、简单应用题 2 【正确答案】 第 1小题步骤 1：打开考生文件夹中的本题工程文件 vbsj3 vbp，按表 443在窗体中用 “复制 ”和 “粘贴 ”命令画出包含 4个元素的单选数组和 1个命令按钮并设置属性。 步骤 2：打开代码
11、编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：Private Sub CmdNext_Click()For k=0To3If optItem(k) Value Thenn=kEnd IfNext kOptItem (n) Value=Falsen=n+1If n=4Thenn=0End IfOptItem(n) Value=TrueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：打开考生文件夹中的本题工程文件 vbsj4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： a=Mid$(txtIn
12、put Text， k，1)ch=ch+LCase(a)txtResult=ch步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题源程序在命令按钮的单击事件过程中，首先利用For循环语句 (循环变量 k的初值为 0，终值为 3)逐一检查单选按钮数 组中的每个元素是否被选中，若选中则用变量 n记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选抒，变量 n增 1；接着判断增 1后的 n值是否为 4，荇是则将 n的值设置为 0；最后设置索引号为 n的单选按钮被选中。 第 2小题：本题源程序功能是存命令按钮的单击事件过程中，用 For循环语句和Mid
13、函数逐一取出文本框 txtInput中的字符后，根据单选按钮的选择进行相应转换；当选择 “大小写互换 ”时，如果是小写字母就用 UCase雨数转换为大写，如果是大写字母就用 LCase函数转换为小写，如果不是字母就不 用转换：当选择 “全部大写 ”时，就用 UCase函数将文本框中所有字母转换为大写：当选择 “全部小写 ”时，就用 LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 vbsj5 vbp，按表 444在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口中，编写c
14、mdDisplay_Click事件过程。参考代码： Private Sub cmdDisplay_Click()Dim pers As PalTypeOpen“in5 txt“For Random As： #1_Len=Len(pers)Get#1， 3，perstxtName Text=pers NametxtTel Text=pers TeltxtPost Text=pers PostClose#1End Sub步骤 3：按 F5键运行程序，先单击 “显示第三个记录 ”按钮，再单击“保存 ”按钮。步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题需在 “显示第三个记录 ”按钮的单击事件过程中，先声明一个自定义数据类型 PalType的变量，然后 用 Open语句打开文件 in5 txt，接着用 Get#语句读出记录号为 3的记录并赋值给白定义类型变量，最后将该变量各元素的值显示在对应文本框中。
