1、国家二级 VB机试（上机操作）模拟试卷 339及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，内容分别为 “文本框 1”和 “文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则 Textl隐藏， Text2显示，如图 3 88(a)所示；如果双击窗体，则 Text1显示， Text2隐藏，如图 3 88(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称 为Form1的窗体上画一个文本框，其名称为 Text1，初始
2、内容为空白；再画一个水平滚动条，其名称为 HS1， SmallChange属性为 4， LargeChange属性为 10， Min属性为 0， Max属性为 200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值 (0 200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图3 89所示。 注意：程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹 下有一个工程文件 sjt3 vbp。程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为 jpg的文件。
3、2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息 (包括路径及文件名 )显示到标签中，如图 3-42所示。 3)“下一张 “命令按钮的功能：选中并显示上次选中文件的下一个图片文件 (如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第 1个图片文件始 )。在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)在考
4、生文件夹下有一个工程文件 sjt4 vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击 “查找 ”按钮时可输入查找内容，如图 3-43所示。若未找到查找内容，查找结束；若找到查找 -内容，被找到的内容在文本框中以反相显示(即呈选中状态 )，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图 3 44所示，若单击提示对话框的 “是 ”按钮，则继续向后查找；若单击 “否 ”按钮，则终止查找。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按
5、原文件名存盘。 三、综合应用题 3 在考生文件夹中有一个工程文件 sjt5 vbp，如图 3 164所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标 签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。 已给出了部分程序，请编写 “计算 “命令按钮事件过程中的部分程序代码，以便完成上述功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮进行计算，否则无成绩。国家二级 VB
6、机试（上机操作）模拟试卷 339答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体中加入两个文本框并设置它们的相关属性，属性 及其值如表 4-56所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click()Text1 Visible=FalseToxt2 Visible=TrLieEnd SubPrivate Sub Form_DblClick()Text1 Visible=TrueText2 Visible=FalseEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建
7、 “标准 EXE”工程，往窗体 Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属 性及其值如表4 57所示。 步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form Click()HS1 Value=Val(Text1 Text)End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)要在程序运行时实现题目所要求的功能，只需在窗体的 Click事件过程中用代码设置文本框 1的 Visible属性值为 False， 文本框 2的 Visible属性为 True；在窗体的 DblClick事件过程中用代码设置文本框 1的
8、 Visible属性值为True，文本框 2的 Visible属性为 False。 (2)要在程序运行时，单击窗体就能将滚动条的滑块位置定位到文本框中输入的值，只需要编写窗体的单击事件，令滚动条的 Value属性值等于文本框的 Text属性值。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Filel ListIndex =-1 Or Filel ListIndex=Filel ListCount-1 Then Filel ListIndex=Fil
9、el ListIndex+1 Label1 Caption=App Path + “ “ + Filel FileName Filel Pattern= “* jPg“ 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “*”， 将问号 “?”改为正确的内容。参考代码： Text1 SelStart=pos-1 Text1 SelLength=Len(fstr) times=times+1 pos=InStr(pos， ostr， fstr) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析
10、】 (1)本题主要考察文件列表框的属性和事件响应。文件列表框的Path属性用来设置或返回其当前的目录 (缺省值是当前路径 )；文件列表框的FileName属性可返回所选文件的文件名； Pattern属性设置要显示的文件类型，默认表示所有文件 ； ListCount属性返回文件列表框中匹配 Pattern属性设置的文件个数； ListIndex返回控件中当前项目的索引号，取值范围是 0 ListCount-1。 第一个 “?”处是的 If判断文件列表框当前的 ListIndex是不是最后一个或者文件列表框里面没有文件，即 ListIndex的值为 -1；第二个 “?”处是在命令按钮的事件代码里面
11、把图片向后移动一个，然后调用 ShowInfor来显示图片，因此第二个 “?”处是将 ListIndex加 1；第三个 “?”处是显示图片的路径和名称，图片的名称可通过列表框的 FileName属性得到；最后一个 “?”是设置文件列表框的属性，包括 Path和 Pattern属性，因为题目要求文件列表框显示扩展名为 jpg的文件。 (2)题目要求在一个字符串里面查找另外一个字符串，由于字符串可能出现多次，因此需要使用循环来遍历。字符串查找使用 InStr函数，该函数指定一字符串在另一字符串中最先出现的位置，如果没有找到返回 0。因此在循环中，用一个变量保存 InStr的返回值，只要 InStr
12、返回值不为 0，就可以继续往后查找。第一个和第二个 “?”处是设置找到的字符反相显示，即把找到的字符串 设置为选中状态，通过设置 SleStart和 SelLength两个属性。第三个 “?”处是统计找到的次数变量times加 1，根据 “Text2 Text=times”可知 times是统计变量；最后一个 “?”处如果If成立则需要再次查找，因为下次进入循环的时候直接设置选中状态，说明在下次进入循环前已经找到了。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 sjl5 vbp，在代码编辑窗口的指定位置编写以下代码。参考代码： For k=1 To N Sum=Su
13、m+a(k， k) If a(k， k) 3=Int(a(k， k) 3)Then Counter=Counter+1 End If If kN-k+1 Then If a(k， N-k+1) 3=Int(a(k， N- k+1) 3)Then Counter=Counter+1 End If End If Next lblSecond CaDtion=Sum lblFirst CaDtion=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 矩阵主对角线上元素的特点：第一维下标与第二维下标相同： 7*7矩阵次对角线上元素的特点：第一维下标与第二维下标之和为 8。根据题意，可通过一个 For循环，将满足主对角线上元素特点的数组元素累加入变量 Sum。再通过一个嵌套的 For循环逐一判断满足两个对角线上的元素特点的元素能否被 3整除，若某数组元素能被 3整除，则记录个数的变量 Counter增 1。
