1、二级 VISUAL+BASIC 机试 7 及答案解析(总分：100.00，做题时间：90 分钟)一、B1 基本操作题 /B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c:/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上建立一个名称为 Text1 的文本框，一个名称为 Cmd1，标题为“输出”的命令按钮，如图 4-1 所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。 注意：在程序中不能使用任何变量。保存时必须存放在考生文
2、件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。 (2)在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图 4-2 所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图 4-3 所示。 注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp （分数：30.00）_二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c:/
3、wexam/25160001。 (1)在考生文件夹中有工程文件 sjt3.vbp及其窗体文件 sjt3.frm，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有 3 个名称分别为 Text1、Text2 和 Text3 的文本框，一个名称为 C1，标题为“计算”的命令按钮，如图 4-4 所示。要求程序运行后，在 Text1 和 Text2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含两个整数)累加起来并在 Text3 中显示。 (2)在窗体上建立一个名称为 Te
4、xt1 的文本框，建立一个名称为 Cmd1，标题为“计算”的命令按钮，如图 4-5 所示。要求程序运行后，如果单击“计算”按钮，则求出 100-200 之间所有可以被 3 整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt 文件中。 (在考生的文件夹下有一个 mode.bas 标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。) 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm。工程文件名为 sjt4.vbp，结果存入 out.txt 文件。 （分数：40.00）_三、B3 综合应用题/B(总题数：1，分数：30.00)3.下面
5、出现的“考生文件夹”均为 c:/wexam/25160001。 在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有一个文本框，名称为 Text1，MuitiLine 属性为 True，ScrollBars 属性为 2，两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为“读入数据”和“排序显示保存”，如图 4-6 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的
6、 100 个整数，放入一个数组中(数组下界为 1)：如果单击“排序显示保存”按钮，则对这 100 个整数按从小到大进行排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块 prog.bas 过程可以把指定个数的数组元素存入 result.txt 文件)。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，排序结果存入 result.txt 文件，否则没有成绩。 （分数：30.00）_二级 VISUAL+BASIC 机试 7 答案解析(总分：100.00，做题时间：90
7、分钟)一、B1 基本操作题 /B(总题数：1，分数：30.00)1.注意：下面出现的“考生文件夹”均为 c:/wexam/25160001。 请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上建立一个名称为 Text1 的文本框，一个名称为 Cmd1，标题为“输出”的命令按钮，如图 4-1 所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。 注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为 sjt1.frm，工程文件名为 sjt1.vbp。 (2)在名称为
8、Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图 4-2 所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图 4-3 所示。 注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。保存时必须存放在考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp （分数：30.00）_正确答案：()解析：(1)解析在窗体上建立好控件后，先设置控件属性，再编写事件过程。 通过命令按钮的 Caption属性来设置其标题，单击命令按钮触发 Click 事件；文本框显示内容是用 T
9、ext 属性。文本框中的内容通过其 Text 属性得到，在命令按钮的 Click 事件中利用 Print 方法将文本框中的内容输出，完成题目要求。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-1。 第二步：编写程序代码。 参考代码： Private Sub Cmd1_Click() Cls Print Text1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)解析在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 命令按钮的 Caption 属性用来设置其标题，单击命令按钮触发 Click 事件，本题考查的是按钮的摆放
10、位置的设置，涉及到对象的 Left 和 Top 属性。Left 表示控件与所在窗体的左边之间的距离，Top 表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的 Left 和 Top 设置相同即可。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-2。 二、B2 简单应用题/B(总题数：1，分数：40.00)2.注意：下面出现的“考生文件夹”均为 c:/wexam/25160001。 (1)在考生文件夹中有工程文件 sjt3.vbp及其窗体文件 sjt3.frm，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能
11、修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上有 3 个名称分别为 Text1、Text2 和 Text3 的文本框，一个名称为 C1，标题为“计算”的命令按钮，如图 4-4 所示。要求程序运行后，在 Text1 和 Text2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含两个整数)累加起来并在 Text3 中显示。 (2)在窗体上建立一个名称为 Text1 的文本框，建立一个名称为 Cmd1，标题为“计算”的命令按钮，如图 4-5 所示。要求程序运行后，如果单击“计算”按钮，则求出 100-200 之间所有可以被 3 整除的数的总和，在文本框
12、中显示出来，并把结果存入考生文件夹下的out.txt 文件中。 (在考生的文件夹下有一个 mode.bas 标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。) 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjt4.frm。工程文件名为 sjt4.vbp，结果存入 out.txt 文件。 （分数：40.00）_正确答案：()解析：解析在窗体上建立好控件后，先设置控件属性，再编写事件过程。 要使文本框中的字符用于算术运算，首先要利用 Val 将文本框中输入的数字字符转换为数字类型(文本框中的内容默认为字符串类型)。解题步骤： 第一步：建立界面并设置控件属性。 第二步：
13、编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim i As Integer，s As Integer Dim a As Integer，b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If ab Then i = a a = b b = ? End If s = 0 For i = a To b s = s + ? Next i Text3.Text = s End Sub 参考代码： Option Explicit Private Sub C1_Click() Di
14、m i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a b Then i = a a = b b = i End If s = 0 For i = a To b s = s + i Next i Text3.Text = s End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。(2)解析在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 命令按钮的 Caption 属性用来设置其标题，单击命令按钮触发 Click 事件：在
15、文本框中显示内容通过其 Text 属性来设置。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 4-3。 三、B3 综合应用题/B(总题数：1，分数：30.00)3.下面出现的“考生文件夹”均为 c:/wexam/25160001。 在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有一个文本框，名称为 Text1，MuitiLine 属性为 True，ScrollBars
16、 属性为 2，两个命令按钮，名称分别为 Cmd1和 Cmd2，标题分别为“读入数据”和“排序显示保存”，如图 4-6 所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的 100 个整数，放入一个数组中(数组下界为 1)：如果单击“排序显示保存”按钮，则对这 100 个整数按从小到大进行排序，把排序后的全部数据在文本框 Text1 中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块 prog.bas 过程可以把指定个数的数组元素存入 result.txt 文件)。 注意：文件必须存放在考生文件夹下，窗体文件名为 sjt5.frm，工程文件名为 sjt5.vbp，排序结果存入 result.txt 文件，否则没有成绩。 （分数：30.00）_正确答案：()解析：分析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。 文本框显示的内容由 Text 属性设置：按钮的标题由 Caption 属性没置，单击命令按钮触发 Click 事件：在本题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用 Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤： 第一步：建立界面并没置控件属性。程序中用到的控件及其属性见表 4-4。
