1、国家二级 VB机试（上机操作）模拟试卷 116及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上添加一个计时器控件，名称为 Timerl。请利用属性窗口设置适当属性，使得在运行时可以每隔 1秒，调用计时器的 Timer事件过程一次。另外，请把窗体的标题设置为 “题目 2”。设计阶段的窗体如图 3 16所示。注意：保存时必须存放在考生文件夹下，工程文件名为sitl vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体上画一个文本框，名称为 Text1，无初始内容；再画一个
2、图片框，名称为 P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 3-17所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm. 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm，在窗体上有一个命令按钮 (名称为 Commandl，标题为 “计算并输出 ”)和两个文本框 (名称分别为 Text1和 Text2)，如图 38所示。程序运行后，单击命令按钮，即可计算出数组 Arr中 10个数
3、的正数之和 pos与负数之和 neg，并分别在两个文本框中显示出来。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有两个命令按钮，其名称分别为 Command1、 Command2；一个标签，其名称为 Labell；一个计时器，其名称为 Timerl，如图 3-9(a)所示。程序运行后，如果单击 “开始 ”命令按钮，则该按钮变为禁用，而标题变为 “继续
4、 ”，同时标签中的字体每隔 100毫秒增大 0 1倍 (即变为原来的 1 1倍 )，如图 3-9(b)所示，字体大小超过 100后，自动缩小为 8；如果单击 “停止 ”命令按钮，则该按钮变为禁用， “继续 ”命令按钮变为有效，同时标签中的字体停止变化；再次单击 “继续 ”。命令按钮后，标签中的字体继续变化。这个程序不完整，请仔细阅读已有内容，并把它补 充完整，使之能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有一个工程文件 sjt5 vbp。其功能是产生并显示
5、一个数列的前 n项。数列产生的规律是：数列的前 2项是小于 10的正整数，将此 2数相乘，若乘积 国家二级 VB机试（上机操作）模拟试卷 116答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4-10在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4-11在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： PriVate Sub Text1Change() P1 Print Te
6、xtl TextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答 案】 第 1小题 在本题中需要分别计算数组中正数和负数之和，只需要一次循环遍历数组即可完成。在循环中依次取出数组元素判断其为正数还是负数，若为正数则将其累加到变量 pos中，否则累加到变量 neg中，循环结束后即可求出正数和以及负数和。 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Arr(k) 0 Then pos=pos+Arr(k) neg=neg+Arr(
7、k) 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 可借助计时器来完成有规律性时间间隔执行的任务。在本题中两个命令按钮分别用于启动和停止计时器，实际上就是令计时器的 Enabled属性为 True或 False。当单击 “开始 ”或者 “继续 ”按钮的时候，令计时器启动；当单击 “停止 ”按钮的时候，计时器不可用。在计时器的 Timer事件中，要依次增大 Labell的 FontSize属性，同时还要加以判断是否超过了 100，若其超过 100，则将该属性设置为 8。 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释
8、符们 “*”，将问号 “?”改为正确的内容。 参考代码： Commandl单击事件中改错 Timerl Enabled=True Comma nd2单击事件中改错 Timerl Enabled=False Timerl单击事件中改错 If Labell ForltSize100 Then Labell FontSize=Labell FontSize*1 1 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Text4=Text4 a “ ”&b a=b If k=n Thee b=d 步骤 2：按要求将文件保存至考生文件夹中。
