1、二级 VISUAL+BASIC 机试-109 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上建立一个名称为 P1 的图片框和两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“输出”和“清除”，如图 11-19 所示。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me”；如果单击“清除”按钮，则清除图片框中的内容。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。（分数：15.00）_2.在名称为
2、 Form1 的窗体上建立一个名称为 List1 的列表框。要求：在程序运行后，通过 Form_Load()事件过程加载窗体时，执行语句 List1.AddItem”AAA，每当单击某个列表项时，都执行语句 List1.AddItem List1.Text 一次，如图 11-20 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sit2.vbp。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为 vbFile 和vbHelp，在“文件”菜单下
3、有 3 个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为vbNew、vbOpen 和 vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过 MsgBox对话框显示该菜单项的标题，如图 11-21 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。（分数：20.00）_4.在窗体上建立一个名称为 Text1 的文本框，再建立一个名称为 Cmd1，标题为“计算的命令按钮，如图 11-22 所示。要求程序运行后，单击命令按钮，将计算 100200 之间所有素数之和，在文本框中显示结果，同时把结果存入文件 out.t
4、xt 中。(在考生文件夹中有标准模块 mode.bas，其中的 putdata 过程可以把结果存入文件，而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm，工程文件名为 sjt4.vbp，结果存入out.tXt 文件。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹中有 1 工程文件 sit5.vbp 及其窗体文件 sjr5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后
5、删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称为 Form1 的窗体上有一个文本框，名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2，两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“保存数据”)，如图 11-23 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)，并在文本框 Text1 中显示出来；如果单击“保存数据”按钮，则把数组中的前 50 个数据在文本框 Text1 中显示出来，并存入考
6、生文件央中的文件“result.txt”一书。(考生文件夹中有标准模块prog.bas，其中的 putdata 过程可以把指定个数的数组元素存入 result.txt 文件。)（分数：30.00）_二级 VISUAL+BASIC 机试-109 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上建立一个名称为 P1 的图片框和两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“输出”和“清除”，如图 11-19 所示。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“
7、load me”；如果单击“清除”按钮，则清除图片框中的内容。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。（分数：15.00）_正确答案：(命令按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。打印信息用 Print 方法，清除用 Cls 方法。题目要求在图片框中打印信息，所以在编写代码是应指定 Print 方法和 Cls 方法的使用对象。解题步骤如下。(1)建立界面并设置控件属性。程序用到的控件及其属性如表 11-6 所示。表 11-6控 件 属 性 设置值 命令按钮 Name Caption Cmd1 输出命
8、令按姗 Name Caption Cmd2 清除图片框 Name P1 (2)编写代码。参考代码：Private Sub Cmd1_Click()P1.Print“load me“End SubPrivate Sub Cmd2_Click()P1.ClsEnd Sub(3)调试并并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。2.在名称为 Form1 的窗体上建立一个名称为 List1 的列表框。要求：在程序运行后，通过 Form_Load()事件过程加载窗体时，执行语句 List1.AddItem”AAA，每当单击某个列表项时，都执行语句
9、 List1.AddItem List1.Text 一次，如图 11-20 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sit2.vbp。（分数：15.00）_正确答案：(列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码中进行。单击列表框中的项目触发 Click 事件，题目要求使用 AddItem 方法给列表框添加项目，所以应该将 List1.Addltem List1.Text 语句写入列表框的 Click 事件中。解题步骤如下。(1)建立界面并设置控件属性。程序中只用到 1 个列表框控件。在窗体上画出
10、列表框，其“Name”属性默认为“List1”。在窗体的 Load事件中添加 List1.Addltem“AAA“语句使程序开始运行时在列表框中添加“AAA”。(2)编写程序代码。参考代码：Private Sub Form_Load()List1.Addltem“AAA“End SubPrivate Sub List1_Click()List1.Addltem List1.TextEnd Sub(3)调试并并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好列表框后，先设置属性，再编写事件过程。二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上建立两
11、个主菜单，其标题分别为“文件”和“帮助”，名称分别为 vbFile 和vbHelp，在“文件”菜单下有 3 个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为vbNew、vbOpen 和 vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过 MsgBox对话框显示该菜单项的标题，如图 11-21 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt3.frm，工程文件名为 sjt3.vbp。（分数：20.00）_正确答案：(MsgBox 函数的语法具有以下几个命名参数。Prompt，必需的。字符串表达式，作为显示在对话框中的消息。Buttons，可选的。数
12、值表达式是值的总和，指定显示按钮的数目及形式。Title，可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。Helpfile，可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。Context，可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤如下。(1)建立菜单。程序中用到的菜单项及其属性如表 11-7 所示表 11-7标 题 名 称 内鲁自符号 文件 vbFile 0 新建 vbNew 1 打开 vbOpen 1 存盘 vbSave 1 帮助 vbHelp 0 (2)编写程序代码。参考代码：Priv
13、ate Sub vbNew_Click()MsgBox“新建“，vbOKOnlyEnd SubPrivate Sub vbOpen_Click()MsgBox“打开“，vbOKOnlyEnd SubPrivate Sub vbSave_Click()MsgBox“存盘“，vbOKOnlyEnd Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 在 Visual Basic 中，菜单项通过菜单编辑器来建立；选择菜单则是触发其 Click 事件。MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回 1 个 Integer 告诉用户单击哪一个按钮。语法：MsgBox(prom
14、pt，buttons，title，helpfile，context)4.在窗体上建立一个名称为 Text1 的文本框，再建立一个名称为 Cmd1，标题为“计算的命令按钮，如图 11-22 所示。要求程序运行后，单击命令按钮，将计算 100200 之间所有素数之和，在文本框中显示结果，同时把结果存入文件 out.txt 中。(在考生文件夹中有标准模块 mode.bas，其中的 putdata 过程可以把结果存入文件，而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)注意：保存时必须存放在考生文件
15、夹下，窗体文件名为 sjt4.frm，工程文件名为 sjt4.vbp，结果存入out.tXt 文件。（分数：20.00）_正确答案：(解题步骤如下。(1)建立菜单项。程序中用到的控件及其属性如表 11-8 所示表 11-8控件 属性 设置值文本框 Name Text1按钮NameCaptionCmd1计算(2)编写程序代码。参考代码：Private Sub Cmd1_Click()Dim i As IntegerDim temp As Longtemp=0For i=100 TO 200If isprime(i)Thentemp=temp+iEnd IfNextText1.Text=tempp
16、utdata“out.txt“，tempEnd Sub标准模块代码：Option ExplicitSub putdata(t_FileName As String，T_Str As Variant)Dim sFile As StringsFile=“/“ & t_FileNameOpen App.Path&sFile For Output As #1Print #1，T_StrClose #1End SubFunction isprime(t_I As Integer)As BooleanDim J As Integerisprime=FalseFor J=2 To t_I/2If t_I M
17、od J=0 Then Exit ForNext JIf Jt_i/2 Then isprime=TrueEnd Function(3)凋试并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容由Text 属性设置，命令按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹中有 1 工程文件 sit5.vbp 及其窗体文件 sjr5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修
18、改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称为 Form1 的窗体上有一个文本框，名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2，两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“保存数据”)，如图 11-23 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)，并在文本框 Text1 中显示出来；如果单击“保存数据”按钮，则把数组中的前 50 个数据在文本框 Text1 中显示出来，并存入考生文件央中的文件“result.txt”一
19、书。(考生文件夹中有标准模块prog.bas，其中的 putdata 过程可以把指定个数的数组元素存入 result.txt 文件。)（分数：30.00）_正确答案：(建立界面并设置控件属性。程序中用到的控件及属性设置如表 11-9 所示表 11-9控 件 属 性 设置值 文本框 Name Scrollbars Multiline Textl 2 True 命令按钮 Name Caption Cmd1 读入数据 命令按钮 Name Caption Cmd2 保存数据 (2)编写程序代码。程序提供的代码：prog.bas 的代码Sub putdata(a()As Integer，n As Int
20、eger)Dim sFile As StringsFile=“/resuIt.txt“Open App.Path & sFile For Output As #1For i=l TO nPrint #1，a(i)；NextClose #1End Sub窗体代码Dim i(1 To 100)As IntegerPrivate Sub Cmd1_Click()Dim j As Integerj=0Open App.Path & “/in.txt“For Input As #1For j=1 To 100Input #1，i(?)Next? #1For j=1 To 100Text1.Text=Te
21、xt1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerText1.Text=?For j=1 To 50Text1.Text=Text1.Text & i(j) & Space(5)Nextputdata i，50End Sub参考代码：Dim i(1 To 100)As IntegerPrivate Sub Cmd1_Click()Dim j As Integerj=0Open App.Path &“/in.txt“For Input As #1For j=1
22、To 100Input #1，i(j)NextClose #1For j=1 To 100Text1.Text=Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDimj As IntegerText1.Text=“ “For j=1 To 50Text1.Text=Text1.Text & i(j) & Space(5)Nextputdata i，50End Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 文本框显示的内容由 Text 属性设置，Multiline 属性决定文本框是否可多行显示；按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 Input#语句读取数据，另外需要注意的是，对文件操作完成后，一定要关闭文件。
