1、国家二级 VB机试（上机操作）模拟试卷 388及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，内容分别为“文本框 1”和“文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则 Text1隐藏，Text2 显示，如图 388(a)所示；如果双击窗体，则 Text1显示，Text2 隐藏，如图 388(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，
2、工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HS1，SmallChange 属性为 4，LargeChange 属性为 10，Min 属性为 0，Max 属性为 200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值(0200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 389所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sjt3frm，在
3、窗体上有一个命令按钮(名称为 Command1，标题为“计算并输出”)和两个文本框(名称分别为 Text1和 Text2)，如图 390所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4vbp，相应的窗体文件为 sjt4frm。 在窗体上有两个命令按钮，其名称分别为 Com
4、mand1、Command2；一个标签，其名称为 Labe11；一个计时器，其名称为 Timer1，如图 391(a)所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔 100毫秒增大 01 倍(即变为原来的 11 倍)，如图 391(b)所示，字体大小超过 100后，自动缩小为 8：如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，
5、相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Command1、Command2 和 Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1中，如图 392所示。单击“统计”按钮，则统计 Text1中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 Text2中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。 （分数：2.00）_国家二级
6、 VB机试（上机操作）模拟试卷 388答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，内容分别为“文本框 1”和“文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则 Text1隐藏，Text2 显示，如图 388(a)所示；如果双击窗体，则 Text1显示，Text2 隐藏，如图 388(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名
7、为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HS1，SmallChange 属性为 4，LargeChange 属性为 10，Min 属性为 0，Max 属性为 200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值(0200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 389所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体中加入两个文本框并设置它们的相关属性，属性及其值如表 45
8、6所示。 步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click() Text1VisibleFalse Text2VisibleTrue End Sub Private Sub Form DblClick() Text1VisibleTrue Text2VisibleFalSe End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建“标准 EXE”工程，往窗体 Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表 457所示。 )解析：二、简单应用题(总题数：1，分数：2.00)
9、2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sjt3frm，在窗体上有一个命令按钮(名称为 Command1，标题为“计算并输出”)和两个文本框(名称分别为 Text1和 Text2)，如图 390所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sj
10、t4vbp，相应的窗体文件为 sjt4frm。 在窗体上有两个命令按钮，其名称分别为 Command1、Command2；一个标签，其名称为 Labe11；一个计时器，其名称为 Timer1，如图 391(a)所示。程序运行后，如果单击“开始”命令按钮，则该按钮变为禁用，而标题变为“继续”，同时标签中的字体每隔 100毫秒增大 01 倍(即变为原来的 11 倍)，如图 391(b)所示，字体大小超过 100后，自动缩小为 8：如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签中的字体停止变化；再次单击“继续”命令按钮后，标签中的字体继续变化。 （分数：2.00）_正
11、确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： If Arr(k)0 Then posposArr(k) negnegArr(k) 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjr4vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Command1 单击事件中改错 Timer1EnabledTrue Command2 单击事件中改错 Timer1
12、EnabledFalse Timer1 单击事件中改错 If Labe11FontSize100 Then Labe11FontSizeLabe11FontSize*11 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，相应的窗体文件为 sjt5frm。窗体上三个命令按钮的名称分别是 Command1、Command2 和 Command3，标题分别是“显示”、“统计”和“保存”。运行程序时，单击“显示”按钮，从文件 in5txt 中读取文本，并显示在文本框 Text1中，如图 392所示。单击“统
13、计”按钮，则统计 Text1中字母 R、T、D(不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、intT、intD 中，同时显示在文本框 Text2中(显示格式不限)。单击“保存”按钮，可将intR、intT、intD 中的数据保存到考生文件夹下 out5txt 文件中。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Line Input #1，str1 Text1TextStr1 步骤 2：按指定位置编写“统计”按钮的单击事件过程。
14、参考代码： Private Sub Command2_Click() Dim i As Integer intR0：intT0：intD0 For i1 To Len(Str1) If Mid(strl，i，1)“R“Or Mid _(str1，i，1)“r“Then intRintR1 End If If Mid(strl，i，1)“T“Or Mid (str1，i，1)“t“Then intTintT1 End If If Mid(strl，i，1)“D“Or Mid _(strl，i，1)“d“Then intDintD1 End If Next Text2TextintR“ “intT&“_“& intD End Sub 步骤 3：按F5键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最后单击“保存”按钮。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
