1、国家二级 VB机试（上机操作）模拟试卷 349及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个文本框，其名称为 T1，宽度和高度分别为1400、 400；再画两个命令按钮，其名称分别为 Cl和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示 “等级考试 ”，如图 3 107(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的 3倍，如图 3-107(b)所示。 注意：要求程序中不得使用变量。存 盘时必须存放在考生文件夹下，工程文件名为sjtl vbp
2、，窗体文件名为 sjtl frm。 (2)在名称为 Form1的窗体上画一个命令按钮，其名称为 Cl，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Text1和Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Text1中输入一行英文字符串，如果单击转换按钮，则 Text1文本框中的字母都变为小写，而Text2中的字母都变为大写。例如，在 Text1中输入 visual basic programming，则单击转换按钮后，结果如图 3 108所示。 注意：不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二
3、、简单应用题 2 (1)考生文件夹中有工程文件 sjt3 vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组，其名称为 Optionl，单选按钮的下标分别为 0、 1，Caption属性分别为 “驱动器为 C”及 “列 txt文件 ”，如图 3 12所示。运行程序时，驱动器列表框、目录列表框和文件列表框三个控件能够同步变化。 1)选中 “驱动器为 C”单选按钮，则驱动器列表框的当前驱动器被设 为 “C”。 2)选中 “列 txt文件 ”单选按钮，则文件列表框中只显示 tXt类型的文件。 3)单击文件列表框中的某个文件时，被选中的文件名显示在 “当前文件 ”右侧的标签中。 要求：
4、按照题目要求添加控件，设置有关属性，去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体上已有全部控件，如图 3 13(a)所示。要求单击标题为 “生成矩阵 ”的命令按钮时，随机生成由单个大写字母组成的 55矩阵 ，并显示在名称为 Text1的文本框中。单击 “查找 ”按钮，找出所生成矩阵中 ASCII值最大的字母及其位置，并显示在 Text2中 (只显示一个 ASCII值最大的字母及其位置 )，如图 3 13(b)所示 (Text2中显示的是第 2行第 5列的
5、“Y”)。在给出的窗体文件中已经有了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有 2个标 题分别是 “读数据 “和 “统计 ”的命令按钮， 1个名称为 Text1的文本框， 2个标签控件，如图 3 31所示。 程序功能如下： 1)单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容 (该文件中含有不超过 800个英文单词，单词之间用 1个空格隔开 )显示在 Text1文本框中。 1* 2)
6、单击 “统计 ”按钮，则自动统计 Text1中所有 5字母单词的个数，并显示在右下角的 Label1标签中。 “读数据 ”按钮的 Click事件过程已经给出， “统计 ”按钮的 Click事件过程不完整，函数 GetWords的功能是从字符串 s中分离出每个单词，依次放入数组 words的数组元素中，返回值为单词的总数目。 要求： 1)请将程序中的注释符去掉，把 ?改为正确的内容； 2)补全 “统计 ”按钮 Click事件过程中的代码，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “统计 ”，且必须用窗体右上角的关闭按钮结束程序，否则无成
7、绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 349答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，如表 4-65在窗体中画出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_Click()T1=“等级考试 “End SubPrivate Sub C2_Click()T1 Height=2 * Me T1 HeightT1 Width=2 * T1 WidthT1 FontSi ze=3 * Form1 T1 FontSizeEnd Sub 步骤 3
8、：按要求将 文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，如表 466在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub C1_Click()Text1 Text=LCase(Text1 Text)Text2 Text=UCase(Text1 Text)End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)要在单击 “扩大 ”按钮时，使文本框在高、宽方向上各增加一倍，只需在 “扩大 ”按钮的 Click事 件中编写设置文本框的 Height和 Width属性值为原来
9、 2倍的语句。要使文本框中的字体大小扩大到原来的 3倍，需编写设置文本框的 FontSize属性值为原来 3倍的语句。 (2)本题源程序是在命令按钮的单击事件过程中，将文本框 Text1中的字符用UCase函数转换为大写并显示在 Text2中，同时用 LCase函数转换为小写并显示在 Text1中。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗 1： 3中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Filel Path=Dirl Path Dirl Path=Drivel Drive If Index
10、=0 Then Filel Pattern=“* txt“ 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： s=s+a(i， j)+“ “ Text1=s Nax=Asc(a(i， j) Text2 = Chr(Nax) & Str(NaxT) & Str(NaxJ) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)驱动器列表框 (Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框 (Dir List
11、 Box)用来分层显示指定磁盘驱动器上的目录列表；文件列表框 (File List Box)用来显示指定目录中所选择文件类型的文件列表，默认为 * *。要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框 、目录列表框、文件列表框相互关联起来，这可通过编写驱动器列表框、目录列表框的Change事件过程，使三者的路径保持一致来实现。 (2)题目要求在点击 “生成矩阵 ”命令按钮时，在 Text1文本框内生成一个 55的大写字母矩阵，通过一个嵌套的循环来实现。同样在矩阵里面查找 ASCII码最大的字母的时候也是通过嵌套的循环来搜索。
12、 第一个 “?”处是给变量 s赋值，在外层的 For循环里面 “s=s & Chr(13) Chr(10)”是给 S添加换行，因此内层 For循环是给 s添加行数据，因此第一个 “?”处是把a(i， i)的值添加到 s当中；第二个 “?”处是把 S的值赋给 Text1文本框；第三个 “?”处的 If判断当前元素 a(i， j)是否比 Max大，如果大的话将其赋值给 Max变量：最后一个 “?”处是在 Text2文本框里面显示 Max的值和位置。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的工程文件 sjt5 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改
13、为正确的内容。参考代码： GetWords=m m=GetWords(17extl Text， ch) -考生编写 的程序代码从这里开始 k=0 For i=1 To m If Len(ch(i)=5 Then k=k+1 End If Next i Label1 Caption=k -考生编写的程序代码到这里结束 步骤 2：按 键运行程序，单击各个按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 题目要求统计字符串数组里面长度等于 5的字符串数量，可以使用循环变量数组，依次判断每个元素的长度是否为 5，如果为 5则统计变量加 1，循环结束后得到统计结果 ，最后显示在标签里面。 第一个 “?”处是补充函数返回值，在 GetWords函数中变量 m在每次检测到单词后增加 1，可知 m保存了单词数量统计，因此函数的返回值为 m；第二个 “?”处是补充函数的入参，根据题目要求在这里统计文本框内容里面的单词数量。
