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单击 按钮运行程序，并按要求保存。
