1、国家二级 VB机试（上机操作）模拟试卷 379及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “欢迎 ”的窗体上画 1个名称为 Labe11的标签，其标题内容为“欢迎使用本系统 ”，标题文字字体和字号分别为 “宋体 ”、 “三号 ”，标签大小能根据标题内容自动调整，效果如图 340所示。程序执行时，窗体的最大化按钮不可用，请设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上，画 1个名称
2、为 Labe11的标签，其标题为 “横坐标X”，且能根据标题内容自动调整标签的大小；再画 1个名称为 Text1的文本框，其中的文字显示为空白；再画 1个名称为 Picture1的图片框，大小适中即可。 要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图 341所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 fam。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：
3、 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息 (包括路径及文件名 )显示到标签中，如图 342所示。3)“下一张 ”命令按钮的功能：选中并显示上次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1个图片文件始 )。 在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不
4、得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击 “查找 ”按钮时可输入查找内容，如图 343所示。若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态 )，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图 344所示。若单击提示对话框的 “是 ”按钮，则继续向后查找；若单击 “否 ”按钮，则终止查找。在给出的窗体文件中己经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序
5、功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时，单击 “显示数据 ”按钮，则将考生文件夹下 in5 dat文件 的内容读入一维数组 a中，并按下标顺序将数组 a各元素的值显示在 List1列表框中；单击 “移动 ”按钮，则将数组 a中的最大值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在 List2列表框中。单击 “保存 ”按钮，则保存移动后的结果。 要求： “显示数据 ”和 “保存 ”按钮的Click事件过程已经给出，请编写 “移动 ”按钮的 Click事
6、件过程实现上述功能。窗体界面如图 345所示。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击 “移动 ”按钮，并单击 “保存 ”按钮保存结果，否则无成绩。最后程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 379答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体Form1中 加入一个标签控件。按表 427设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个文本框、标 签和图片框。按表 42
7、8设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写图片框的的 MouseMove事件代码。参考代码： Private Sub Picture1 MouseMove(ButtonAs Integer， Shift As Integer， X AsSingle， Y As Single)Text1 Text XEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在 代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Filel Lis
8、tIndex 1 Or File1 ListIndex File1 ListCount 1 Then File1 ListIndex File1 ListIndex 1 Labe11 Caption App Path “ “ Filel FileName File1 Pattern “* jpq“ 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】
9、 步骤 1：打开考生文件夹中的工程文件 sjt5 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub Command2_Click() =考生编写的程序 = Dim n As Integer， s As String Dim i， j As Integer n 0 ： j 0 For i 1 To 10 If a(i) n Then n a(i) ： j i End If Next For i j To 2 Step 1 a(i) a(i 1) Next a(1) n For i 1 To 10 List2 AddItem(a(i) Next i = End Sub 步骤 2：按 运行程序，单击各按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。
