1、国家二级 VB机试（上机操作）模拟试卷 290及答案与解析 一、基本操作题 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；一个标签，其名称为 Label1；一个计时器，其名称为 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机试（上机操作）模拟试卷 290答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，在窗体
7、中加入两个文本框并设置它们的相关属性，属性及其值如表 456所示。步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click()Text1 Visible=FalseText2 Visible=TrueEnd SubPrivate Sub Form_DblClick()Text1 Visible=TrueText2 Visible=FalseEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建 “标准 EXE”丁程，往窗体 Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表457所示。 步骤 2
8、：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Form_Click()HS1 Value=Val(Text1 Text)End Sub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：要在程序运行时实现题目所要求的功能，只需在窗体的Click事件过程中用代码设置文本框 1的 Visible属性值为 False，文本框 2的Visible属性为 True：在窗体的 DblClick事件过程中用代码设置文本框 1的Visible属性值为 True，文本框 2的 Visible属性为 False。 第 2小题：要在程序运行时，单击窗体就能将滚动条的滑块位置
9、定位到文本框中输入的值，只需要编写窗体的单击事件，令滚动条的 Value属性值等于文本框的Text属性值。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Arr(k) 0Then pos=pos+Arr(k) neg=neg+Arr(k) 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。
10、 参考代码： Cornmand1单击事件中改错 Timer1 Enabled=True Command2单击事件中改错 Timer Enabled=FalSe Timer1单击事件中改错 If Label1 FontSize 100Then Label1 Font； SiZe=Label1 FontSize*1 步骤 3：按要求将文件保存至考生文件夹中。 【试题解 析】 第 1小题：在本题中需要分别计算数组中正数和负数之和，只需要一次循环遍历数组即可完成。在循环中依次取出数组元素判断其为正数还是负数，若为正数则将其累加到变量 pos中，否则累加到变量 neg中，循环结束后即可求出正数和以及负数
11、和。 第 2小题：可借助计时器来完成有规律性时间间隔执行的任务。在本题中两个命令按钮分别用于启动和停止计时器，实际上就是令计时器的 Enabled属性为 True或 False。当单击 “开始 ”或者 “继续 ”按钮的时候，令计时器启动；当单击 “停止 ”按钮的时候，计时器不可用。 在计时器的 Timer事 件中，要依次增大 Label1的 FontSize属性，同时还要加以判断是否超过了 100，若其超过 100，则将该属性设置为 8。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正
12、确的内容。 参考代码： Line Input#1， str1 Text1 Text=Str1 步骤 2：按指定位置编写 “统计 ”按钮的单击事件过程。 参考代码： Prirate Sub Command2_Click() Dim i As Integer intR=0： intT=0： intD=0 For i=1To Len(Str1) If Mid(str1， i， 1)： “R“Or Mid(stz1， i， 1)=“r“Then intR=intR+1 End If If Mid(str1， i， 1)=“T“Or Mid(str1， i， 1)=“t“Then intT=intT+1
13、 End Tf Tf Mid(str1， i， 1)=“D“Or Mid(str1， i， 1)=“d“Then intD=intD+1 End If Next Text2 Text=intR&“ “&intT&“ “ &intD End Sub 步骤 3：按 F5键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 根据题同源程序，要使单击 “显示 ”按钮时，从文件 in5 txt中读取文本，并显示在文本框 Text1中，需要首先以 Input方式打开文件，然后使用LineInput#浯句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的 Text属性。 要在单击 “统计 ”按钮时，统计字 母 “R”、 “T”、 “D”的出现次数，可在 “统计 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出 str1中的每个字符进行判断，若其为对应宁符，则对应的计数器增加 1。循环结束时，三个计数器变量中的值就是该字符出现的次数。
