1、VB 机试模拟试卷 14 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1) 在 Form1的窗体上建立一个主菜单，标题为 “操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 “显示 ”和 “清除 ”，其名称分别为 Dis和 Clea。编写适当的事件过程，程序运行后，如果单击 “操作 ”菜单中的 “显示 ”命令，则在窗体上显示 “等级考试 ”；如果单击 “清除 ”命令，则清除窗体上显示的 内容。程序的运行情况如图 14-1所
2、示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。 (2) 在Form1的窗体上画一个标签，其名称为 Lab1；再画一个列表框，其名称为 L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序中不准使用任何变量，运行情况如图 14-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名 为 sjt2.frm。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexa
3、m25160001。 (1) 在考生文件夹下有工程文件 sjt3.vbp及窗体文件 sjt3.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 16-3所示。 在名称为 Form1的窗体上有 1个 Labe1控件，四个 Text控件及七个命令按钮，功能为：开始启动工程时，界面上除 “开始录入 ”及 “退出 ”按钮之外，其他按钮均 不可用 (灰色显示 )；单击 “开始录入 ”按钮之后，利用 InputBox让用户连续且必须录入 10个数。若录入为非数字符号，则给出警告“输入数据无效，请重新输入
4、数值数据，请输入第 n个数 ”；录入完毕后， “开始录入 ”变灰，其他变为可用状态；按相应的按钮可分别求出所录入数据的升序、降序排列及最大数和最小数，并在右侧对应的文本框中显示 (注意用 A(10)存放最大数，A(1)存放最小数 )；单击 “清除 ”按钮将所有文本框清空。 (2) 在考生文件夹下有工程文件 sit4.vbp及窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 16-4所示。 在名称为 Form1，标题为 “求和程序 ”的窗体上有3个 Labe1控件， 2个
5、Text控件和 3个命令按钮。该程序的主要功能是求从 1到Text1中用户输入的任意自然数 n的累加和。刚启动工程时， “显示结果 ”和 “清除 ”按钮均为灰色；可以在输入框内输入任意自然数 (n值太大时，运算时间将很长，建议不超过 9位 )。在输入数的同时 “显示结果 ”变为可用。当输入为非数值时，累加结果为 0；单击 “显示结果 ”可以在 Text2中显示累加和，且该框内的文字不可修改，同时 “显示结果 ”变灰， “清除 ”变为可用；单击 “清除 ”，输入框和显示框均显示“0”单击 “关闭 ”按钮结束程序的运行。三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 c：
6、wexam25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分乙存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则 没有成绩。 本题描述如下： 在名称为 Form1的窗体上有五个 Labe1控件和两个命令按钮，数据文件 prog8a.dat存放一些字符。按 “开始 ”按钮后，能从考生文件夹下的 prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的 prog8b.
7、dat文件中 (以标准格式在一行中输出 )；执行完毕， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )。程序运行界面如图 15-6所示。VB 机试模拟试卷 14 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体 上建立好控件后，先设置控件属性，再编写事件过程。 Visual Basic中，菜单被看作控件，具有属性和事件。菜单由 “菜单编辑器 ”来创建。在窗体上打印信息通过 Print方法方法来实现。清除在窗体上的打印的信息要通过 Cis方法来实现 Cis方法清除运行时 Form或 PictureBox所生成的图形和文本： 语法： Object.Cls object代表一个对
8、象表达式。如果省略 object，则默认为当前的 Form窗体。解题步骤： 第一步：打开 “菜单编辑器 ”，建立菜单并设置菜单属性。菜单的属性设置见表 14-1。第二 步：编写程序代码。 参考代码： Private Sub Clea_Click() ClS End Sub Private Sub Dis_Click() Prin “等级考试 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。双击控件触发 DblClick事件， ListCount属性返回列表框中表项的数量。列表框中的表项可以通过 “属性 ”窗口的
9、 List属性设置，也可以通过 AddItem方法在程序中添加。本题是通过属性窗口来设置的。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表14-2。 第二步：编写程序代码。 参考代码： Private Sub L1_DblClick() Lab1.Caption=L1.ListCount End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 用数组 a(10)来接收 InputBox输入的 10数， InputBox的格式为： InputBox(提示 ，
10、标题 ，默认 ， X坐标位置 ， Y坐标位置 )；控件是否可用可利用其 Enabled属性设置，当该值为 True时可用，为 False时不可用 (灰色 )；判断是否是数字可用IsNumeric()，如果是数字返回 True，否则返回 False；本程序中用到的排序方法是将某一个元素做为标杆，其后的每一个元素与其比较，若小于标杆则两者交换，依此类推，题中要求排完序后 a(1)至 a(10)依次存放大数，在文本框中显示升序和降序的时候只要两者反序显示即可，即升序可依次显示 a(1)到 a(10)，降序可依次显示 a(10)到 a(1)。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件
11、及其属性见表 16-3。第二步：编写程序代码。 程序提供的代码： Option Explicit Dim a(10) As Variant Dim i As Integer, j As Integer Dim m As Single Private Sub Command1_Click() Text2.Text= Command1.Enabled=False Command7.Enabled=True End Sub Private Sub Command2_Click() Text3.Text=? Command2.Enabled=False Command7.Enabled=True En
12、d Sub Private Sub Command3_Click() For i=1 To 10 Text1.Text=Text1.Text &?& “,“ Next i Command3.Enabled=False Command7.Enabled=True End Sub Private Sub Command4_Click() For i=10 To 1 Step -1 Text4.Text=Text4.Text &?& “,“ Next i Command4.Enabled=False Command7.Enabled=True End Sub Private Sub Command5
13、_Click() End End Sub Private Sub Command6 Click() Label1.Enabled=False For i=1 To 10 a(i)=InputBox(“请输入第 “ & i & “个数 ,请务必输入数值数据 ! “,“输入 “) Do While IsNumeric(a(i) )=False a(i)=InputBox(“输入数据无效 ,请重新输入数值数据 ! ! !“ & “请输入第 “ & _ i & “个数 “,“输入 “) Loop Next i For i=1 To 9 For j=i+1 To 10 If Val(a(j) ) ?Va
14、l(a(i) ) Then m=a(j) a(j)=a(i) a(i)=m End If Next j Next i Command6.Enabled=False Commandl.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Command5.Enabled=True Command7.Enabled=False End Sub Private Sub Command7_Click() Text1.Text=? Text2.Text=? Text3.Text=? Text4.Tex
15、t=? Label1.Enabled=True Command6.Enabled=True Command4.Enabled=False Command3.Enabled=False Command2.Enabled=False Commandl.Enabled=False Command7.Enabled=False End Sub Private Sub Form_Load() Command1.Enabled=False Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command7.Enable
16、d=False End Sub 参考代码： Option Explicit Dim a(10) As Variant Dim i As Integer, j As Integer Dim m As Single Private Sub Command1_Click() Text2.Text=a(10) Command1.Enabled=False Command7.Enabled=True End Sub Private Sub Command2_Click() Text3.Text=a(1) Command2.Enabled=False Command7.Enabled=True End S
17、ub Private Sub Command3_Click() For i=1 To 10 Text1.Text=Text1.Text & a(i) &“,“ Next i Command3.Enabled=False Command7.Enabled=True End Sub Private Sub Command4_Click() For i=10 To 1 Step -1 Text4.Text=Text4.Text & a(i) &“,“ Next i Command4.Enabled=False Command7.Enabled=True End Sub Private Sub Com
18、mand5_Click() End End Sub Private Sub Command6_Click() Label1.Enabled=False For i=1 To 10 a(i)=InputBox(“请输入第 “ & i & “个数 ,请务必输入数值数据 !“,“输入 “) Do While IsNumeric(a(i) )=False a(i)=InputBox(“输入数据无效 ,请重新输入数值数据 ! ! !“ & “请输入第 “ & i & _ “个数 “,“输入 “) Loop Next i For i=1 To 9 For j=i+1 To 10 If Val(a(j) )
19、 Val(a(i) ) Then m=a(j) a(j)=a(i) a(i)=m End If Next j Next i Command6.Enabled=False Command1.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Command5.Enabled=True Command7.Enabled=False End Sub Private Sub Command7_Click() Text1.Text=“ Text2.Text=“ Text3.Text=“ Text4.
20、Text=“ Label1.Enabled=True Command6.Enabled=True Command4.Enabled=False Command3.Enabled=False Command2.Enabled=False Command1.Enabled=False Command7.Enabled=False End Sub Private Sub Form_Load() Command1.Enabled=False Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command7.Ena
21、bled=False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)控件是否可用可利用其 Enabled属性设置，当该值为 True时可用，为 False时不可用 (灰色 )；计算从 1到 n的数字的和可从 1开始向后计算，每一步计算的结果都保留然后再用上一步计算的值和后面的数字计算；清除可使文本框的内容置空来实现 (文本框 .Text=“)；显示结果框内的文字不可修改，是通过 Locked属性变为 True时锁定的。解题步骤： 第 一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 16-4。 第二步：编写程序代码： 程序提供的代码： Option Exp
22、licit Private Sub Commandl Click() Dim i As Double Dim sum As Double Dim n As Double sum=0 n=Val(Text1.Text) For i=1 To n sum=? Next 1 Text2.Text=? Command1.Enabled=False Command2.Enabled=True End Sub Private Sub Command2 Click() Text1.Text=? Text2.Text=? Command1.Enabled=True Command2.Enabled=False
23、 End Sub Private Sub Command3 Click() End End Sub Private Sub Form Load() Command1.Enabled=False Command2.Enabled=False End Sub Private Sub Text1_Change() Command1.Enabled=True End Sub Option Explicit Private Sub Command1 Click() Dim i As Double Dim sum As Double Dim n As Double sum=0 n=Val(Text1.Te
24、xt) For i=1 To n sum=sum+i Next i Text2.Text=sum Command1.Enabled=False Command2.Enabled=True End Sub Private Sub Command2_Click() Text1.Text=0 Text2.Text=0 Command1.Enabled=True Command2.Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Command1.Enabled=False Co
25、mmand2.Enabled=False End Sub Private Sub Text1_Change() Command1.Enabled=True End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 在程序运行时控件是否可用由其 Enable属性决定，当其值为 True时可用，当为 False不可用 (灰色 )。对文件进行操作必须先打开文件，同时通知操作系统对文件进行读操作还是写操作，打开文件的命令是 Open，其常用形式为： Open“文件名 ”For模式 As#文件号 Len=记录长度 模式有 Output(打开文件，对
26、其进行写操作 )、 Input(打开文件，对其进行读操作 )、 Append(打开文件，在文件末尾追加记录 )。 统计大小写字符和数字只需根据字符的 ASCII码判断，大写字母的 ASCII值是65 90，小写字母的 ASCII值是 97 122，数字的为 48 57。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Ot
27、hers As Integer myfile1=App.Path & “ & “prog8a.txt“ myfile2=App.Path & “ & “prog8b.txt“ Open myfile1 For ? As #1 Open myfile2 For ? As #2 While Not EOF(1) Input ?, Ch$ If Asc(Ch$) =48 And Asc(Ch$) =57 Then Number=Number+1 ElseIf Asc(Ch$) =65 And Asc(Ch$) =90 Then Cp=Cp+1 ElseIf Asc(Ch$) =97 And Asc(
28、Ch$) =122 Then Lp=Lp+1 Else Others=? End If Wend Print ?, Number, Cp, Lp, Others Close COMSTART.Caption=? COMSTART.Enabled=? End Sub 参考代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfile1
29、=App.Path & “ & “prog8a.txt“ myfile2=App.Path & “ & “prog8b.txt“ Open myfile1 For Input As #1 Open myfile2 For Output As #2 While Not EOF(1) Input #1, Ch$ If Asc(Ch$) =48 And Asc(Ch$) =57 Then Number=Number+1 ElseIf Asc(Ch$) =65 And Asc(Ch$) =90 Then Cp=Cp+1 ElseIf Asc(Ch$) =97 And Asc(Ch$) =122 Then Lp=Lp+1 Else Others=Others+1 End If Wend Print #2, Number, Cp, Lp, Others Close COMSTART.Caption=“完成 “ COMSTART.Enabled=False End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。
