[计算机类试卷]VB机试模拟试卷156及答案与解析.doc

1、VB机试模拟试卷 156及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在Form1的窗体上画一个名称为 Text1的文本框，然后建立一个主菜单，标题为 “操作 ”，名称为 Op，该：耗单有两个子菜单，其标题分别为 “显示 ”和 “清除 ”，名称分别为 Dis和 Clear，编写适当的事件过程。程序运行后，如果单击 “操作 ”菜单中的“显示 ”命令，则在文本框显示 “等级考试 ”；如果单击 “清除 ”命令，则清除文本框中显示的内容。程序的运行情况如图 1-125所 示。注意：存盘时必须存放在考生文件夹下，工

2、程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在 Forml的窗体上画一个文本框，名称为 Text1， Text属性为空白。再画一个列表框，名称为 L1，通过属性窗口向列表框中添加 4个项目，分别为 “AAAA”、“BBBB”、 “CCCC”和 “DDDD”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图 1-126所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个

3、工程文件 sjt3 vbp。程序运行后，单击 “读入数据 ”按钮，可把考生文件夹下 in3 txt文件中的所有英文单词读入，并显示在 Textl文本框中；单击 “插入列表框 ”按钮，则按顺序把每个单词作为一项添加到 Listl列表框中 (如图 1-36所示 )。在 in3 txt文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为 正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体

4、上已经画出所有控件，如图 1-37所示。在运行时，如果单击 “开始 ”按钮，则窗体上的汽车图标每 0 1秒向右移动一次 (初始状态下不移动 )；如果单击 “停止 ”按钮，则停止移动。请完成以下工作： 设置适当控件的适当属性，使得汽车图标每0 1秒向右移动一次。而初始状态下不移动； 请去掉程序中的注释符，把程序中的 ?改为正确的内容； 为两个命令按钮编写适当的事件 过程。最后以原文件名存盘。注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有一个文本框，名称为Text

5、l，可以多行显示；有一个名称为 CDl的通用对话框；还有三个命令按钮，名称分别为 Cl、 C2、 C3，标题分别为 “打开文件 ”、 “转换 ”、 “存盘 ”，如图 1-80所示。命令按钮的功能是： “打开文件 ”：弹出打开文件对话框，默认打开文件的类型为 “文本文件 ”。选择考生文件夹下的 in5 txt文件后，该文件中的内容显示在Textl中； “转换 ”：把 Text1中的所有小写英文字母转换成大写； “存盘 ”：把 Textl中的内容存入考生文件夹下的 out5 dat文件中。在窗体中已经给出了部分程序，要求： 请去掉程序中的注释符，把程序中的 ?改为正确的内容。既不能修改程序中的其他

6、部分，也不能修改控件的属性。 编写 “转换 ”按钮的 Click事件过程。最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5 txt文件进行转换，并把转换结果通过单击 “存盘 ”按钮存入考生文件 夹下的 out5 dat文件中，否则无成绩。VB机试模拟试卷 156答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中画一个文本框，在属性设置窗口中将其 Name属性值设置为 Textl。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表

7、 2-68中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Dis_Click() Textl.rext=“等级考试 “ End Sub PriVate Sub Clea_Click() Textl Text=“ End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 Ll，在其 List属性中添加四个项目，依次为 “AAAA”、 “BBBB”、 “CCCC”和 “DDDD”。注意：每输入完一

8、项后按键换行再输入下一项。在窗体上再画出一个文本框，名称为 Textl， Text属性为空白。 步骤 2：打开代码编辑 窗口，编写列表框的 DblClick事件过程： 参考代码： PriVate Sub L1_DblClick() L1 AddItem Textl Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题需用菜单设计器建立菜单，并编写 “显示 ”和 “清除 ”菜单项的单击事件过程。 第 2小题 列表框控件 (ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可在程序运

9、行时使用Addltem方法加入。 双击列表框中的某个项目，将触发其 DblCliek事件。要实现双击列表框中的某一项，就把文本框中的内容加入列表框，只需在 DbIClick事件过程中编写添加项目的语句即可。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt3 vbp，打开代码 编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： st=st&ch c=Mid(st， k， 1) word=“ 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件夹中的本题工程

10、文件 sjt4 vbp，将计时器 Timerl的Enabled属性设置为 False， Interval属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为 正确的内容并编写两个命令按钮的单击事件过程。 参考代码： PriVate Sub C1_Click() Timerl Enabled=True End Sub PriVate Sub C2_Click() Timerl Enabled=False End Sub PriVate Sub Timerl_Timer() P1 Move P1 Left+20 End Sub 步骤 3：按要求将文件保存至

11、考生文件夹中。 【试题解析】 第 l小题 本题在 “读入数据 ”按钮的单击事件中，首先将 in3 txt文件以 Input方式打开，然后利用 Do循环依次读入文件中的每一个数据，在每一次循环中读入文件中的一个数据并连接至变量 st中，循环结束后 sl的值就是文件中所有单词连接而成的字符串。 在 “插入列表框 ”按钮的单击事件中，以空格为单词分隔依据找出每个单词，然后将单词插入列表框中，清空变量 word准备继续寻找下一个单词。 第 2小题 Move方法用于移动窗体或控件，其语法为：对象名 Move LeR,top,width,height。 计时器只在设计时可见，计时器是否启用由其 Enabl

12、ed属性设置，值可取 True或 False。启用后由 Interval属性设置间隔多长时间触发一次其 Timer事件，Interval属性的单位为毫秒，缺省值为 0，此时计时器不启用。 Timerl用于控制汽车行驶，每触发一次 Timerl的 Timer事件，汽车向右移动 20，即 P1 Move P1 Left+20。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： CDI FiiterIndex=2 Textl Text=a CDI

13、Action=2 步骤 2：按指定位置编写 “转换 ”按钮的单击事件过程。 参考代码： Private Sub C2_C1ick() Dim a As String， b As String， c As String， k As Integer， n As Integer a=Textl Text b=“ n=Asc(“a“)-Asc(“A“) For k=1 To Len(a) c=Mid$(a， k， 1) If C=“a“And C键运行程序，先单击 “打开文件 ”按钮， 接着单击 “转换 ”按钮，最后单击 “存盘 ”按钮。 【试题解析】 根据题目原程序，要使单击 “打开文件 ”按钮时，

14、弹出的 “打开 ”对话框中默认文件类型为 “文本文件 ”，需在 C1_Click事件过程中将 CDl的 Filterlndex属性值设置为 2。用 Open语句打开在 “打开 ”对话框中选中的文件应为：CDl FileName。文本框中显示的内容应为用 Input语句从文件中读出的内容，即变量 a。 在单击 “存盘 ”按钮时，要弹出 “另存为 ”对话框，需将 CDl的 Action属性值设置为 2。 要在单击 “转换 ”按钮时 ，把 Textl中的小写字母 “改为大写，可在 “转换 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出文本框 Textl中的每个字符放入一个变量 (如 c)中，假如取出的字符是小写字母，则用 Ucase函数将其转换为大写。最后将该变量中的字符用 “&”连入一个字符串变量 (如 b)中。循环结束时，将 b的值重新显示在 Textl中。