1、VB机试模拟试卷 111及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为： Form1的窗体上画一个图片框控件 PictureBox，名称为 Picl；再画两个命令按钮，名称分别为 Commandl和 Command2、标题分别为 “删除 ”和 “添加 ”。请编写适当的事件过程，使得在运行时，如果单击 “删除 ”按钮，则图片框消失，而如果单击 “添加 ”按钮，则图片框显示出来，如图 20一 1和图 20一 2所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sil frm。 (2)在窗体上画一个文本框，名称为 Text1，一
2、个标签，名称为 Labell。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在 Textl中每输入一个字符，则显示一个 “*”，同时在 Labell中显示输入的内容，如图 203所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在名称为 Form1的窗体上建立两个主菜单，其标题分别为 “文件 ”和 “帮助 ”，名称分别为 vbFile和 vbHelp， “文件 ”菜单下有三个子菜单项，标题分别为 “新建 ”、“打开 ”和 “存盘 ”，名称分别为 vbNew、 v
3、bOpen和 vbSave。要求程序运行后，如果选中 “文件 ”下的某个菜单项，则通过 MsgBox对话框显示该菜单项的标题，如图474所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3 frm，工程文件名为 sj3 vbp。 (2)在考生文件夹中有一个工程文件 sj4 vbp，相应的窗体文件为 sj4 frm。在名为 Form1的窗体上有一个命令按钮 (名称为 Cmdl，标题为“求和 ”)，其功能是产生 30个 0 1000的随机整数，放入一个数组中，然后输出它们的和。程序运行后，单击命令按钮，即可求出其和，并在窗体上显示出来，如图475所示。本程序不完整，请补充完整，并能正确
4、运行。 注意：去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，其窗体上有两个文本框，名称分别为Textl和 Text2， Text2可以多行显示；有一个名称为 Commonl的通用对话框；有 3个命令按钮，名称分别为 Commandl、 Command2和 Command3，标题分别为 “打开文件 ”、 “删除 ”和 “保存 ”。程序运行时窗体界面如图 265所示。 命令按钮的功能是：单击 “打开文件 ”按钮
5、，弹出 “打开文件 ”对话框，默认打开文件的类型为 “TeXt Fites(* txt)”。选择考生文件夹下的 in5 txt文件后，该文件中的内容显示在 Textl中；单击 “删除 ”按钮，程序将把 Textl中的所有与 Text2中相同的字符串删除，并将结果显示在 Textl中；单击 “保存 ”按钮，把 Textl中的内容存入考生文件夹下的out5 txt文件中。在窗体中已经给出了部分程序。 注意：请去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。编写 “删除 ”按钮的 Click事件过程，最后把修改后的文件按原文件名存盘。考生
6、不得修改已有的程序和控件的属性。必须对考生文件夹下的 in5 txt文件进行转换，并把转换结果通过 “保存 按钮存入考生文件夹下的 out5 txt文件中，否则无成绩。 VB机试模拟试卷 111答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)命令按钮的标题由 Caption属性设置，单击命令按钮触发其Click事件；图片框的可见性由 Visible属性设置。当 Visible属性为 True时，控件在运行时可见；当 Visible属性为 False时，控件在运行时不可见。 根据题意，新建 “标准 EXE”工程，将一个 PictureBox控件和两个命令按钮添加到窗体中，图片控件
7、的名称为 Picl，命令按钮的名称分别为 Commandl和 Command2， Caption分别为 “删除 ”和 “添加 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Piel Visible=False将 Picl隐藏 End Sub Private Sub Command2_Click() Picl Visible=True将 Picl显示出来 End Sub 单击 按钮运行程序，并按要求保存。 (2)文本框的内容由其 Text属性设置。文本框的 PasswordChar属性可用于 r1令输入，在默认状态下，该属性被没
8、置为空字符串 (不是空格 )。题目要求在 Textl中输入字符的同时在 Labell中显示 Textl中输入的 内容，这要用到文本框的 Change事件。当用户向文本框中输入新信息，或当程序把 Text属性设置为新值从而改变文本框的 Text属性时，将触发其 Change事件。 根据题意，新建 “标准 EXE”工程，将一个标签和一个文本框控件添加到窗体中，将标签的名称设为Labell、 Caption属性为空，文本框的名称为 Textl、 Caption属性为空。双击 Textl进入代码编写窗口，编写如下代码： Private Sub Textl_Change() Labell Caption
9、=Textl Text End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查菜单编辑器的使用。在 Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其 Click事件。 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer告诉用户单击哪一个按钮。 语法： MsgBox(promptbuttons， title， helpfile， context) MsgBox函数的语法具有以下几个命名参数： prompt：必需参数；字符串表达式，作为显 示在对话框中的消息。 buttons：可选
10、参数；数值表达式是值的总和，指定显示按钮的数目及形式。 title：可选参数；在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 helpfile：可选参数；字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 context：可选参数；数值表达式，通过帮助文件的作者指定给适当的帮助主题的上下文编号。 建立菜单项；程序中用到的菜单项及其属性见下表： 为各个菜单项编写事件处理程序。参考代码如下： Private Sub vbNew_Click()MsgBox“新建 “End SubPrivate Sub vbOpen_Click()MsgBox“打开
11、“ End SubPrivate Sub v bSave Click()MsgBox“保存 “End Sub 调试并运行程序。 按题目要求存盘。 (2) 打开题目所给工程文件。 将注释语句改为：arrN(i)=Int(Rnd*1000)Min=arrN(1)Sum=arrN(i)+Sum 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将两个 Text控件、 3个 Command控件和一个CommonDialog控件添加到窗体上， Text的名称分别为 Textl和 Text2、 Text属性为空， Command的名称分别为 Commandl、 Comma
12、nd2和 Command3， Caption属性分别为 “打开文件 ”、 “删除，和 “保存 ”，其中 CommonDialog控件需要选择 “工程 ”“ 部件 命令，或在左侧工箱中单击鼠标右键，选择 “部件 ”菜单，打开 “部件，对话框，将 Microsoft Common Dialog Control 6 0前面的复选按钮钩上，单击 “确定 ”按钮，则添加成功，再同其他控件一样添加到窗体上，其名称为Commonl。双击 Commandl命令按钮，编写如下代码： Dim str As String Private Sub Commandl_Click() Dim tmp As String
13、str=“ Commonl DialogTitle=“打开 “ 设置CommonDialog对话框标题 Commonl InitDir=“ “设置起始目录 Commonl Filter=“Text Files(* txt)|* txt“ 设置选取的文 件类型 Commonl FileName=“ 文件名为空 Commonl ShowOpen打开 CommonDialog If Commonl FileName “Then Open Commonl FileName For Input As#1 如果文件存在则进行读取 While EOF(1)=False Input#1， tmp判断是否读取完
14、成 str=str+tmp将读取的字符串放入 str Wend End If Close#1 Textl Text=str在 Textl中显示读取的字符串 End Sub Private Sub Command2_Click() Dim tmp As String Dim tel As String Dim i As Integer rel=“ For i=1 To Len(str)-Len(Text2 Text) tmp=Mid(str i，Len(Text2 Text) 读取其中的字符串 If Text2 Text=tmp Then如果该段字符串与Text2输入的相同 tmp=“ 则将该段置为 “ rel=rel+tmp i=i+Len(Text2 Text)-1 并向后移动 Text2的长度减 1位 Else rel=rel+Mid(tmp， 1， 1) End If Next i Textl Text=tel在 Textl中显示修改后的字符串 End Sub Private Sub Command3_Click() Open“App Path& out5 txt“For Output As#1 Print#1，Textl Text将修改后的字符串写入文件中 Close#1 End Sub 单击 按钮运行程序，并按要求保存。
