1、VB机试模拟试卷 130及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “列表框练习 ”的窗体上画一个名称为 Listl的列表框，表项内容依次输入 xxx、 ddd、 mmnl和 aaa，且以宋体 14号字显示表项内容，如图 1-19l(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图 1-191(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl frm，工程文件名为 sjtl vbp。(2)在名称为 Forml的窗体上，画一个
2、名称为 Labell的标签，其标题为 “计算机等级考试 ”，字体为宋体，字号为 12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为 Commandl、Command2，标题分别为 “缩小 ”和 “还原 ”的命令按钮 (如图 1-192所示 )。要求：编写适当的事件过程，使得单击 “缩小 ”按钮， Labell中所显示的标题内容自动减小两个字号；单击 “还原 ”按钮， Labell所显示的标题内容的大小自动恢复到 12号。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。二、简
3、单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sjt3 vbp，其中的窗体如图 1-46所示。程序刚运行时，会生成一个有 10个元素的整型数组。若选中 “查找最大值 ”(或 “查找最小值 ”)单选按钮，再单击 “查找 ”按钮，则找出数组中的最大值 (或最小值 )，并显示在标签Label2中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名 存盘。(2)在考生文件夹中有一个工程文件 sjt4 vbp。窗体上已有控件，如图 1-47所示。请在属性窗口中将 Listl设置为可以多项选择 (允许使用Shift键或
4、Ctrl键进行选择 )列表项。要求：双击 Listl中的某一项时，该项目被添加到 List2中，同时在 Listl中清除该项目。若单击 “”按钮， Listl中所有的项目显示在 List2中 (List2中已有项目不变 )， Listl中的内容不变。要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改程序的其他部分和控件属 性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在名称为 Forml的窗体上画一个文本框，名称为 Textl，允许多行显示；再画三个命令按钮，名称分别为 Cl、 C2、 C3，标题分别为 “输入 ”、 “转换
5、 ”、 “存盘 ”(如图1-104所示 )。请编写适当的事件过程，使得在运行时，单击 “输入 ”按钮，则从考生文件夹中读入 in5僦文件 (文件中只有字母和空格 )，放入 Textl中；单击 “转换 ”按钮，则把 Textl中的所有小写字母转换为大写字母；单击 “存盘 ”按钮，则把 Textl中的内容存入 out5 txt文件中。注意：考生必须把转换后的内容用 “存盘 ”按钮存入 out5 txt文件，否则无成绩。考生的工程文件以文件名 sjt5 vbp存盘，窗体文件以文件名 sjt5 frm存盘。 VB机试模拟试卷 130答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题
6、【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-109在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-110在窗体中画出控件并设置其相 关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。 参考代码： Private Sub Command1_Click() Labell FontSize=Labell FontSize-2 End Sub Private Sub Command2_Click() Labell FontSize=12 End Su
7、b 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 Sorted属性用于设置列表框控件 (ListBox)或者组合框控件的列表项是否按照字母顺序升序排列。 本题只需新建窗体和控件，然后设置相关属性即可。 第 2小题 程序运行时要改变标签的标题的字体大小，可通过修改其 FontSize属性值来实现。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl Value=True Then If
8、a(i)=x Then x=a(i) End If ElseIf a(i)x则将 a(i)的值放入 x。以此类推选中最小值按钮时的处理过程与之类似。 第 2小题 实现本题从列表框 Listl到 List2的移出功能，其实就是利用列表框的 Addltem方法和 Removeltem方法添加或删除列表框中的项目。由题中源代码可知，当双击列表框 Listl中的某项时，则调用 Moveltem过程 (参数应为控件 Listl和 List2)将列表框 Listl中当前项的内容 (索引号为 Listlndex)用 Addltem方法添加到列表框List2中，同时用 Removeltem方法从列表框 Lis
9、tl中删 除该项。当单击 “”按钮时，则调用 MoveAll过程通过 For循环 (循环变量终值为 List! ListCount 1)将列表框 Listl中的各项逐一添加到列表框 List2中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表 2-58在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： Private Sub Cl_Click() Open“in5 txt“For Input As#1 Input#1， a$ Textl Text=a$ Close#1 End Sub Pr
10、ivate Sub C2_Click() aS=Textl Text b$=“ n=Len(aS) For i=1 To n b$=b$+UCase$(Mid$(aS， i， 1) Next Textl Text=b$ End Sub Private Sub C3_Click() Open”out5 txt”For Output As#1 Print#1， Textl Text Close#1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键键运行程序，先单击 “输入 ”按钮，接着单击 “转换 ”按钮，然后单击 “存盘 ”按钮保存转换后的数据。 【试题解析】 程序设计思路：在 “读数 ”按钮的单击事件过程中，用 Open语句以Input方式打开数据文件 in5 txt，并用 Input()函数读出所有字符后显示在文本框中；在 “转换 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出文本框中的字符并转换成大写并且重新拼接在一起。 在 “保存 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件out5 txt，并通过 For循环用 Print#方法逐一将数组中的元素存入该文件。
