1、二级 VISUAL+BASIC 机试-110 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体中建立一个名称为 Cmd1，标题为“显示”的命令按钮，如图 11-13 所示。要求程序运行后，如果单击“显示”按钮，则执行语句 Form1.Print“显示“；如果单击窗体，则执行语句Form1.Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。（分数：15.00）_2.在名称为 Form1 的窗体上建立一个水平滚动条，名称为 HS1，其最大值为 100，最
2、小值为 0。要求程序运行后，每次移动滚动框时，都执行语句 Form1.Print HS1.Value，如图 11-14 所示(程序中不能使用任何变量)。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 sjr3.vbp 及其窗体文件 sit3.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在窗体上有两个单选按钮，名称分别为 Op1
3、 和 Op2，标题分别为“黑体”和“楷体”，一个文本框，名称为 Text1，字体为宋体，字号为四号字，还有一个命令按钮，名称为 C1，标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮，如图 11-15 所示。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图 11-16 所示。（分数：20.00）_4.在窗体上建立一个名称为 Text1 的文本框和一个名称为 Cmd1，标题为“计算”的命令按钮，如图 11-17所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数 12，放入整型变量 a 中，然后计算a!(提示：运算结果应放入 L
4、ong 型变量中)，在文本框中显示结果，并把结果存入文件 out.txt 中。在考生文件夹中有一个标准模块 mode.bas，该模块中提供了保存文件的过程 putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为 sit4.frm，工程文件名为 sit4.vbp。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹中有工程文件 sit5.vbp 及其窗体文件 sj6.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称
5、为 Form1 的窗体上有一个文本框，名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2；两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”，如图 11-18 所示。要求程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于 400并且小于 800 的所有数之和，把求和结果在文本框 Text1 中显示出来，同时把结果存入考生文件夹中的文件 result.txt 中。(在 prog.b
6、as 中的 putdata 过程可以把结果存入 result.txt 文件)。注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入result.txt 文件中，否则没有成绩。（分数：30.00）_二级 VISUAL+BASIC 机试-110 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体中建立一个名称为 Cmd1，标题为“显示”的命令按钮，如图 11-13 所示。要求程序运行后，如果单击“显示”按钮，则执行语句 Form1.Print“显示“；如果单
7、击窗体，则执行语句Form1.Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。（分数：15.00）_正确答案：(命令按钮的标题由 Caption 属性设置，单击命令按钮触发 Click 事件。在窗体上打印信息用Print 方法，清除窗体上的打印信息使用 Cls 方法，这两条语句在题目中已经给出，只要将其放入适当的事件过程中即可。解题步骤如下。(1)建立界面并设置控件属性。本题只用到了 1 个命令按钮，将其 Caption 属性设置为“显示”，Name 属性设置为 Cmd1。(2)编写代码。参考代码：Private Sub(Cmd1_C
8、lick()Form1.Print“显示“End SubPrivate Sub Form_Click()Form1.C1sEnd Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。2.在名称为 Form1 的窗体上建立一个水平滚动条，名称为 HS1，其最大值为 100，最小值为 0。要求程序运行后，每次移动滚动框时，都执行语句 Form1.Print HS1.Value，如图 11-14 所示(程序中不能使用任何变量)。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。（分数：
9、15.00）_正确答案：(滚动条表示的最大值由 Max 属性设置，最小值由 Min 属性设置，滚动条的当前值由 Value 属性设置；当滚动框的位置改变时，触发 Change 事件。清除窗体上原来的显示的值可以用 Cls 方法来实现。解题步骤如下。(1)建立界面并设置控件属性。本程序中用到 1 个滚动框，将其名称即 Name 属性设置为：HSl，Min 和 Max属性属性分别设置为 0 和 100。(2)编写程序代码。参考代码：Private Sub HSl_Change()ClsForm1.Print HSlEnd Sub(3)调试并运行程序。(4)按题目要求存艋。解析 在窗体上建立好控件后
10、先设置控件属性，再编写事件过程。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有工程文件 sjr3.vbp 及其窗体文件 sit3.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在窗体上有两个单选按钮，名称分别为 Op1 和 Op2，标题分别为“黑体”和“楷体”，一个文本框，名称为 Text1，字体为宋体，字号为四号字，还有一个命令按钮，名称为 C1，标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮，如图 11-15
11、所示。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图 11-16 所示。（分数：20.00）_正确答案：(单选按钮和“切换”按钮的是通过它们的 Caption 属性来设置的，当单击“切换”按钮时触发它的 Click 事件来使文本框的内容改变的。文本框的字体设置是通过它的 Font 属性来实现的。解题步骤如下。(1)编写程序代码。程序提供的代码：Option ExplicitPrivate Sub C1_Click()If Op1 ThenText1.Font=Op1.?End IfIf Op2 ThenText1.?=“楷体_GB2312“End IfEnd S
12、ub参考代码：Option ExplicitPrivate Sub C1_Click()If Op1 ThenText1.Font=Op1.CaptionEnd IfIf Op2 ThenText1.FontName=“楷体_GB2312“End IfEnd Sub(2)调试并运行程序。(3)按题目要求存盘。)解析：解析 窗体的控件及属性已经建好，只需要编写事件过程空缺的代码即可。4.在窗体上建立一个名称为 Text1 的文本框和一个名称为 Cmd1，标题为“计算”的命令按钮，如图 11-17所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数 12，放入整型变量 a 中，然后计算a!
13、提示：运算结果应放入 Long 型变量中)，在文本框中显示结果，并把结果存入文件 out.txt 中。在考生文件夹中有一个标准模块 mode.bas，该模块中提供了保存文件的过程 putdata，考生可以直接调用。注意：保存时必须存放在考生文件夹下，窗体文件名为 sit4.frm，工程文件名为 sit4.vbp。（分数：20.00）_正确答案：(当运行程序后所弹出的对话框是由 Visual Basic 系统本身提供的，通过调用函数 InputBox来实现，本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了 for 循环，最后调用了所给模块中的过程将结果进行保存。解题步骤如下。(1
14、)建立界面并设置控件属性。本题用到了 1 个文本框和 1 个命令按钮，将命令按钮的 Caption 属性设置为“计算”，Name 属性设置成 Cmd1，文本框属性为默认设置。(2)编写程序代码。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入 Long 变量中，所以把最后放入文本框内的变量设置为长整型，然后保存结果。参考代码：Private Sub Cmd1_Click()Dim aAs IntegerDim temp As LongDim i As Integera=Val(InputBox(“请输入“，“12“)temp=1For i=1 To Val(a)temp=temp*
15、iNextText1.Text=tempputdata“out.txt“，Text1.TextEnd 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 Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。三、3 综合应用题(总题
16、数：1，分数：30.00)5.在考生文件夹中有工程文件 sit5.vbp 及其窗体文件 sj6.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称为 Form1 的窗体上有一个文本框，名称为 Text1，MultiLine 属性为 True，ScrollBars 属性为 2；两个命令按钮，名称分别为 Cmd1 和 Cmd2，标题分别为“读入数据”和“计算保存”，如图 11-18 所示。要求程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入
17、一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于 400并且小于 800 的所有数之和，把求和结果在文本框 Text1 中显示出来，同时把结果存入考生文件夹中的文件 result.txt 中。(在 prog.bas 中的 putdata 过程可以把结果存入 result.txt 文件)。注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，计算结果存入result.txt 文件中，否则没有成绩。（分数：30.00）_正确答案：(建立界面并设置控件属性。程序中用到的控件及其属性如表 11-5 所示。
18、表 11-5控 件 属 性 设置值 文本框 Name Scrollbars Multiline Text1 2 true 命令按钮 Name Caption Cmd1 读入数据 命令按钮 Name Caption Cmd2 计算保存 (2)编写程序代码。程序提供的代码：窗体代码Dim i(1 To 100)As IntegerPrivate Sub Cmd1_Click()Dimj As Integerj=0Open App.Path & “/in.txt“For Input As #1For j=1 To 100Input #1，i(?)NextClose #1For j=1 To 100T
19、ext1.Text=Text1.Text&i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerFor?=1 To 100If i(j)=400 And i(j)temp=temp+i(j)End IfNextText1.?=tempputdata tempEnd Sub标准模块代码Sub putdata(ByVal a As Integer)Dim sFile As StringsFile=“/result.txt“Open App.Path & sFile For Output A
20、s #1Print #1，a；Close #1End Sub参考代码：Dim i(1 To 100)As IntegerPrivate Sub Cmd1_Click()Dimj As Integerj=0Open App.Path &“/in.txt“For Input As #1For j=1 To 100Input #1，i (j)NextC1ose #1For j=1 To 100Text1.Text=Text1.Text & i(j) & Space(5)NextEnd SubPrivate Sub Cmd2_Click()Dim temp As LongDim j As IntegerFor j=1 To 100If i(j)=400 And i(j)temp=temp+i(j)End IfNextText1.Text=tempputdata tempEnd Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 文本框显示的内容由 Text 属性设置；按钮的标题由 Caption 属性设置，单击命令按钮触发Click 事件；在本题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。
