1、VB机试模拟试卷 82及答案与解析 一、基本操作题( 30分) 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立两个名称分别为 Commandl和 Command2、标题为 “显示 ”和 “清除 ”的命令按钮,一个名称为 Textl、初始内容为空的文本框,程序运行时的窗体界面如图 521所示。要求程序运行后,单击 “显示 ”按钮,则在文本框中显示“模拟考试 ”,单击 “清除 ”按钮,则清空文本框中的文字。 注意:在程序中不能使用任何变量。保存时必须存放在考生文 件夹下,窗体文件名为 sjl frm,工程文件名为 s
2、jl vbp。 (2)在名称为 Forml的窗体上建立两个名称分别为 Commandl和Command2、标题分别为 “输入 ”和 “比较大小 ”的命令按钮,如图 522所示。要求程序运行后,单击 “输入 ”按钮,可通过输入对话框输入两个数,存人字符串变量 a和 b中 (a和 b定义为窗体变量 ),如果单击 “比较大小 ”按钮,则把两个数进行比较并在信息框中显示出来结果,在程序中不得使用任何其他变量。注意:保存时必须存放在考生文件夹下,窗体文件名为 sj2 frm,工程文件名为 sj2 vbp。 二、简单应用题( 40分) 2 (1)在考生文件夹中有工程文件 sj3 vbp及窗体文件 sj3
3、frm。在名为 Forml的窗体上有 3个 Label控件和两个命令按钮, Label控件均为提示信息。命令按钮名称分别为 Cmdl和 Cmd2,标题分别为 “Quit”和 “Begin”。程序运行后,单击 “Begin“按钮程序自动利用循环计算 1+1 2+1 3+1 10的结果,并把结果写入到考生文件夹中 out67 dat文件中。执行完毕, “Begin”按钮变成 “End”按钮,且无效 (变灰 ),如图 613所示。 注意:在有问号 “?”的地方填入正确内容,然后删除 “?”及所有注释符 “”,但不得修改其他部分。保存时不得改变文件名和文件夹。 (2)在考生文件夹中有一个工程文件 sj
4、4 vbp(相应的窗体文件名为 sj4 frm)。在名为 Forml的窗体上有 4个文本框,初始内容为空; 1个命令按钮,标题为 “求 Max”。其功能是通过调用过程 FindMax求数组的最大值。 请装入该文件。程序运行后,在 4个文本框中各输人一个整数,然后单击命令按钮,即可求出数组的最大值,并在窗体上显示出来,如图 614所示。本程序不完整,请补充完 整,并能正确运行 注意:去掉程序中的注释符 “”,把程序中的问号 “?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题( 30分) 3 在考生文件夹下有文件 in
5、5 txt,文件中有几行汉字。请在窗体 Forml上绘制一个文本框,名称为 Text 1,能显示多行;再绘制一个命令按钮,名称为Commandl,标题为 “保存 ”。并编写适当的事件过程,使得在加载窗体时,把in5 txt文件的内容显示在文本框中,然后在文本的最前面手工插入一行汉 字: “全国计算机等级考试 ”,如图 365所示。最后单击 “保存 ”按钮,可以把文本框中修改过的内容存到文件 out5 txt中。 注意:只能在最前面插入文字,不能修改原有文字。文件必须存放在考生文件夹中,以 sj5 vbp为文件名存储工程文件,以 sj5 fm为文件名存储窗体文件。 VB机试模拟试卷 82答案与解
6、析 一、基本操作题( 30分) 1 【正确答案】 (1)根据题意,新建 “标准 EXE”工程,在窗体上添加一个 Text控件和两个 Command控件, Text的名称为 Textl, Text属性为空, Command的名称分别为 Commandl和 Command2、 Caption属性分别为 “显示 ”和 “清除 ”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl Click() Textl Text=“模拟试题 “ 显示 “模拟试题 ” End Sub Private Sub Command2 Click() Textl Text=“ 清空 Te
7、xtl End Sub 单击 按钮运行程序,并按要求保存。 (2)根据题意,新建 “标准 EXE“工程,将两个 Command控件添加到窗体上, Command的名称分别为Commandl和 Conmand2, Caption属性分别为 “输入 ”和 “比较大小 ”。双击Commandl命令按钮,编写如下代码: Dim a As Integer Dim b As Integer Private Sub Commandl Click() a=Val(InputBox(“请输人第一个数 “) b=Val(InputBox(“请输入第二个数 “) End Sub Private Sub Comman
8、d2 Click() Cls If ab Then Print a; “; b Else If a 二、简单应用题( 40分) 2 【正确答案】 (1) 打开题目所给工程文件。 将注释语句改为: Open App Path&“ “&”out67 txt“For Output As#1 E=1 Write#1, E Cmdl Caption=“End“ Crodl Enahled=False 按要求保存文件即完成本题。 (2) 打开题目所给工程文件。 将注释语句改为: Start=LBound(a) Finish=UBound(a) Max=a(Start) If a(i)Max Then Ma
9、x=a(i) M=Find Max(art2() 按要求保存文件即完成本题。 三、综合应用题( 30分) 3 【正确答案】 根据题意,在窗体上添加一个文本框控件,其名称为 Textl、MultiLine属性为 True,一个命令按钮,其名称为 Commandl、标题为 “保存 ”。设置完成后,双击 Commandl命令按钮进入代码窗口,编写如下代码: Private Sub Form Load() Open“App Pathg& in5 txt“For Input As#1 Do While NOt EOF(1) Input#1 mystring Textl Text=Textl Text+mystring Loop Close#1 Textl Text=“全国计算机等级考试 “+Textl Text End Sub Private Sub Commandl_Click() Open App Path&“ out5 txt“For Output As#2 Print#2, Textl Text Close#2 End Sub单击 按钮运行程序,并按要求保存。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1