《VB等级考试题目与评析37(8).doc》由会员分享，可在线阅读，更多相关《VB等级考试题目与评析37(8).doc（5页珍藏版）》请在金锄头文库上搜索。
1、1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为C:WEXAM00000000* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1， 共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、 “计算机”，其中“语文”、“计算机” 复选框处在选中状态下，运行 时的窗体如图所示。 请画控件并设置相应属性。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。 * （2）在名称为Form1的窗体上画
2、一个名称为HS1的水平滚动条，其刻度值范围 为 1100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编 写适当的事件过程，使得在运行时，每单击命令按钮一次（ 假定单击次 数少于10次 ），滚动框向右移动10个刻度。运行时的窗体如图所示。 要求程序中不得使用变量，事件过程中只能写一条语句。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。第1小题复选框的Value属性：Value属性用来表示复选框的状态，可以取0-Unchecked、1-Checked和2-Grayed三种值，取值为0时，复选框没有选中的；取值为1时，复选框是选中的
3、；取值为2时，复选框为灰色状态。设置复选框Value属性的语法是：复选框名.Value = Unchecked（0）或Checked（1）或Grayed（2）由于Value属性是复选框的缺省属性，因此在设置该属性的值的时候，可以省略属性名。控件数组：控件数组是一组具有共同名称和类型的控件。它们的事件过程也相同。一个控件数组至少应有一个元素，元素数目可在系统资源和内存允许的范围内增加；数组的大小也取决于每个控件所需的内存和Windows资源。控件数组中的每一个控件都有唯一的索引号（Index），即下标，根据这个下标，可以调用控件数组中任意控件的事件，设置控件数组中任意控件的相关属性。解题方法：新
4、建一个名为Form1的窗体，点击工具箱中的CheckBox控件图标，然后在窗体上拖拉出一个复选框，通过属性窗口设置其Name属性为“CH1”。选中“CH1”控件，执行“编辑”菜单中的“复制”命令（热键为Ctrl+C），随后选中Form1窗体，执行“编辑”菜单中的“粘贴”命令（热键为Ctrl+V），将显示一个对话框，询问是否建立控件数组，选择“是”按钮，则可以建立控件数组的第二个元素。重复执行上述操作，可以建立控件数组的第三个元素，第四个元素。通过属性窗口，按索引顺序由小到大设置控件数组中的各控件的Caption属性为“数学”、“语文”、“外语”和“计算机”，并将“语文”和“计算机”控件的Val
5、ue属性设置为1。按要求保存文件即完成本题。第2小题新建一个工程，在窗体上添加一个命令按钮C1和一个水平滚动条HS1。C1的Caption属性设置为“移动滚动框”。设置HS1的Min属性为1，Max属性为100。滚动条的Max、Min属性值表示滑块处于滚动条最大、最小位置时所代表的值。Value属性代表滑块所在位置滚动条的当前值。在代码窗口中添加如下代码：Private Sub C1_Click()HS1.Value = HS1.Value + 10End Sub按照题目要求保存文件即可完成本题。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为C:WEXAM0
6、0000000* （1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称 为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体 ”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在 运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后， 则进行菜单标题所描述的操作，如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件 名为sjt3.frm。 * （2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体， Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后
7、，在Form1 窗体的文本框中输入有关信息（“密码”框中显示“*”字符），然后单 击“提交”按钮则弹出“确认”对话框（即Form2窗体），并在对话框中 显示输入的信息，如图2所示。单击“确认”按钮则程序结束，单击“重 输”按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给 出了程序，但不完整。 要求： 1）把Form1的标题改为“注册”，把Form2的标题改为“确认”； 2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）； 3）去掉程序中的注释符，把程序中的 ？改为正确的内容。 注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口 中进行。最后把修改后
8、的文件按原文件名存盘。 图1 图2第1小题新建一个工程sjt3.vbp，打开其中的Form1窗体，执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器。在“名称”栏中输入“Format”；点击“下一个”按钮，再点击编辑区的“”按钮，然后在“标题”栏中输入“加粗”，在“名称”栏中输入“M1”；点击“下一个”按钮，在“标题”栏中输入“斜体”，在“名称”栏中输入“M2”；点击“下一个”按钮，在“标题”栏中输入“下划线”，在“名称”栏中输入“M3”。在窗体上添加一个文本框。在代码窗口中输入如下代码：Private Sub Text1_MouseDown(Button As Integer, Shif
9、t As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Format End IfEnd SubPrivate Sub M1_Click() Text1.FontBold = TrueEnd SubPrivate Sub M2_Click() Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click() Text1.FontUnderline = TrueEnd Sub按要求保存文件即完成本题。第2小题打开工程文件sjt4.vbp，把Form1的Caption属性改为“
10、注册”，Form2的Caption属性改为“确认”，ControlBox设置为False，MaxButton设置为False，MinButton设置为False。打开代码窗口，把代码修改为：Private Sub C1_Click() Dim k As Integer Form2.Show Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.Print Form1.Frame1.Cap
11、tion; ：; For k = 0 To 1 If Form1.Op1(k).Value Then Form2.Print Form1.Op1(k).Caption End If Next kEnd SubPrivate Sub Form_Load() Text2.PasswordChar = *End Sub按要求保存文件即完成本题。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为C:WEXAM00000000 以下数列：1，1，2，3，5，8，13，21，的规律是从第3个数开始，每 个数是它前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给
12、出了所有控件，如 图所示。请编写适当的事件过程完成以下功能：选中一个单选按钮后，单击 “计算”按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选 中的单选按钮后面的数值。（提示：因计算结果较大，应使用长整型变量。） 注意： 不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必 须选中一个单选按钮，并单击“计算”按钮获得一个结果；必须使用窗体 右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件 名存盘。1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As #文件号 Len=记录长度
13、参数说明：“存取方式”指文件的输入输出方式，可以是以下操作之一：Output 指定顺序输出方式Input 指定顺序输入方式Append 指定顺序输出方式,与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。Random 随机存取方式，也是默认存取方式。Binary 指定二进制方式文件。在这种方式下，可以用Get和Put语句对文件中任意字节位置的信息进行读写。“操作方式”用来指定访问文件类型，可以是下列类型之一：Read 打开只读文件Write 打开只写文件Read Write 打开读写文件“锁定”用来限制其他用户或进程对打开的文件进行读写操作。锁定类型包括：Lock Shared 允许机器上任何进程读写该文件Lock Read 不允许
