1、VB机试模拟试卷 80及答案与解析 一、基本操作题（ 30分） 1 (1)在 Forml的窗体上画一个名称为 I abell的标签，然后建立一个主菜单，标题为 “命令 ”，名称为 Com，该菜单有两个子菜单，其标题分别为 “输出 ”和 “关闭 ”，其名称分别为 Pri和 Close。编写适当的事件过程，使程序运行后，如果单击 “命令 ”菜单中的 “输出 ”命令，则在标签中显示 “模拟考试 ”；如果单击 “关闭 ”命令，则结束程序运行。程序运行时，单击 “输出 ”命令的效果如图 40-1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl Inn。 (2
2、)在窗体上画一个列表框，名称为 Listl，通过 “属性 ”窗口向列表框中添加 5个项目，分别为 “足球 ”、 “篮球 ”、 “排球 ”、 “乒乓球 ”和 “羽毛球 ”，单击列表框中的一项，则该项就从列表框中删除。程序的运行情况如图 40-2和图 40-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在窗口中有一个 Text文本框控件，名称为 Textl；一个 Label标签；名称为Labell；一个命令按钮，名称为
3、 Commandl；标题为 “读入文件 ”。要求程序运行后，单击 Commandl将 in txt的内容显示到 Textl中，并统计 Textl中有多少个字符，将结果显示在 Labell中。程序运行时的窗体界面如图 313所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4 vbp，相应的窗体文件名为 sj4 frm，求数组的中间值。程序运行后，单击 “读入 ”按钮，通过输入对话框输入 5个整数，然后单击 “取中间值 ”命令按钮，即可求出数组的中间值
4、，并在名称为 Labell的标签上显示出来，如图 314所示。请把程序补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，窗体上有一个文本框，名称为Textl，可以多行显示。 还有三个命令按钮，名称分别为 Commandl、 Command2和Command3，标题分别为 “读取数据 ”、 “显示并保存奇数 ”和 “显示并保存偶数 ”。 “读取数据 ”按钮的功能是把考生文件夹下的 in5 dat文
5、件中的 50个整数读到数组中，并在 Textl中显示出来； “显示并保存奇数 ”和 “显示并保存偶数 ”按钮的功能是把 50个数按要求保存到考生文件夹下的 out51 dat和 out52 dat文件中。单击 “读取数据 ”命令按钮后，程序运行时的窗体界面如图 525所示。注意：在窗体中已经给出了全部控件和部分程序，要求阅读程 序并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 80答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建
6、“标准 EXE”工程，将一个标签添加到窗体中，其名称设为 Labell、 Caption属性为空，按 “Ctrl+E”组台键打开菜单编辑器，在其中添加如下菜单项： 单击 “确定 ”按钮，完成菜单设计，在对应事件窗口中编写如下代码： Private Sub Close_Click() 单击关闭命令的处理函数 Unload Me End Sub Private Sub Pri_Click() 单击输出命令的处理函数 Labell Caption=“模拟考试 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查用 RemoveItem方法删除列表框中指定的项目。其格式为：列表框 R
7、emoveItem索引值。 RemoveItem方法从列表框中删除以 “索引值 ”为地址的项目，该方法每次只能删除一个项目。 Listlndex属性是已被选中的表项的位置。 如果没有选中任何项， ListIndex的值将设置为 -1。根据题意，新建“标准 EXE”工程，将一个 List控件添加到窗体中，其名称为 Listl，在其 List属性栏中输入元素，每输入一个后按 “Ctrl+enter”组合键换行输入下一个元素，当输入完成后，按回车键。双击 List进入代码编写窗口，编写如下代码： Private Sub Listl_Click() Listl Removehem Listl List
8、Indexremoveltem的参数是索引号 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将一个 Text控件，一个 Label控件和一个 Command控件添加到窗体上， Text的名称为 Textl、 Text属性为空、 MultiLine属性为 True、ScrollBar属性为 2， Label的名称为 Labell、 Caption属性为空， Command的名称为Commandl、 Caption属性为 “读人文件 ”，设置完成后双击 Commandl命令按钮，编写如下代码： Private Sub Comman
9、dl_Click() Dim str As String Dim tmp As String str=“ Open“App Path& in txt“For Input As #1 打开文件准备读取 While EOF(1)=False 判断是否读到文件尾 Input#1， tmp读取字符串 str=str+tmp将读取的字符串放人输出字符串中 Wend Close#1关闭文件 Textl Text=str 在 Textl中显示输出字符串 Labell Caption=Len(str) 将字符串长度在 Labell中显示出来 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，
10、在窗体上添加一个 Text控件和两个 Command控件， Text的名称为 Text1、 Text属性为空， Command的名称分别为 Commandl和 Command2， Caption属性分别为 “读入 ”和 “取中间值 ”。双击Commandl命令按钮，编写如下代码： Dim a(5)As Integer Private Sub Commandl_Click() Dim i As Integer Dim tmp As Integer Dim j As Integer Dim k As Integer For i=1 To 5 a(i)=Val(InputBox(“请输入 “) 通过
11、输入对话框获得 5个数放人数组中 Next i For i=1 To 5 降序排列 temp=a(i) For j=1 To i If a(j) 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个 Text控件和 3个 Command控件添加到窗体上，Text的名称为 Textl， Text属性为空、 MuhiLIne属性为 True,ScrollBar属性为 2，Command的名称分别为 Commandl、 Command2和 Command3、 Caption属性分别为 “读取数据 ”“显示并保存奇数 ”和 “显示并保存偶数 ”。双击 Comma
12、ndl命令按钮，编写如下代码： Dim a(50)As Integer Private Sub Commandl_Click() Dim i As Integer Dim str As String str=“ Open“App Path& in5 dat“For Input As#l For i=1 To 50利用 For循环将数据 读取到数组中 Input#1， a(i) str=str+CStr(a(i)+“ 将数组放到字符串中 Next i Close#1 Textl Text=str将结果显示在 Textl上 End Sub Private Sub Command2 Click()
13、Dim i As Integer Dim str As String str=“ For i=1 To 50 If a(i)Mod 2=1 Then str=str+CStr(a(i)+“ End If Next i Textl Text=str Open“App Path&out51 dat“For Output As#1 Print#1， str Close#1 End Sub Private Sub Command3_Click() Dim i As Integer Dim str As String str=“ For i=1 To 50利用 For循环遍历数组 If a(i)Mod 2=0 Then如果是偶数 str=str+CStr(a(i)+“ 则加入到字符串中 End If Next i Textl Text=str将得到的字符串显示在 Textl上 Open“App Path&out52 dat“For Output As#1打开文件准备写入 Print#1， str将结果写入文件中 Close#1 End Sub 单击 按钮运行程序，并按要求保存。
