[计算机类试卷]国家二级VB机试（上机操作）模拟试卷41及答案与解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 41及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画两个文本框，其名称分别为 Text1和 Text2，内容分别为 “文本框 1”和 “文本框 2”，编写适当的事件过程。程序运行后，如果单击窗体，则 Text1隐藏， Text2显示，如图 3-6(a)所示：如果双击窗体，则 Text1显示，Text2隐藏，如图 3-6(b)所示。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下 ，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 fr

2、m。 2 在名称为 Form1的窗体上画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HS1， SmallChange属性为 4， LargeChange属性为10， Min属性为 0， Max属性为 200，编写适当的事件过程。程序运行后，如果在文本框内输入一个数值 (0 200)，然后单击窗体，则把滚动条的滚动框移到相应的位置，如图 3-7所示。 注意：程序中不要使用变量：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sj

3、t3 frm，在窗体上有一个命令按钮 (名称为 Command1，标题为 “计算并输出 ”)和两个文本框 (名称分别为 Text1和 Text2)，如图 3-8所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。 该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改 程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。 在窗体上有两个

4、命令按钮，其名称分别为 Command1、 Command2；一个标签，其名称为 Label1；一个计时器，其名称为 Timer1，如图 3-9(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续 ”，同时标签中的字体每隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 3-9(b)所示，字体大小超 过100后，自动缩小为 8；如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字体停止变化；再次单击 “继续 ”命令按钮后，标签中的字体继续变化。 这个程序不完整，请仔细阅读已有内容，并把它补充完整，使之能

5、正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm。窗体上三个命令按钮的名称 分别是 Command1、 Command2和 Command3，标题分别是“显示 ”、 “统计 ”和 “保存 ”。运行程序时，单击 “显示 ”按钮，从文件 in5 txt中读取文本，并显示在文本框 Text1中，如图 3-10所示。单击 “统计 ”按钮，则统计 Text1中字母 R、 T、 D(不区分大小写 )出现的

6、次数，统计结果分别保存在窗体变量 intR、intT、 intD中，同时显示在文本框 Text2中 (显示格式不限 )。单击 “保存 ”按钮，可将intR、 intT、 intD中的数据保存到考生文件夹下 out5 txt文件中。 要求： 1)去掉“显 示 ”按钮事件过程中的注释，把程序中的 ?改为能实现上述要求的正确内容。 2)编写统计字母 R、 T、 D出现次数的事件过程。 3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 41答案与解析 一、基本操作题 1 【正确答案】 审题分析 要在程序运行时实现题目所要求的功能，

7、只需在窗体的Click事件过程中用代码设置文本框 1的 Visible属性值为 False，文本框 2的Visible属性为 True；在窗体的 DblClick事件过程中用代码设置 文本框 1的 Visible属性值为 Tme，文本框 2的 Visible属性为 False。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，在窗体中加入两个文本框并设置它们的相关属性，属性及其值如表4-3所示。 步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub Form_Click() Text1 Visible=False Text2 Visible=True End Su

8、b Private Sub Form_DblClick() Text1 Visible=True Text2 Visible=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 控件基本操作。 2 【正确答案】 审题分析 要在程序运行时，单击窗体就能将滚动条的滑块位置定位到文本框中输入的值，只需要编写窗体的单击事件，令滚动条的 Value属性值等于文本框的 Text属性值。 操作步骤 步骤 1：新建 “标准 EXE”工程，往窗体 Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表4-4所示。 步骤 2：打开代码编辑窗口，输入如下代码

9、： 参考代码： Private Sub Form_Click() HS1 Value=Val(Text1 Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 滚动条。 二、简单应用题 3 【正确答案】 审题分析 在本题中需要分别计算数组中正数和负数之和，只需要一次循环遍历数组即可完成。在循环中依次取出数组元素判断其为正数还是负数，若为正数则将其累加到变量 pos中，否则累加到变量 neg中，循环结束后即可求出正数和以及负数和。 操作步骤 步骤 l：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改

10、为正确的内容。 参考代码： If Arr(k) 0 Then pos=pos+Arr(k) neg=neg+Arr(k) 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作。 4 【正确答案】 审题分析 可借助计时器来完成有规律性时间间隔执行的任务。在本题中两个命令按钮分别用 于启动和停止计时器，实际上就是令计时器的 Enabled属性为 True或 False。当单击 “开始 ”或者 “继续 ”按钮的时候，令计时器启动；当单击 “停止 ”按钮的时候，计时器不可用。 在计时器的 Timer事件中，要依次增大 Label1的 FontSize属性，同时还要加以判断是否超过了 1

11、00，若其超过 100，则将该属性设置为 8。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Command1单击事件中改错 Timer1 Enabled=True Command2单击事件中改错 Timer1 Enabled=False Timer1单击事件中改错 If Label1 ForltSize 100 Then Label1 FolltSize=Label1 FontSize*1 1 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 计时器、字体与字形。 三、

12、综合应用题 5 【正确答案】 审题分析 根据题目源程序，要使单击 “显示 ”按钮时，从文件 in5 txt中读取文本，并显示在文本框 Text1中，需要首先以 Input方式打开文件，然后使用 Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的 Text属性。 要在单击 “统计 ”按钮时，统计字母 “R”、 “T”、 “D”的出现次数，可在 “统计 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出 str1中的每个字符进行判断，若其为对应字符，则对应的计数器增加 1。循环结束时，三个计数器变量中的值就是 该字符出现的次数。 操作

13、步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Line Input #1， str1 Text1 Text=str1 步骤 2：按指定位置编写 “统计 ”按钮的单击事件过程。 参考代码： PriVate Sub Command2_Click() Dim i As Inteaer intR=0： intT=0： intD=0 Fori=1 To Len(str1) If Mid(str1， i， 1)= “R“ Or Mid (str1， 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 End If If Mid(str1， i， 1)=“D“ Or Mid (str1， i， 1)=“d“ Then intD=intD+1 End If Next Text2 Text=intR “ “ intT “ “ int D End Sub 步骤 3：按 键运行程序，先单击 “显示 ”按钮，接着单击 “统计 ”按钮，最后单击 “保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 顺序文件、常用内部函数。