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

《[计算机类试卷]VB机试模拟试卷117及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]VB机试模拟试卷117及答案与解析.doc（5页珍藏版）》请在麦多课文档分享上搜索。

1、VB机试模拟试卷 117及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 Labell和 Label2，标题分别显示为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Textl和 Text2，初使内容均为空 )和一个命令按钮 (名称为 Commandl，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图 421所示。注意：要求程序中不得使用任何变量。存盘时必 须存放在考生文件夹下，工程文件名保存为 sil vb

2、p，窗体文件名保存为sjl frm。 (2)在名称为 Forml的窗体上画一个图片框 (其名称为 Picturel)、一个水平滚动条 (名称为 HScrooll1)和一个命令按钮 (名称为 Commandl)，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 picl jpg，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 422所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：之后就可以通过移动滚 动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图 423所示。注意：要求程序中不得使用任何变量。存盘时

3、必须存放在考生文件夹下，工程文件名为 si2 vbp，窗体文件名为 si2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，相应的窗体文件名为 sj3 frm，请装入该文件，在窗体上画一个命令按钮，名称为 Commandl，标题为 “添加项目 ”，再画一个列表框和一个文本框，名称分别为 Listl和 Textl。 编写适当的事件过程，要求程序运行后，如果从键盘上输入某 项，再单击 “添加项目 ”命令按钮，则将该添加到列表框中 (内容任意，不少于 3个 )，如图 164所示；如果单击列表框中的某一项则将其从列表框中删除，如图 165所示。提供的窗体文

4、件可以实现上述功能，但这个程序不完整，请把它补充完整。注意：去掉程序中的注释符 “”，把程序中的 “?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，相应的窗体文件名为 sj4 frm。程序运行后，在 5个文本框中各输入一个整数，然后单击命令按 钮，即可求出数组的最小值，并在窗体上显示出来，如图 166所示。这个程序不完整，请把它补充完整，并能正确运行。注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

5、 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sj5 vbp及其窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有两个命令按钮，名称分别为 Commandl和Command2，标题分别为 “读取 ”和 “计算保存 ”，一个文本框， 名称为 Textl、MultiLine属性为 True、 ScrollBars属性为 2；运行界面如图 545所示。要求程序运行后，如果单击 “读取 ”按钮，则读人 in txt文件中的 50个整数，放入一个数组中 (数组下界为 1)，同时在文本框中显示出来；如果单击 “计算保存 ”按钮，则计算数组中 30个数的平均值 (结果四

6、舍五人为整数 )，并把结果在文本框 Textl中显示出来，同时把结果存人考生文件夹中的文件 out txt中。 (在考生的文件夹下有标准模块 mode bas，其中的 writedata过程可以把结果存入指定的文件。 ) 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。文件必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名为 sj5 vbp，计算结果存入 out txt文件，否则没有成绩。 VB机试模拟试卷 117答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将 2

7、个标签控件、 2个文本框控件、 1个命令按钮控件添加到窗体中， 2个标签控件名称分别为 Labell和Label2， Caption属性分别为 “姓名 ”和 “年龄 ”， 2个文本框控件名称分别为 Textl和Text2， Text属性都为空，命令按钮 Caption属性为 “显示 ”。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() Forml Print Textl Text&“，现年“&Text2 Text&“岁 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个图片框控件、水平滚动条控件和

8、命令按钮添加到窗体中，图片框控件名称为 Picturel， AutoSize属性为 “True”， Picture设置为picl jpg，水平滚动条控件名称为 HScrolll，命令按钮控件名称为 Commandl，Caption属性为 “设置属性 ”。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() HScrolll Max=1500 HScrolll Min=100 HScrolll LargeChange=100 HScrolll SmallChange=10 End Sub Private Sub HScrolll_Change() Pictu

9、rel Width=HScrolll Value End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，在名称为 Forml的窗体上画一个名为 Listl的列表框控件，一个名为 Textl的文本框控件，再画一个名称为 Commandl的命令按钮，其Caption属性为 “添加项目 ”。 双击 Commandl进入代码编写窗 I： 1，具体代码如下： Private Sub Commandl_Click() 单击 Command调用的函数 Listl Addhem Textl Text向 List里面添加项 End Sub Privat

10、e Sub Listl_Click() 单击 List调用的函数 Listl RemoveItem(Listl ListIndex) 删除单击的项 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，在名称为 Forml的窗体内画 5个文本框控件，名称 分别为 Textl、 Text2、 Text3、 Text4和 Text5， Caption属性全为空，一个命令按钮，名称为 Commandl， Caption属性为 “输出最小值 ”。双击 Commandl进人代码窗口，编写如下代码： Private Sub Commandl_Click() Dim temp As Integ

11、er temp=Val(Textl Text) If(Val(Text2 Text) 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 文本框显示的内容由 Text属性设置， Multiline属性决定文本框是否可多行显示；按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。题中涉及对文件的操作，读人顺序文件以顺序的方式打开，用 input#语句读取数据。对文件操作完后，一定要关闭文件。 题目给出的源程序中已设计好窗体，且已给出标准模块代码，考生只需将它添加到当前工程即可。在 “工程 ”窗口中单 击右键，在弹出的快捷菜单中选择 “添加 ”一 “添加

12、模块 ”，然后在弹出对话框的 “现存 ”选项卡中选择 “mode bas”，单击 “确定 ”按钮即添加成功。 标准模块代码如下： Option Explicit Sub writedata(t_FileName As String， t_Str As Variant) Dim sFile As String sFile=“ “&t_FileName Open App Path&sFile For Output As#1 Print#1， t_Str Close#1 End Sub 单击 Commandl进入代码窗口，补充后的窗体代码如下： Option Explicit Dim i(1 To

13、50)As Integer Private Sub Commandl_Click() Textl Text=“ Dim j As Integer Open App Path&“in txt“For Input As#1 For j=1 To 50 Input#1， i(j) Textl Text Textl Text&i(j)&Space(5) Next j Close#1 End Sub Private Sub Command2 Click() Dim temp As Long Dim j As Integer For j=1 To 30 temp=temp+i(j) Next j temp=temp 30 Textl Text=temp writedata“out txt“， temp End Sub 单击按钮运行程序，并按要求保存。