1、国家二级 VB机试（上机操作）模拟试卷 242及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Shapel的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色 (颜色值为 &HOOOOFF00&或 &HFF00&)； 窗体的标题为 “圆角矩形 ”。 运行后的窗体如图 2 153所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sitl vbp，窗体文 件名为 sjtl frm。 (2)在考生文件夹下有一个工程文件 s
2、jt2 vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Text1中的通话时间计算通话费，并将其显示在 Text2中。程序运行时，单击 “通话开始 ”按钮，则在 Text1中累加通话时间 (每秒加 1)，单击“通话结束 ”按钮，则停止通话时间的累加；单击 “计算通话费 ”按钮，则调用过程subl。 要求： 在窗体上画一个计时器 (如图 2-154所示 )，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事 件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费 ”按钮的事件过程中只允许调用过程 sub
3、1。不得修改已经存在的内容和控件属性，最后把文件按原文件名存平盘。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 20个整数读入数组 a中，同时显示在Text1文本框中； 单击 “变换 ”按钮，则数组 a中元素的位置自动对调 (即第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数 组元素对调 ) ，并将位置调整后的数组显示在文本框 Text2中。 在窗体文件中已经给出了全部控件 (如图 2 190所示 )，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改
4、窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行 “变换 ”操作，且必须用窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个标题分别为 “读数据 ”和 “统计 ”的命令按钮：两个名称分别为 Text1和 Text2、初始值为空的文本框，如图 2 191所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空格 )显示在 Text1文本框中： 在 Text1文本框中选中内容后，单击 “统计 ”按钮，则自动统计选中文本中从未出现过的字母
5、(统计过程中不区分大小写 )，并将这些字母以大写形式显示在 Text2文本框内。 请将 “统计 ”按钮的 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合应用 题 3 在考生文件夹下有一个工程文件 sjt5 vbp， 相应的窗体文件为 sit5 frm，此外还有一个名为 datain txt的文本文件，其内容如下： 3243765828 1298573 1425364758697 1324354657687980593 程序运行后单击窗体，将把义件 damin txt中的数
6、据输入到二维数纽 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，并输出矩阵右上左下对角线上的数据，如图 2 225所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内 容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 242答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 83在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。
7、 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt2 vbp，在窗体中画一个名为 Timed， Interval属性为 1000， Enabled属性为 False的计时器。 步骤 2： 打开代码编辑窗口，编写三个命令按钮的 Click事件过程以及计时器的Timer事件过程。 参考代码： Private Sub CommandlClick() Timerl Enabled=True End Sub Private Sub Command2一 C1ick() Timerl Enabled=False End Sub Private Sub Command3一 Click() Subl
8、 End Sub Private Sub TimerlTimer() Textl=Textl+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp 步骤 2：打开代码编辑窗口中编写 “变换 ”按钮的单击事件过程。 参考代码： Private Sub Command2一 Click() -考生编写 For i=1 To 10 temp=a(i) a(i)=a(20一 i+1) a(20一 i+1)=temp Next i 以下程序段将已变换的数组元素显示在 Text2 文
9、本框中 For k=1 To 20 Text2=Text2+Str(a(k)+Space(2) Next k End Sub 步骤 3：按 键键运行程序，先单击 “读数据 ”按钮，然后单击 “变换 ”按钮。 步骤 4：单击窗体右上们的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，存代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If s1=0 Then For i=1 To S1 a(n)=a(n)+1 For i=1 To 26 步骤 2：按要求将文件保存争考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sit5 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Dim Mat (M， N) Open App.Path ” ff ”in5 txt”For Input As#l Input#1， Mat(i， J) If i+j=6 Then 步骤 3：按要求将文件保存在考生文件夹中。
