1、VB机试模拟试卷 30及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visaul Basic应用程序 (包括界面和代码 )。 1在窗体 (名称为 Form1)上画 1个列表框 (名称为 L1)和 1个水平滚动条 (名称为 HS1， Min属性为 0， Max属性为 100， SmallChange属性为 2， LargeChange属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示 “滚动条的当前值是： xx”，如图 11所示，其中 xx是滚动框所在的位置。存盘时，工程 文件名为 sjt1.vbp，窗体文件名为
2、sjt1.frm。 2在名称为Form1的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为 “程序设计 ”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为 “设置文本框属性 ”。完成设置后的窗体如图 12所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应 用题（ 40分） 2 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1
3、在考生文件夹下打开工程 sjt3.vbp，在窗体 Form1上建立一个名称为 Text1的文本框和一个名称为 Command1，标题为 “计算 ”的命令按钮 (如图 21所示 )。程序运行后，单击 “计算 ”命令按钮，通过在对话框输入整数 10，放入整形变量 a中，然后计算a!， (提示：运算结果应放入 Long型变量中 )，在文本框中显示结果，并把结果存入文件 out3.txt中。在考生文件夹中有一个标准模块 mode.bas，该模块中 提供了保存文件的过程 putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。
4、 2在名称为 Form1的窗体上画一个驱动器列表框，其名称为 Driver1，再画一个目录列表框，其名称为 Dir1；然后添加一个文件列表框，名称为 File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为 exe的文件；如果双击文件列表框中的文件，则执行该文件 (如图 22所示 )。 程序中不得使用任何变量。已知；可以用 Shell函数来运行可执行文件。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为 sjt4.frm。三、综合应用题（ 30分） 3 在考生文件夹下有一个工
5、程文件 sit5.vbp，相应的窗体文件为 sit5.frm。窗体中已经给出了所有控件 (框架中的 3个单选按钮构成了一个控件数组 )，如图 31所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击 “计算 ”命令按钮，则计算出数列 1， 1， 2， 3， 5， 8， 13， 21， 的第 n项的值， 并在文本框中显示出来，其中 n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第 3个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型 )。 注意： 不得修改已经给出的程序和已有的控件的属性； 在结束程序运行之前，必须选中一个
6、单选按钮，并单击 “计算 ”命令按钮获得一个结果； 必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。试题所提供的事件过程如下： Private Sub Form_Unload(Cancel As Integer) Open“out5.dat“For Output As #1 Print #1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text) Close #1 End Sub VB机试模拟试卷 30答案与解析 一、基本操作题（ 30分） 1 【正确答案】 按以下步骤操作： 启动 Visual Basic，在窗体上画 1个水
7、平滚动条和 1个列表框。 按 F4键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表 1。 编写窗体的 Click事件过程； Private Sub Form_Click() L1.AddItem“滚动条的当前值是 :“ &HS1. Value End Sub2 对象主要属性设置如表 2所示。 分析：按试题要求在窗体上画出一个文本框，并分别将它们属性按表 2的内容进行设置。 MultiLine属性设置为True，文本框显示多行文本； SerollBar属性设置为 2，文本框显示垂直滚动条；设置 Text属性中的内容为初始信息；用 FontName和 FontSize属性分别设置文本框
8、的字型和字号； Caption属性设置窗体标题的内容。 编程代码： (无 ) 二、简单应用题（ 40分） 2 【正确答案】 首先将模块文件 mode.bas添加到工程中，模块中包含的过程如下： Sub putdata(t_filename As String,t_str As Variant) Dim stile As String sfile“.“& t filename Open App. Path & sfile For Output As #1 Print #1,t_str Close #1 End Sub 编写命令按钮的事件过程： Private Sub Command1_Click
9、 ) Dim n,i As Integer Dim j As Long n=InputBox(“请输入要计算的数字 “) j=1 For i 1 To n j j*i Next i Text1.Text j putdata “out3.txt“,j End Sub 运行程序，在 inputbox对话框中输入数字 “10”。 按试题要求保存窗体文件和工程文件。 2 建立界面和设置控件属性。 程序用到的控件及其属性如下表 3所示。 编写程序代码。 参考代码： Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Dri
10、ve1_Change() Dir1.Path=Driver1.Drive End Sub Private Sub File1_DblClick() xShell(Filel.FileName,1) End Sub 按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 启动 Visual Basic，装入工程文件 sjt5.vbp。 打开代码窗口，所提供的事件 过程如下： Private Sub Form_Unload(Cancel As Integer) Open“out5.dat“For Output As #1 Print #1,Op1(0).Value,Op1(1).Value
11、,Op1(2).Value,Va1(Text1.Text) Close # 1 End Sub 这是窗体的 Unload事件过程，用来把每个单选按钮当前的 Value属性值和文本框中的内容写入 out5.dat文件。程序运行后，如 果通过单击窗体右上角的 “关闭 ”按钮来关闭窗体，则自动执行该事件过程，而如果通过单击工具栏上的 “结束 ”按钮来结束程序，则不会执行该事件过程。 编写命令按钮的 Click事件过程： Private Sub Command1_Click() Dim a As Long,a1 As Long,a2 As Long Dim k As Integer,n As Inte
12、ger For k=0 To 2 If Op1(k). Value Then n Val(Op1(k).Caption) End If Next k a1 1 a2=1 For k 3 To n a a1+a2 a1=a2 a2 a Next k Text1.Text a End Sub 该过程包含两个 For循环，其中第 1个 For循环用来确定 n的值，选择某个单选按钮后，该单选按钮的标题即作为 n的值；第 2个 For循环用来计算数列第 n项的值。 运行程序，选择一个单选按钮，然后单击命令按钮，即可计算数列第 n项的值，并在文本框中显示出来，此时可单击窗体右上角的 “关闭 ”按钮，结束程序。
