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