1、VB机试模拟试卷 105及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Froml的窗体上放置一个名称为 Drivel的驱动列表框控件、一个名称为 Dir1的目录列表框控件和一个名称为 Filel的文件列表框控件。程序运行时，可以对系统中的文件进行浏览。程序运行时的窗体界面如图 581所示。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体上画一个命令按钮，名称为 Commandl、标题为 “无效 ”，请编写 适当的事件过程，使得在运行时，如果单击命令按钮，则 Textl文本框
2、变为无效 (即不可用 )，双击窗体，该文本框变为有效 (即可用 )。程序中不得使用任何变量。程序运行的效果如图 582所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2.frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在窗口中有一个 Label控件和两个名称分别为 Commandl和 Command2、标题分别为 “开始 ”和 “关闭 ”的 命令按钮。要求程序运行后，单击 “开始 ”按钮，能将下面给出的菱形写入考生文件夹下的 shape dat文件中；执行完毕， “开始
3、 ”按钮变成“完成 ”，且无效 (变灰 )。程序运行时的窗体界面如图 514所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。在窗体中有一个名称为 Commandl、标题为 “读取字体大小 ”的命令按钮，一个名称为 Listl的列表框。要求程序运行后，单击 “读取字体大小 ”按钮读取系统的字体，并在 Listl中显示，如图 515所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所
4、有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sj5 vbI)及其窗体文件 sj5 frm，该程序是不完整的，请在有 “?”的地方填人正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述 如下： 在名称为 Form1的窗体上有一个文本框，名称为 Text1， MultiLine属性为 True，ScrollBars属性为 2；两个命令按钮，名称分别为 command1和 Command2、标题分别为 “读人数据 ”和 “计算保存 ”，
5、运行界面如图 75所示。要求程序运行后，如果单击 “读人数据 ”按钮，则读人 in txt文件中的 50个整数，放人一个数组中 (数组下界为 1)，同时在文本框中显示出来；如果单击 “计算保存 ”按钮，则先进行升序排列，计算前 25个数的和与后 25个数的和之差，并把求得的结果在文本框 Text2中显示出 来，同时把该结果存人考生文件夹中的 out txt文件中。 (在考生文件夹下的标准模块 mode bas中的 writedata过程可以把结果存入指定的文件。 ) 注意：文件必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名为 sj5 vbp，计算结果存入 out txt文件，
6、否则没有成绩。 VB机试模拟试卷 105答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个驱动器列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中，驱动器列表框的名称 为Drivel，目录列表框的名称为 Dirl，文件列表框的名称为 Filel。双击 Drivel进入代码窗口，编写如下代码： Private Sub Dirl_Change() Filel Path=Dirl Path将 Filel与 Dirl关联起来 End Sub Private Sub Dirl_Click() Filel Path=Dirl Path将
7、 Filel与Dirl关联起来 End Sub Private Sub Drivel_Change() Dirl Path=Drivel Drive将 Dirl与 Drivel关联起来 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，命令按钮的名称为 Commandl、 Caption属性为 “无效 ”，设置完成后双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Enabled=False将 Textl变
8、为不可用 End Sub Private Sub Form_DblClick() Textl Enabled=True双击窗 El将 Textl变为可用 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将两个命令按钮和一个标签添加到窗体中，标签的Caption属性为 “编写打印到目标文件的菱形。目标文件为 shape dat”，命令按钮的 Caption属 性分别设为 “开始 ”和 “关闭 ”，名称分别为 Commandl和 Command2。双击 Commaildl。利用循环打印空格和字母 “A”来画出菱形，进入代码窗口，补充
9、后的代码如下： Private Sub Commandl_Click() Open App Path&“shape5 dat“For Output As#1 打开文件，准备写入 Dim n As Integer Dim i As Integer Dim str AS String For n=0 To 4打印菱形上半部分 str=“ For i=0 To 4-n打印空格 str=str+“ Next i For i=0 To 2*n打印字母 “A“ str=str+“A“ Next i Print#1， str$ Next n For n=5 To 8 打印下半部分 str=“ For i=0
10、 To n-4 打印空格 str=str+“ Next i For i=0 To 2*(8-n) 打印字母 “A“ str=str+“A“ Next i Print#1， str$ Next n Close#1 Commandl Enabled=False Commandl Caption=“完成 “ End Sub Private Sub Command2 Click() Unload Me End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个列表框控件和一个命令按钮添加到窗体中，列表框的名称设为 Listl，命令按钮的名称设为Commandl、 Caption属性为
11、“读取字体大小 ”。双击 Commandl进入代码编写窗口，其中 Screen Fonts是读取系统字体的函数，然后利用循环添加到 Listl中，补充后的具体代码如下： Private Sub Commandl Click() Dim i As Integer For i=0 To Screen FontCount-1 Listl Addltem Screen Fonts(i) Next i End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将两个 Text控件和两个 Command控件添加到窗体上，Text的名称分别为 Textl和
12、Text2、 Text属性都为空，其中 Textl的 MuhiLine属性为 True、 ScrollBar属性为 2， Command的名称分别为 Commandl和 Command2、Caption属性分别为 “读入数据 ”和 “计算保存 ”。双击 Commandl命令按钮进入代码窗口，编写如下代码： Dim a(50)As Long全局变量 Private Sub Command1 Click() Textl Text=“ Open App Path&“ in txt“For Input As#1打开 “in txt“文件 Dim i As Integer Dim temp As Int
13、eger For i=1 To 50 Input#1， temp a(i)=temp按顺序读入到数组中 Next i For i=1 To 50 Textl Text=Textl Text+CStr(a(i)+vbCrLf将数组中的数放入 Text中显示 Next i Close#1 End Sub Private Sub Command2 Click() Dim i As Integer Dim J As Integer Dim k As Integer Dim temp As Integer For i=l To 50 升序序排列 temp=a(i) For j=1 To i If a(j
14、)temp Then读取的数据比原位置的数据大则偏移 For k=i To j+1 Step-l a(k)=a(k-1) 数据向后偏移一个 Next k a(j)=temp Exit For End If Next j Next i Dim totall As Long Dim total2 As Long totall=0 total2=0 For i=1 TO 25 totall=totall+a(i) 计算前 25个数据的和 Next i For i=26 To 50 totel2=total2+a(i) 计算后 25个数据的和 Next i Text2 Text=totall-total2 Writedata(totall-total2) End Sub单击 按钮运行程序，并按要求保存。
