1、国家二级 VB机试（上机操作）模拟试卷 298及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个标签，其名称为 Label1，标题为 “等级考试 ”，BorderStyle属性为 1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为 Command1，编写适当的事件过程。程序运行后，其界面如图 3127(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图 3127(b)所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 v
2、bp，窗体文件名为 sjt1 frm。(2)在名称为 Form1的窗体上画一个文本框，其名称为 Text1，初始内容为空白；然后再画三个单选按钮，其名称分别为 Op1、 Op2和 Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮 Op1，则在文本框中显示 “颐和园 ”；如果选择单选按钮 Op2，则在文本框中显示 “兵马俑 ”；如果选择单选按钮 Op3，则在文本框中显示 “西湖 ”。程序的运行情况如图 3128所示。要求程序中不得使用变 量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 f
3、rm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个名称为 Command1、标题为 “计算 ”的命令按钮；两个水平滚动条，名称分别为 Hscroll1和 Hscroll2，其 Max属性均为 100， Min属性均为 1；四个标签，名称分别为 Label1、 Label2、 Label3和 Label4，标题分别为 “运算数 1”、 “运 算数 2”、 “运算结果 ”和空白；此外还有一个包含四个单选按钮的控件数组，名称为Option1，标题分别为 “+”、 “-”、 “*”和 “ ”，如图 3129(a)所示。程
4、序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在： Label4中，程序运行情况如图3129所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原 来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “输入显示 ”；此外还有一个文本框，其名称为 Text1，初
5、始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值 (1 12)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出 “5月份是夏季 ”，如图 3130所示。程序不完整，请补充完整。要求：去掉程序中的注释符， 把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生的文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。在窗体上有两个命令按钮，其名称分别为 Command1和 Command2，标题分
6、别为 “写文件 ”和 “读文件 ”，如图 3131(a)所示。其中 “写文件 ”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件 t5 txt中；而 “读文件 ”命令按钮事件过程用来读出文件 t5 txt中的每个记 录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下：姓名 (Name) 电话 (Tel) 邮政编码 (Pos)LiuMingliang (010)62781234 100082各字段的类型和长度为：姓名 (Name)：字符串 15电话(Tel)：字符串 15，邮政编码 (Pos)：长整型 (Long)程序运行后，如果单击 “写文件 ”命令按钮，则可以随机
7、存取方式打开文件 t5 txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答 “Y”(或 “y”)则输入新记录，回答 “N”(或 “n”)则停止输入；如果单击 “读文件 ”命令按钮，则可以随机存取方式打开文件 t5 txt，读出文件中的全部记录，并在窗体上显示出来，如图 3131(b)所示。该程序不完整，请把它补充完整。要求如下： 去掉程序中的注释符，把程序中的 ?改为正确内容，使其能正确运行，但不能修改程序中的其他部分。 文件 t5 txt中已有三个记录，如图 3131(b)所示，请运行程序，单击 “写文件 ”命令按钮，向文件 t5 txt中添加以下两个记录
8、(全部采用西文方式 )：LiDaqing (027)873487654 30065ChenQjingshan (022)26874321 300120 运行程 后，单击 “读文件 ”命令按钮，在窗体上显示全部记录 (共 5个 )。 用原来的文件名保存工程文件和窗体文件。国家二级 VB机试（上机操作）模拟试卷 298答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，如表 475在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Private Sub Command1_Click()Command1 Captio
9、n=Label1Label1 Visible=FalseEnd Sub步骤3：按要求将 文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，存窗体 Form1上画一个文奉框和三个单选按钮，其属性及值如表 476所示。 步骤 2：在代码编辑窗口，编写三个单选按钮的单击事件过程。参考代码： Private Sub Op1_Click()trext1=“颐和园“End SubPrivate Sub Op2_Click()trext1 Text=“兵马俑 “End Subrivate Sub Op3_Click()Text1 Text=“西湖 “End Sub步骤 3：按要求将
10、文件保存至考生文件夹中。 【试题解析】 第 1小题：本题需要在窗体上画出控件并相应设置其属性，然后编写命令按钮的单击事件，使得标签的 Visible属性为 False并且改变命令按钮的Caption属性。 第 2小题：本题只需在三个单选按钮的 Click事件过程中，分别为文本框的 Text属性赋予相应内容即可。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If optionl(i)=True Then elect Case opt Label4 C
11、aption=Str(Hsb1 Value)&“ “ &opt&Str(Hsb2 Value)&“=“& Str(Result) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Loop Until n 0And n 13 Select Case n Select Case m 步骤 2：按要求将文件保存至考 生文件夹中。 【试题解析】 第 1小题：本题其实就是根据所选运算符计算两个水平滚动条产生值的结果。题目源程序利用一个 For循环语句逐
12、一判断单选按钮数组中各元素是否选中，若选中则用变量 opt记录下所选项的标题；接下来则根据 opt可能出现的不同值，用 Select Case语句分别做出处理：最后将运算表达式及结果显示在标签Label4上。 第 2小题：本题源程序利用一个 Loop循环语句使得输入月份，只有当输入的月份为 1 12之间的整数时才是合法的输入；接下来使用 Select Case语句分别对月份n做出处理；最 后再使用 Select Case语句根据不同的季节 m的值进行输出。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将
13、问号 “?”改为正确的内容。 参考代码： RecNum=RecNum+1 Put#1， RecNum， Pers Loop While UCase(asp) “N“ RecNum=LOF(1) Len(Pers) Get#1， i， Pers 步骤 2：按 F5键运行程序，先单击 “写文件 ”按钮，然后在弹出的输入框 中依次按照题目要求输入两条记录，再单击 “读文件 ”按钮在窗体上显示结果。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 在 “写文件 ”命令按钮的 Click事件过程中，用 Open语句打开考生文件夹下的文件 t5 txt，变最 RecNum代表记录个数，在 DoLoop 循环中 (以输入的不是 “N”作为循环条件 )，用 Put语句将记录变量 Pers写入随机文件中相应记录号的记录，然后令记录号加 1以便下次继续写入。在 “读文件 ”命令按钮的 Click事件过程中，用 Open语句打开文件 t5 txt，同样使用变量 RecNum代表记录个数，然后再一个 For循环中依次使用 Get语句取出每一个记录并且显示。
