1、VB机试模拟试卷 8及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立一个名称为 Cmd1，宽度为 1500，高度为 500，标题为 “显示 ”的命令按钮，编写适当的事件过程，要求程序运行后，如果单击 “显示 ”命令按钮，则在窗体上显示“计算机等级考试 ”，运行结果如图 8-1所示。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放 在考生文件夹下，窗体文件名为 sjt1.frm，工程文件
2、名为 sjt1.vbp。 (2)在名称为 Form1的窗体上建立两个名称分别为 Cmd1和Cmd2，标题分别为 “必修课 ”和 “选修课 ”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击 “必修课 ”命令按钮，在窗体上显示 “VB 6.0必修课 ”；如果单击 “选修课 ”命令按钮，在窗体上显示 “C语言选修课 ”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图 8-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam2516000
3、1。 (1)在考生文件夹下有工程文件 sjt3.vbp及窗体文件 sjt3.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有三个 Labe1控件和两个名称分别为 COMSTART和 COMEXIT，标题分别为 “开始 ”和 “退出 ”的命令按钮。要求程序运行后，单击 “开始 ”按钮后，能将下面给出的三 角形写入考生文件夹下的 picture dat文件中；执行完毕 “开始 ”按钮，变成 “完成 ”，且无效 (变灰 )。程序运行界面如图 10-4所示。 A AAA
4、AAAAA AAAAAAA BBBBBBB BBBBB BBB B (2)在考生文件夹下有工程文件 sjt4.vbp及窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗口中有一个名称为Command1，标题为 “读取字型 ”的命令按钮，一 个名称为 Combol的下拉组合框和一个提示标签 Label1。要求程序运行后，单击 “读取字型 ”按钮读取系统的字型，在Combo1中显示。 如图 10-5所示。三、综合应用题（ 30分） 3 注意：下面出现的 “考生
5、文件夹 ”均为 c： wexam25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1的窗体上有三 个 Label控件和两个名称分别为 COMSTART和 COMEXIT，标题分别为 “开始 ”和 “退出 ”的命令按钮。编写函数 ITEM(A， N)其功能是由数字 A组成的不多于 N位数的整数，并利用该函数求 8+88+888+8888的和结果写入考生文件夹下的 sjt5.dat文
6、件中。执行完毕后， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )。如图 9-6所示。VB机试模拟试卷 8答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 按钮的高度由 Height属性设 置，宽度由 Width属性设置，单击按钮触发 Click事件；在窗体上打印信息通过 Print方法来实现。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 8-1。第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() Print“计算机等级考试 ” End Sub 第三步：调试并
7、运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 单击命令按钮触发 Click事件，命令按钮的标题由其 Caption属性设置；在窗体上 打印信息通过 Print方法来实现。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 8-2。第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() Print “VB6.0必修课 “ End Sub Private Sub Cmd2_Click() Print “C语言选修课 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简
8、单应用题（ 40分） 2 【正确答案】 (1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 命令按钮的标题由其 Caption属性设置，单击命令按钮触发其 Click事件；标签的Caption属性用来显示其内容：程序用到 String$函数。 String函数返回Variant(String)，其中包含指定长度重复字符的字符串。 语法：String(number,character) String函数的语法有下面的命名参数： number必要参数；Long。返回的字符串长度。如果 number包含 Null，将返回 Null。 character必要参数； Variant。为指定字符
9、的字符码或字符串表达式，其第 一个字符将用于建立返回的字符串；解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表 10-3。 第二步：编写程序代码。 程序提供的代码： Private Sub COMEXIT Click() End End Sub Private Sub COMSTART Click() Dim A(4) As String Dim B(4) As String Dim k As Integer, 1 As Integer myfilel =App. Path Sum Open App. Path Sum Open App. Path & “ & “sjt5
10、.dat“ For Output As #1 Print #1, Sum Close #1 COMSTART.Caption = “完成 “ COMSTART.Enabled = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = “ For i = 1 To k Q$ =Str$ (A) P$ = P$ + Q$ Next i S = Val (P$) H = H + S Item = H End Function 第三步：按题目要求存盘。
