1、国家二级 VB机试（上机操作）模拟试卷 80及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual： Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 lblName和 lbLAge，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 txtName和 txtAge， Text属性均为空白 )和一个命令按钮 (名称为 cmdDisplay，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则 在窗体上显示两个文本框中的内容，如图 3
2、 32所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjl vbp，窗体文件名为 vbsil frm。 (2)在名称为Forml的窗体上画一个文本框，名称为 txtlnput，无初始内容；再画一个图片框，名称为 picOutput。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 3-33所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 vbs j2 vbp，窗体文件名为 vbsj2 frm 二、简单应用题 2 (1)考牛文件夹下的工程文件 sit3
3、vbp中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单 (如图 3 160所示 )。当选巾 “计算 100以内自然数之和 ”菜单项时，将计算 100以内自然数之和并放入Text1中；当选中 “计算 7 1”菜单项时，将计算 7 1并放入 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得 修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4 vbp中有如图 3-161所示的控件。程序功能如下：程序运行时，在 T
4、ext1中输入一个商品名称，在 Text2中输入一个数量，单击 “计算 ”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3中 (如图 3 161所示 )；若输入的商品名称是错误的，则在 Text3中显示 “无此商品 ”(为方便编程，列表框中的每个单价均为 4位 (含小数点 )。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意 ：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，
5、其内容如下： 32437658281298573 142536475869713243546576879805937程序运行后单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 3 72所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (可以是多行 )，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟
6、试卷 80答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4-19在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，编写命令按钮的 Click事件过程。参考代码： PriVate Sub cmdDisplayl_Click() Print txtName Text ”，现年 ” txtAge Text “岁 ”End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4-20在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮
7、的单击事件过程。 参考代码： PriVate Sub txt Input Change() picOutput Print txt Input TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Button=2 Then PopupMenu mypopmenu For k=n To 1 Step-1 Text2=fact(7) 步骤 2：按要求将文件保存至考生文件夹中。
8、 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To LiStl LiStCount一 1 name=Left(LiStl LiSt(k)， n一 1) price=Val(Right(Listl List(k)， 4) Text3=“无此商品 ” 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Dim Mat(M， N)As Integer Open App Path “ ” ”datain txt”For Input As#1 Input#1， Mat(i， j) Mat(i， 4)=t 步骤 3：按要求将文件保存在考生文件夹中。
