1、国家二级 VB机试（上机操作）模拟试卷 3及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Labell、标题为 ”列表框的使用 ”的标签。再画一个名称为 Listl的列表框，列表中含有 5个表项，表项内容分别为 ”北京 ”、 “山西 ”、 ”辽宁 ”、 ”浙江 ”和 ”广东 ”，并且可以在列表中 同时选择多个表项。运行后的窗体如图2-39所示。要求：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个名称
2、为 Imagel的图像框，其高、宽分别为2000、 3000，且不随图片大小而变化；再画两个命令按钮，标题分别是 ”显示图片 ”和 ”隐藏图片 ”，名称分别为 Cmdl、 Cmd2，如图 2-40所示。需编写两个命令按钮的 Click事件过程，使得当单击 ”显示图片 ”按钮时，将当前文件夹下的图片文件 ”图片 jpg”显示在图像框中；而如果单击 ”隐藏图片 ”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3
3、vbp，其功能是： 单击 ”读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击 ”统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Textl、 Text2中。在给出的窗体文件中有了全部控件 (如图 2-41所示 )，但程 序不完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能。注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。 4 在考生文件夹下有
4、一个工程文件 sjt4 vbp，其窗体上有两个标题分别为 ”添加 ”和 ”退出 ”的命令按钮，一个内容为空的列表框 Listl。请画一个标签，其名称为Labell，标题为 ”请输入编号 ”；再画一个名称为 Textl，初始值为空的文本框，如图2-42所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息 ”a0001”。 系统运行时，在文本框 Textl中输 入一个编号，并单击 ”添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框Listl已有项目之后；否则，将弹出 ”不允许重复输入，请重新输入 !”对话框，单击该对话框中的 ”确定 ”按钮，可以重新输入。
5、 单击 ”退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上画有两个名称分别为Textl、 Text2的文本框，其中 Textl可多行显示。请 画两个名称为 Commandl、Command2，标题为 ”产生数组 ”、 ”查找 ”的命令按钮。如图 2-43所示。程序功能如下： 单击 ”产生数组 ”按钮，则用随机函数生成 10个 0 100之间 (不含 0和 100)互不相同的数值，并将它
6、们保存到一维数组 a中，同时也将这 10个数值显示在Textl文本框内； 单击 ”查找 ”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组 a中查找该数，若查找失败，则在 Text2文本框内显示该数 ”不存在于数组中 ”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的 ?改为正 确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 3答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程。步骤 2：在窗体 Forml中加入一个列表框和一个标
7、签，并分别如表 3-20设置它们的相关属性。步骤 3：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-21在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮 的单击事件过程。参考代码： Private Sub Cmdl_Cl ick( )Imaqel Picture=LoadPicture(“图片 j pg”)End Sub Private Sub Cmd2_Click( )Imagel Picture =LoadPicture( ) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题
8、3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： If x=m2 Then is_square = flag If a(k) max Then Text1 Text=max Text2 Text=num 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 3-22在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。参考代码：Listl AddItem”a000
9、1”For i = 0 To List1 ListCount - lList1 ListIndex=iList1 AddItem Textl TextEnd步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在窗体上画两个命令按钮，属性及其值如表 3-23所示。 步骤 2：在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： a(i)=Fix(Rnd*99+1)For j=1 To i-1i=i -1If a(i)=n um ThenIf i 10 Then步骤 3：按要 求将文件保存至考生文件夹中。
