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:按要求将文件保存在考生文件夹中。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1