1、国家二级 VB机试（上机操作）模拟试卷 388及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，内容分别为 “文本框 1”和 “文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏， Text2显示，如图 388(a)所示；如果双击窗体，则 Text1显示，Text2隐藏，如图 388(b)所示。注意：程序中不得使用变量。 存盘时必须存放在考生文件 夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm
2、。 (2)在名称为 Form1的窗体上画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HS1，SmallChange属性为 4， LargeChange属性为 10， Min属性为 0， Max属性为 200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值 (0 200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 389所示。注意：程序中不要使用变量；存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为
3、sjt3 frm，在窗体上有一个命令按钮 (名称为 Command1，标题为 “计算并输出 ”)和两个文本框 (名称分别为 Text1和 Text2)，如图 390所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行， 但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。 在窗体上
4、有两个命令按钮，其名称分别为 Command1、Command2；一个标签，其名称为 Labe11；一个计时器，其名称为 Timer1，如图391(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续 ”，同时标签中的字体每隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 391(b)所示， 字体大小超过 100后，自动缩小为 8：如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字体停止变化；再次单击 “继续 ”命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之
5、能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。窗体上三个命令按 钮的名称分别是 Command1、 Command2和 Command3，标题分别是“显示 ”、 “统计 ”和 “保存 ”。运行程序时，单击 “显示 ”按钮，从文件 in5 txt中读取文本，并显示在文本框 Text1中，如图 392所示。单击 “统计 ”按钮，则统计Text1中字母 R、 T、 D(不区分大小写 )出现的次
6、数，统计结果分别保存在窗体变量intR、 intT、 intD中，同时显示在文本框 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将 intR、 intT、 intD中的数据保存到考生文件夹下 out5 txt文件中。要求： 1)去掉“显示 ”按钮事件过程中的注释，把程序中的 ?改为能实现上述要求的正确内容。 2)编写统计字母 R、 T、 D出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 388答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准
7、EXE”工程，在窗体中加入两个文本框并设置它们的相关属性，属性及其值如表 456所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click() Text1 VisibleFalse Text2 Visible TrueEnd SubPrivate Sub Form DblClick() Text1 Visible True Text2 Visible FalSeEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建 “标准 EXE”工程，往窗体 Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属
8、性，属性 及其值如表 457所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click() HS1 ValueVal(Text1 Text)End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Arr(k) 0 Then pos pos Arr(k) neg neg Arr(k) 步骤 3：按要求将文件保存至考生文件夹中。 (2)【
9、操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjr4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Command1单击事件中改错 Timer1 Enabled True Command2单击事件中改错 Timer1 Enabled False Timer1单击事件中改错 If Labe11 FontSize 100 Then Labe11 FontSize Labe11 FontSize*1 1 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件
10、 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Line Input #1， str1 Text1 Text Str1 步骤 2：按指定位置编写 “统计 ”按钮的单击事件过程。参考代码： Private Sub Command2_Click() Dim i As Integer intR 0： intT 0： intD 0 For i 1 To Len(Str1) If Mid(strl， i， 1) “R“Or Mid _(str1， i， 1) “r“Then intR intR 1 End If If Mid(strl， i， 1) “T“Or Mid (str1， i， 1) “t“Then intT intT 1 End If If Mid(strl， i， 1) “D“Or Mid _(strl， i， 1) “d“Then intD intD 1 End If Next Text2 Text intR “ “ intT&“_“& intD End Sub 步骤 3：按 键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。
