1、VB机试模拟试卷 56及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，其名称为 Textl，然后通过 “属性 ”窗口设置窗体和文本框的属性，实现如下功能： 在文本框中可以显示多行文本，显示水平和垂直滚动条，显示的初始信息为 “模拟试题 ”，显示的字体为三号、宋体、粗体、加下划线；如图 431所示。要求：不编写任何代码。存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个标签，其名称为
2、Labell，然后通过 “属性 ”窗口设置窗体和文本框的属性，实现如下功能：初始状态， Labell中不显示任何内容，程序运行时，双击窗口，则在Labell上显示 “双击窗口 ”，如果单击窗口，则在 Labell上显示 “单击窗口 ”，如图432所示。要求不使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为 sj2 frm。二、简单应用题（ 40分） 2 (1)在窗体上建立一个名称为 Textl的文本框，然后建立两个主菜单， 其标题分别为 “编程语言 ”和 “帮助 ”。名称分别为 vbLanguage和 vbHelp，其中 “编程语言 ”菜单包括 “C+”、
3、 “Basic”和 “JAVA”三个子菜单，名称分别为 vbLanguagel、VbLanguage2和 vbLanguage3。程序运行后，如果在 “编程语言 ”的下拉菜单中选择“C+”，则在文本框内显示 “指针 ”；如果选择 “Basic，则在文本框内显示 “对话框 ”；如果选择 “JAVA”，则在文本框内显示 “对象 ”。程序中不能使用任何变量，直接显示字符串。程序运行后，选择 “编程语言 ”的 “C+”选项， 则界面如图 463所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 sj3 Vbp。 (2)在考生文件夹中有文件 sj4 vbp及其窗体文件
4、 sj4 frm，该程序是不完整的。窗体上有一个名称为 Textl的文本框；两个复选框，名称分别为Check1和 Check2，标题分别为 “足球 ”和 “篮球 ”。要求程序运行后，如果只选中Checkl，单击窗体，则在文本框中显示 “我的爱好是足球 ”；如果只选中 Check2，然后单击窗体，则在文本框中显示 “我的爱好是篮球 ”；如果同时选中 Checkl和Check2，单击窗体，则在文本框中显示 “我的爱好是足球和篮球 ”；如果 Checkl和Check2都不选取，在单击窗体后，则在文本框中什么都不显示。如程序运行选中两项时，界面如图 464所示。注意：请在有 “?”的地方填入正确内容，
5、然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件夹和文件名。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有 3个 Label控件和 2个命令按钮，命令按钮的 名称为Commandl与 Command2，标题为 “读取 ”与 “保存并退出 ”。考生文件夹下的数据文件 in5.txt存放一些字符。要求程序运行时，按 “读取 ”按钮后，从考生文件夹下的in5 txt中读出数据并识别出其中的非字母元素，按 “保存并退出 ”按钮后，将非字母元素写入考生文件夹下的
6、out5 txt文件中 (以标准格式在一行中输出 )；执行完毕， “读取 ”按钮变成 “完成 ”，且无效 (变灰 )，单击 “保存并退出 ”按钮，程序结束，如图 295所示。 注意：请将程序代码补充完整，但不能修改其他部分。存盘时不得改变文件名和文件夹 ，相应的 txt文件也保存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 56答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个 Text控件添加到窗体上， Text的名称为 Text1、 Text属性为 “模拟试题 ”、 MuhiLine属性为 “True”、ScrotlBar的属性
7、为 “3”、 Font属性为 “三号 ”、 “宋体 ”、 “粗体 ”和 “加下划线 ”。单击按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个Label控件添加到窗体上， Label的名称为 Labell、 Caption属性为空。双击 Forml进入代码窗口，编写如下代码： Private Sub Form_Click() Labell Caption=“单击窗口 “ End Sub Private Sub Form_DblClick() Labell Caption=“双击窗口 “ End Sub 单击按钮运行程序，并按要求保存。 二、简单应用题（ 40分）
8、2 【正确答案】 (1)在 Visual Basic中，菜单也被看做控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为 1；文本框的内容由 Text属性设置。根据题意，按 “Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项：单击 “确定 ”按钮，完成菜单编辑。再将一个文本框控件添加到窗体中，将其名称设为 Textl，在代码窗口中编写如下代码： Private Sub vbLanguagel_Click(Index As Integer)C+选项 Textl Text=“指针 “ End Sub Private
9、 Sub vbLanguage2_Click(Index As Integer) Basic选项 Textl Text=“对话框 “ End Sub Private Sub vbLanguage3_Click(Index As Integer) JAVA选项 Textl Text=“对象 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)在 Visual Basic中，复选按钮的标题由 Caption属性设置， Value属性用来表示复选框的状态，复选框的 Value属性有 0 1或 2三种取值， 0表示未选中； 1表示选中该复选框； 2表示该复选框被禁止 (灰色 )。 根据题意，
10、将一个文本框控件和两个复选框添加到窗体中文本框控件的名称设为 Textl，复选框的名称分别设为Checkl和 Check2， Caption属性分别设为 “足球 ”和 “篮球 ”。双击复选框进入代码窗口补充后的具体代码如下： Private Sub Checkl Click() Form_Load End Sub Private Sub Check2 Click() Form_Load End Sub Private Sub Form Load() Dim str As String If Checkl Value=1 Or Check2 Value=1 Then str=“我的爱好是 “ I
11、f Checkl Value=l Then str=str+Checkl Caption End If If Check2 Value=1 Then If Checkl Value=1 Then str=str+“和 “+Check2 Caption Else str=str+Check2 Caption End If End If Else str=“ End If Textl Text=str End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文件的读入，根据一定的条件筛选后再输出到另一个文件中。其中用到了判断是否读到文件尾函数
12、EOF()、将字符转换成 ASCII码函数Ase()和求字符串长度函数 Len()。补充后的代码如下： Dim str As String Private Sub Commandl_Click() Dim tmp As String str=“ Open“App Path& in5 txt“For Input As#1 打开文件准备读取 While EOF(1)=False读取文件知道文件尾 Input#l， trap 将读取的文本放人 trap中 str=str+trap将 tmp放入字符串中 Wend Commandl Enabled=FalseCommandl不可用 Commandl C
13、aption=“完成 “ Commandl的 Caption属性变为完成 End Sub Private Sub Command2_Click() Dim rel As String Dim tmp As String Dim i As Integer rel=“ For i=1 To Len(str) 利用 for循环遍历字符串 tmp=Mid(str， i， 1) 逐个取出用来判断 If Asc(tmp)Asc(“z“)Then rel=rel+trap如果不是字母，则放人输出字符串中 End If Next i Open“App Path &out5 txt“For Output As#2 Print#2， rel将得到的字符串写入文件 Close#2 Unload Me End Sub 单击 按钮运行程序，并按要求保存。
