1、国家二级 VB机试（上机操作）模拟试卷 376及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1，标题为 “滚动条属性设置 ”的窗体上画 1个名称为 VScroll1的垂直滚动条，设置属性，使得滚动块在最上面时，其位置值为 10；滚动块在最下面时，其位置值为 30；窗体刚显示时，滚动块处在中间位置，如图 327所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为： Form1的窗体上，画 1个名称为 Labe11的标签，其标题为
2、“等级考试 ”，显示为宋体 10号字，且能根据标题内容自动调整标签的大小，并有凹陷效果，如图 328所示。再画 1个名称为 Timer1的计时器控件，通过属性窗口设置有关属性，使其不可用，时间间隔为1秒。 要求：编写适当的事件过程，使得程序运行时，单击 Labe11标签，则每隔 1秒， Labe11中所显示的内容在原有基础上增大 1个字号；单击窗体， Labe11中的内容停止增大。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹 下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)考生文件夹下有一个工程文件 sjt
3、3 vbp，其窗体上有 1个名称为 Text1的控件数组；一个标题为 ”排序 ”的命令按钮。程序运行时，在文本框数组中输入 8个整数，如图 329(a)所示；然后单击 “排序 ”按钮，则 8个整数按降序排序，如图 329(b)所示。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控 件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有工程文件 sjt4 vbp。其窗体界面如图 330所示，可以实现以下功能： “添加项目 ”按钮可以把在组合框编辑区中输入的新项目添加到组合
4、框列表中，但不能添加重复项目； “删除项目 ”按钮从列表中删除选中的项目； “添加爱好 ”按钮把组合框编辑区中的内容追加到下面的文本框原有内容之后； “清除爱好 ”按钮清除该文本框内容。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。注意：考生不得 修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有 2个标题分别是 “读数据 ”和 “统计 ”的命令按钮， 1个名称为 Text1的文本框， 2个标签控件，如图 331所示。 程序
5、功能如下： 1)单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容 (该文件中含有不超过 800个英文单词，单词之间用 1个空格隔开 )显示在 Text1文本框中。 2)单击 “统计 “按钮，则自动统计 Text1中所有 5字母单词的个数，并显示在右下角的 Labe11标签中。 “读数据 ”按钮的 Click事件过程已经给出， “统计 ”按钮的 Click事件过程不完整，函数GetWords的功能是从字符串 s中分离出每个单词，依次放入数组 words的数组元素中，返回值为单词的总数目。 要求： 1)请将程序中的注释符去掉，把 ?改为正确的内容； 2)补全 “统计 ”按钮 Cl
6、ick事件过程中的代码，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “统计 ”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 376答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体Form1中加入一个垂直滚动条。按表 418设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个标签和定时器。按表 419设置
7、其相关属性。步骤 2：在打开的代码编辑窗口中，编写标签、窗体的 Click事件代码和定时器 Timer事件代码。参考代码： Private Sub Form Click() Timer1 Enabled FalseEnd SubPrivate Sub Labe11 C1ick() Timer1 Enabled TrueEnd SubPrivate Sub Timer1 Timer()Labe11 FontSize Labe11 Fontsize 1End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹中的本题工
8、程文件 sjt3 vbp，在代码编辑窗口中，去 掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： k i For j i 1 To 7 If Val(Text1(j) Text) Val(Text1(k) Text)Then Text1(k) Text j 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Combol Text Combol List(k)Then Combol AddItem Combol Te
9、xt Combol RemoveItem Combol ListIndex Text1 Text Text1 Text “ “ Combol Text Text1 Text “ “ 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 GetWords m m GetWords(Text1 Text， ch) 考生编写的程序代码从这里开始 k 0 For i 1 To m If Len(ch(i) 5 Then k k 1 End If Next i Labe11 Caption k 考生编写的程序代码到这里结束 步骤 2：按 F5键运行程序，单击各个按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。
