1、国家二级 VB机试（上机操作）模拟试卷 46及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画两个标签 (名称分别为 lblName和 lblAge，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 txtName和 txtAge， Text属性均为空白 )和一个命令按钮 (名称为 cmdDisplay，标题为 “显示 ”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮 ，则在窗体上显示两个文本框中的内容，如图 3-32
2、所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文件名为 vbsj1 frm。 2 在名称为： Form1的窗体上画一个文本框，名称为 txtlnput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 3-33所示。程序中不能使用任何变量。 注意：保存时必须存放在考生文件夹下，工 程文件名为 vbsj2 vbp，窗体文件名为 vbsj2 Frm 二、简单应用题 3 在考生目录下有一个工程文件 vbsj3 v
3、bp，窗体上有一个命令按钮 cmdNext(标题为 “下一个 ”)。 要求：在窗体上建立一个单选按钮数组 optItem，含 4个单选按钮，标题分别为 “A”、 “B”、 “C”、 “D”，初始状态下， “A”为选中状态。如图 3-34所示。窗体文件中已经给出了命令按钮的 Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已 经选中最后一个单选按钮，再单击命令按钮，则选中第 1个单选按钮。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 程序源码： Private Sub cmdNext
4、C1iCk() For k=0 To? If optItem(k) Value Then n=? End If Next k optItem(n) Value=False n=n+1 If n=4 Then n=? End If optItem(n) Value=TrueEnd Sub 4 在考生文件夹下有一个工程文件 vbsj4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 txtlnput中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图 3-35所示 )。在给出的窗体文件中已经给
5、出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdChange Click()Dim n As Integer， k As IntegerDim ch As String， a As String n=Len(txtInput Text) Ch=“ “ For k=1 To n a=Mid$(txtInput Text， ?， 1) If Opt1 Valme=True Then If a=“a“And a=“A“And a 三、综合应用题 5 在
6、考生文件夹下有一个工程文件 vbsj5 vbp，已给出了部分控件和部分程序。请在窗体上画三个标签，其名称分别为 lblName、 lblTel和 lblPost，标题 分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为 txtName、 txtTel和 txtPost，初始内容均为空白，如图 3-36所示。程序运行后，如果单击 “显示第三个记录 ”命令按钮，则读取考生文件夹下 in5 txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保
7、存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。 注意 ：考生不得修改已经存在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。程序源码：Private Type PalType Name As String*8 Tel As String*10 PoSt As LongEnd Type考生编写如下事件过程的程序 (cmdDisplay_Click)Private Sub cmdDisplay_C1ick()End SUbPrivate Sub cmdSave_CliCk() Open“out
8、5 txt“For Output As #1 Print #1， txtName Text， txtTe1 Text， txtPoSt Text C1ose 1End Sub 国家二级 VB机试（上机操作）模拟试卷 46答案与解析 一、基本操作题 1 【正确答案】 审题分析 运算符用来强制两个表达式作字符串连接。本题只需在命令按钮的单击事件过程中，用 Print方法将两个文本框中的内容输出到窗体上。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按表 4-19在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： PriVate S
9、ub cmdDisplay_Click() Print txtName Text “，现年 “ _ txtAge Text “岁 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 变量、运算符和表达式 2 【正确答案】 审题分析 要实现本题所要求的功能，可在文本框的 Change事件过程中，将当前文本框中的文本用 Print方法输出到图片框中。 操作步骤 步骤 1：新建一个 “标准 EXE”工程， 按表 4-20在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： PriVate Sub txtInput Change
10、() picOtltput Print txtInput Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 文本控件、数据输入输出 二、简单应用题 3 【正确答案】 审题分析 本题源程序在命令按钮的单击事件过程中，首先利用 For循环语句 (循环变量 k的初值为 0，终值为 3)逐一检查单选按钮数组中的每个元素是否被 选中，若选中则用变量 n记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，变量 n增 1；接着判断增 1后的 n值是否为4，若是则将 n的值设置为 0；最后设置索引号为 n的单选按钮被选中。 操作步骤 步骤 1：打开考
11、生文件夹中的本题工程文件 vbsj3 vbp，按表 4-21在窗体中用 “复制 ”和 “粘贴 ”命令画出包含 4个元素的单选数组和 1个命令按钮并设置属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Sub CmdNext_Click() For k=0 To 3 If OptItem(k) Value Then n=k End If Next k OptItem (n) Value=False n=n+1 If n=4 Then n=0 End If OptItem (n) Value=True End Sub 步骤 3
12、：按要求将文件保存至考生文件夹中。 考点链接 控件数组、选择控件 4 【正确答案】 审题分析 本题源程序功能是在命令按钮的单击事件过程中，用 For循环语句和 Mid函数逐一取出文本框 txtInput中的字 符后，根据单选按钮的选择进行相应转换：当选择“大小写互换 ”时，如果是小写字母就用 UCase函数转换为大写，如果是大写字母就用 LCase函数转换为小写，如果不是字母就不用转换；当选择 “全部大写 ”时，就用 UCase函数将文本框中所有字母转换为大写；当选择 “全部小写 ”时，就用 LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框 txtResult中。 操作步骤
13、步骤 1：打开考生文件夹中的本题工程文件 vbsj4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容 。 参考代码： a=Mid$(txtInput Text， k， 1) ch=ch+LCase(a) txtResult=ch 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 常用内部函数。 三、综合应用题 5 【正确答案】 审题分析 本题需在 “显示第三个记录 ”按钮的单击事件过程中，先声明一个自定义数据类型 PalType的变量，然后用 Open语句打开文件 in5 txt，接着用 Get#语句读出记录号为 3的记录并赋值给自定义类型变量，最后将该变量
14、各元素 的值显示在对应文本框中。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 vbsj5 vbp，按表 4-22在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口中，编写cmdDisplay_Click事件过程。 参考代码： PriVate Sub cmdDisplay_Click() Dim pers As PalType ODen“in5 txt“For Random As #1 Len=Len(pers) Get #1， 3， pers txtName Text=pers Name txtTel Text=pers Tel txtPost Text=pers Post Close #1 End Sub 步骤 3：按键运行程序，先单击 “显示第三个记录 ”按钮，再单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 随机文件
