1、VB 机试-试卷 56 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 Visaul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max 属性为 100，SmallChange属性为 2，LargeChange 属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其
2、中 xx 是滚动框所在的位置。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_二、简单应用题(总题数
3、：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在考生文件夹下打开工程sjt3.vbp，在窗体 Form1 上建立一个名称为 Text1 的文本框和一个名称为 Command1，标题为“计算”的命令按钮(如图 21 所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数 10，放入整形变量 a 中，然后计算 a!，(提示：运算结果应放入 Long 型变量中)，在文本框中显示结果，并把结果存入文件 out3.txt 中。在考生文件夹中有一个标准模块 mode.bas，该模块中提供了保存文件
4、的过程putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。2在名称为 Form1 的窗体上画一个驱动器列表框，其名称为 Driver1，再画一个目录列表框，其名称为 Dir1；然后添加一个文件列表框，名称为 File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为 exe 的文件；如果双击文件列表框中的文件，则执行该文件(如图 22 所示)。程序中不得使用任何变量。已知；可以用 Shell 函数来运行可执行文件。注意：存盘时
5、必须存放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sit5.vbp，相应的窗体文件为 sit5.frm。窗体中已经给出了所有控件(框架中的 3 个单选按钮构成了一个控件数组)，如图 31 所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列 1，1，2，3，5，8，13，21，的第 n 项的值，并在文本框中显示出来，其中 n 是选中的单选按钮标题所指定的数值。要计算的数列的
6、变化规律是：从第 3 个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。 （分数：2.00）_VB 机试-试卷 56 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 Visaul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max 属性为 100，SmallChange属性为 2，LargeChange 属性为 10
7、)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其中 xx 是滚动框所在的位置。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注
8、意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_正确答案：(正确答案：按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个水平滚动条和 1 个列表框。 按 F4 键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表 1。 编写窗体的 Click 事件过程； Private Sub Form_Click() L1.AddItem“滚动条的当前值是:“ &HS1. Value End Sub 2 对象主要属性设置如表 2 所示。 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数
9、：2.00）_解析：4.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在考生文件夹下打开工程sjt3.vbp，在窗体 Form1 上建立一个名称为 Text1 的文本框和一个名称为 Command1，标题为“计算”的命令按钮(如图 21 所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数 10，放入整形变量 a 中，然后计算 a!，(提示：运算结果应放入 Long 型变量中)，在文本框中显示结果，并把结果存入文件 out3.txt 中。在考生文件夹中有一个标准模块 mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
10、注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。2在名称为 Form1 的窗体上画一个驱动器列表框，其名称为 Driver1，再画一个目录列表框，其名称为 Dir1；然后添加一个文件列表框，名称为 File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为 exe 的文件；如果双击文件列表框中的文件，则执行该文件(如图 22 所示)。程序中不得使用任何变量。已知；可以用 Shell 函数来运行可执行文件。注意：存盘时必须存放在考生文件夹下，工程文件名为 s
11、jt4.vbp，窗体文件名为 sjt4.frm。 （分数：2.00）_正确答案：(正确答案： 首先将模块文件 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) Dim n,i As I
12、nteger Dim j As Long n=InputBox(“请输入要计算的数字“) j=1 For i1 To n jj*i Next i Text1.Textj putdata “out3.txt“,j End Sub 运行程序，在 inputbox 对话框中输入数字“10”。 按试题要求保存窗体文件和工程文件。 2 建立界面和设置控件属性。 程序用到的控件及其属性如下表 3 所示。 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sit5.vbp，相应的窗体文件为 sit5.frm。窗体中已经给出了所有
13、控件(框架中的 3 个单选按钮构成了一个控件数组)，如图 31 所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列 1，1，2，3，5，8，13，21，的第 n 项的值，并在文本框中显示出来，其中 n 是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第 3 个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。 （分数：2.00）_正确答案：(正确答案： 启动 Visual Basic，装入工程文件 sjt5.vbp。 打开代码窗口，所提供的事件过程如下： Private Sub Form_U
14、nload(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 这是窗体的Unload 事件过程，用来把每个单选按钮当前的 Value 属性值和文本框中的内容写入 out5.dat 文件。程序运行后，如果通过单击窗体右上角的“关闭”按钮来关闭窗体，则自动执行该事件过程，而如果通过单击工具栏上的“结束”按钮来结束程序，则不会执行该事件过程。 编写命令按钮的 Click 事件过程： Pri
15、vate Sub Command1_Click() Dim a As Long,a1 As Long,a2 As Long Dim k As Integer,n As Integer For k=0 To 2 If Op1(k). Value Then nVal(Op1(k).Caption) End If Next k a11 a2=1 For k3 To n aa1+a2 a1=a2 a2a Next k Text1.Texta End Sub 该过程包含两个 For 循环，其中第 1 个 For 循环用来确定 n 的值，选择某个单选按钮后，该单选按钮的标题即作为 n 的值；第 2 个 For循环用来计算数列第 n 项的值。 运行程序，选择一个单选按钮，然后单击命令按钮，即可计算数列第n 项的值，并在文本框中显示出来，此时可单击窗体右上角的“关闭”按钮，结束程序。)解析：
