1、VB机试模拟试卷 108及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上放置两个列表框，名称分别为 Listl和 Ljst2。在 Listl中添加“Iteml”“Itern6” ，并设置 MultiSelect属性为 2(要求在控件属性中设置实现 )。再放置一个名称为 Commandl、标题为 “导出 ”的命令按钮。程序运行后，如果单击 “导出 ”按钮，将 Listl中选中的内容 (至少三项 )复制到 List2中，并将对应的项 从 Listl中删除。如果选择的项数少于 3项，
2、用消息框提示 “请选择至少 3项 ”，如图 631所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体上放置一个名称为 Textl的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图 632所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)请在窗体上面画两个文本框，其名称分别为 Textl和 Text2，文本框内容设置为 “模拟考试 ”和 “顺利通过 ”。然后画两个单选按钮，其名称分别为 Optionl
3、和Option2，标题分别为 “交换 ”和 “连接显示 ”，编写适当的事件程序。程序运行后，如果选中 “交换 ”单选按钮，则交换显示 Textl和 Text2中的内容；如果选中 “连接显示 ”单选按钮，则连接后的内容显示在 Textl中，初始状态不选中任何单选按钮。如图 123所示。存盘时，工程文件名为 Sj3 vbp，窗体文件名为 sj3 frm。 注意：在结束程序运行时，必须先选中一个单选按钮，并单击窗体。退出程序时必须通 过单击窗体右上角的关闭按钮，并将连接显示后的结果输出到考生文件夹下的out txt文件中，否则可能无成绩。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 s
4、j4 frm，在窗体上有两个命令按钮，名称分别为 Commandl与Command2、标题分别为 “读取文本 ”、 “保存 ”。另有一个文本框，文本框的名称为Text1， Text属性为空，可多行显示。要求在运行程序时，单击 “读取文本 ”按钮，可以读入考生文件夹下的 in4.txt并显示在文本框中；单击 “保存 ”按钮，可以把文本框中的数据存到考生文件夹下的另一个文 件 out4 txt中。程序运行时的窗体界面如图 124所示。注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（
5、 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，包含了所有控件和部分程序。当程序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认目录为考生目录，默认文件类型为 “文本文件 ”。选中 in5 txt文件 (如图 305所示 )，单击 “打开 ”按钮，则把文件中的内容读入并显示在文本框 (Textl)中；单击 “修改内容 ”按钮，则将Textl中的大写字母 “E”、 “N”、 “T改为小写，把小写字母 “e”、 “n”、 “t”改为大写；单击 “保存文件 ”按钮，则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认文件夹为考生文件夹，默认文件为 “out5
6、 txt”(如图 306所示 )，单击 “保存 ”按钮，则将 Textl中修改后的内容存到 out5 txt文件中。注意：窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符(即 “”号 )，把程序中的 “?”改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。考生不得修改已经存在的程序。必须把 Textl中修改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。 VB机试模拟试卷 108答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)向列表框中添加项目可以用 AddItem方法添加，也可以在属性窗口中进行。列表框的 Tex
7、t属性为最后一次选中的 表项的文本。 根据题意，新建“标准 EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为 Listl和 List2，在 Listl中 List属性中 添加 “Iteml”、 “Item2”、 “Item3”、“Item4”、 “Item5”和 “Item6”，命令按钮的名称为 Commandl、 Caption属性为 “导出 ”，在 Listl中选中的项，通过 for循环进行复制并删除。补充后的具体代码如下： Private Sub Commandl_Click() Dim i As Integer i=1 If Listl SelCount 按
8、钮运行程序，并按要求保存。 (2)在 Text控件中输入文本时会触发 Change事件，要将大写字母转换成小写字母要通过 Lcase函数来 实现。 根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、 Text属性为空，设置结束后双击 Textl，进入代码窗口，编写如下代码： Private Sub Textl_Change() Textl Text=LCase(Textl Text) Textl SelStart=Len(Textl Text) End Sub 单击按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意
9、，新建 “标准 EXE”工程，将两个文本框控件和两个单选按钮控件添加到窗体中，文本框的名称分别为 Textl和 Text2， Text属性分别为“模拟考试 ”和 “顺利通过 ”，单选按钮的名称分别为 Optionl和 Option2， Caption属性分别为 “交换 ”和 “连接显示 ”，设置完成后双击 Option进入代码窗口，编写如下代码： Private Sub Optionl Click() Dim str As String str=Textl Text Textl Text=Text2 Text Text2 Text=str End Sub Private Sub Option2
10、 Click() Textl Text=Textl Text+Text2 Text Open“App Path& out txt“For Output As#1 Print#1， Textl Text Close#1 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，命令按钮的名称为分别为 Commandl和 Command2， Caption属性分别为 “读取文本 ”和 “保存 ”。双击 Commandl进人代码窗口，编写如下代码： Dim rel AS String Private Sub Comman
11、dl_Click() Dim str As String str=“ rel=“ Textl Text=“ 初始化 Textl的文本 Open“App Path& in4 txt“For Input As#1 打开文件，进行读取 While EOF(1)=False判断文件是否读取完 Input#1， str读取文本 Textl Text=Textl Text+str在 Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Open”App Path& out4 txt”For Output As#2 Print#2，Text
12、l Text将文本保存到 sjout txt文件中 Close#2 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文件操作，通用对话框的 InitDir、 Filterlndex、 Filter和 Action，通用对话框的 ShowOpen方法， For循环语句， If判断选择语句，App Path相对路径， Mid()函数， Len()函数， Ucase()函数以及 Lease()函数。根据题意，编写如下代码： Option Explicit Private Sub Commandl_Click() Dim S As Stri
13、ng CommonDialogl Filter=“所有文件 |* *|文本文件 |* txt“ CommonDialogl FilterIndex=2 On Error GoTo openerr CommonDialogl InitDir=App Path CommonDialogl ShowOpen Open CommonDialogl FileName For Input As#1 Input#1， S Close#1 Textl Text=s openerr； End Sub Private Sub Command2 Click()考生需要编写的程序 Dim ch As String D
14、im S As String Dim n As Long s=Textl Text Textl Text=“ For n=1 To Len(s) ch=Mid(s， n， 1) If eh=“E“Or ch=“N“Or ch=“T“Then ch=LCase(ch) Elself ch=“e“Or ch=“n“Or ch=“t“Then ch=UCase(ch) End If Textl Text=Textl&ch Next n End Sub Private Sub Command3 Click() CommonDialogl Filter=“文本文件 |* txtl所有文件|* *“ CommonDialogl FilterIndex=1 On Error GoTo openerr CommonDialogl FileName=“out5 txt“ CommonDialogl InitDir=App Path CommonDialogl Action=2 Open CommonDialogl FileName For Output As#l Print#1， Textl Close#1 openerr： End Sub单击 按钮运行程序，并按要求保存。
