1、VB机试模拟试卷 60及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立两个命令按钮，名称分别为 Command1和 Commarld2、标题分别为 “显示 ”和 “删除 ”，一个名称为： Pic1的图片框。要求程序运行后，每单击一次 “显示 ”按钮，不使用任何变量而直接在图片框中显示 “Picture1”；如果单击“删除 ”按钮，则清除图片框中的文本，如图 61所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj1 frm，工程文件名为 sj1 vbp。 (2)在
2、名称为Form1的窗体上建立一个名称为 List1的列表框。在程序运行后，通过 Form_Load()事件过程加载窗体时，执行语句 List1 AddItem“Item1”和List1 AddItem“Item2”，每当单击列表项时，就将执行语句 List1 AddItem List1 Text一次。如图 62所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 si2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件 夹下有一个工程文件 sj3 vbp，在窗上设置 4个标签，名称分别为Labell、 Label2、 Label3、 Label4，标题
3、分别为 “工厂 A用煤量 ”、 “工厂 B用气量 ”、“共用煤 ”、 “共用气 ”；设置 4个文本框，名称分别为 Textl、 Text2、 Text3、Texl4，内容为空。另设一个命令按钮，名称为 Commandl，标题为 “计算 ”。要求考生编写程序，求解用煤用气问题。其中 Textl与 Text2中输入的数值为 A的用煤量和 B的用气量 Text3与 Text4用来显示共用煤量和共用气量。该问题描述为： A的用气量是 B的用 气量的 3倍， B的用煤量是 A的用煤量的 2倍，共用多少煤、多少气 ?程序运行时的窗体界面如图 533所示。 注意：请去掉程序中的注释符 “”，把程序中的 “?
4、”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有工程文件sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。在窗体 Form1中有两个文本框，名称分别为 Text1与 Text2。要求在 Textl中最多只能输入 5个字符，多余字符在 Text2中显示出来，如图 534所示。1 注意：请 有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp在名称为
5、 Forml的窗体上画一个文本框，名称为 Textl，允许多行显示；再域三个命令按钮，名称分别为 Commandl、Command2和 Command3，标题分别为 “读取文本 ”、 “大写 ”和 “保存 ”，运行界面如图 485所示。请编写适当的事件过程，使得在运行时，单击 “读取文本 ”按钮，则从考生文件夹中读入 sjin txt文件 (文件中只有字母和空格 )，放入 Textl中；单击“大写 ”按钮，则把 Textl中的所有小写字母转换为大写字母；单击 “保存 ”按钮，则把 Textl中的内容存人 sjout txt文件中。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内
6、容，考生必须把转换后的内容用 “保存 ”按钮存入 sjout txt文件，否则无成绩。考生的工程文件以文件名 sj5 vbp存盘，窗体文件以文件名 si5 frm存盘。 VB机试模拟试卷 60答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)命令 按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。打印信息用 Print方法，清除用 Cls方法。 根据题意，新建 “标准 EXE”工程，在窗体中添加一个图片框控件和两个命令按钮，将两个命令按钮的 Caption属性为 “显示 ”和 “删除 ”，然后双击 Commandl进入代码窗 VI，编写如下代码： Priva
7、te Sub Commandl Click()显示 “Picturel“ Picl Print“Picturel“ End Sub Private Sub Command2_Click() 清除 “Picturel“ Picl Cls End Sub单击 按钮运行程序，并按要求保存。 (2)本题主要考查列表框控件的事件和方法。列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码中进行。单击列表框中的项目触发 Click事件，题目要求使用 AddItem方法给列表框添加项目，所以应该将 Listl AddItem Listl Text语句写入列表框的 C
8、lick事件中。根据题意，新建 “标准 EXE”工程，将列表框控件添加到窗体上。然后设置其名称为 Listl，然后双击 Forml，进入代码编写窗口，输入以下代码： Private Sub Form_Load() List1 Addltem“Iteml“ List1 AddItem“Item2“ End Sub Private Sub Listl_Click() Listl Addltem Listl Text End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题方法相当于求解一个简单的二元一次方程题，或者说是求两个一元 一次方程题。即 x
9、+2x=a， 3y+y=b。 根据题意，将 4个文本框控件、 4个标签和一个命令按钮添加到窗体中，文本框的名称分别为 Textl、 Text2、 Text3和1ext4， Text属性都为空，标签的 Caption属性分别为 “工厂 A用煤量 ”“工厂 B用气量 ”“共用煤 ”“共用气 ”，命令按钮的名称为 Commandl、 Caption属性为 “计算 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Text3 Text=Val(Textl Text)+2*Val(Textl Text)将用煤量在 Text3中显示 Text
10、4 Text=3*Val(Text2 Text)+Val(Text2 Text)将用气量在 Text4中显示 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查文本框的事件和方法。 Change事件是当用户向文本框中输入新信息，或当程序把 Text属性设置为新值从而改变文本框的 Text属性时触发的； SetFocus是文本框中较常用的方法，其格式为： 对象 SetFocus。该方法可以把输入光标 (焦点 )移到指定的文本框中。LostFocus事件是当通过 Tab键切换或单击等操作使对象获得焦点时触发的事件；GotFocus实现当文本框具有输入焦点 (即处于活动状态 )时
11、，键盘上输入的每个字符都将在该文本框中显示出来。 本题功能描述为：每往 Textl中输入内容 (触发其Change事件 )，判断文本当前字符数是否超过 5个 (含 5个 )，若是，将焦点移到Text2。根据题意，将两个文本框控件添加到窗体中，文本框的名称分别为 Textl和Text2， Text属性都为空。双击 Text进入代码窗口，编写如下代码： Private Sub Textl_Change() Dim i As Integer Dim str As String If Len(Textl Text)=5 Then判断Textl中的字符串长度是否大于等于 5 Text2 SetFocus
12、如果是，则焦点在 Text2中 End If End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 文本框的 MuhiLine属性设置其是否能多行显示，为 T1。 ue表示能多行显示，为 False表示不能多行显示。 ScrollBars属性设置其是否有滚动条，值为0时表示没有滚动条，值为 1时表示有水平滚动条，值为 2时表示有垂直滚动条，值为 3时表示水平、垂直滚动条都有。 对文件的操作一般包括以下步骤：打开或建立文件；进行读写操作；关闭文件。要将字符串的小写字母转换成大写字母，可以通过 UCase函数实现。 UCase函数将小写字母转换成大写字母
13、，而大写或非字母字符均保持不变。其语法格式为： UCase(string)。省略 string为任何有效的字符串表达式。 根据题意，将一个文本框控件和 3个命令按钮添加到窗体中，文本框的名称为 Textl、 MultiLine属性为 True、 ScrollBar属性为 2，命令按钮的名称分别为 Commandl、 Command2和 Command3， Caption分别为 “读取文本 ”、 “大写 ”和“保存 ”，设置完成后双击 Commandl进入代码编写窗口，其中 Mid()函数是将字符串中的字符提取出来，以判断字符是不是小写字母， EOF()函数判断文件是否读取完成，补充后的具体代码
14、如下： Dim rel As String Private Sub Commandl_Click() Dim str As String str=“ Textl Text=“初始 化 Textl的文本 Open”App Pathg&sjin txt”For Input As#1 打开文件，进行读取 While EOF(1)=False断文件是否读取完 Input#1 str读取文本 Textl Text=Textl Text+str Wend Close#1 End Sub Private Sub Cornmand2_Click() Textl Text=Ucase(Textl Text) End Sub Private Sub Command3_Click() Open”App Path& sjout txt”For Output As#2 Print#2，Textl Text将 Textl中的文本存入文件中 Close#2 End Sub 单击 按钮运行程序，并按要求保存。
