1、(A)二级 VISUAL+BASIC 笔试-9 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框，它们的高、宽分别为300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：Text2 可以显示多行文本，并且有垂直和水平两个滚动条；程序运行时在 Text1 中显示输入的字符为“*”。程序运行后的窗体如图所示。（分数：20.00）_2.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像框，其
2、高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 pic1.bmp 载入图像框；再画两个命令按钮控件，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图所示。要求：请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加 100；单击“缩小”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。（分数：20.00）_二、简单应
3、用题(总题数：2，分数：40.00)3.考生文件夹下有一个工程文件 sjt3.vbp，其功能是：单击“读数据”按钮，则将考生文件夹下 in3.dat 文件中的 100 个 0999 的整数读入到数组 a 中；单击“计算”按钮，则找出这 100 个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Text1、Text2 中(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153=13+53+33，所以 153 就是一个水仙花数)。在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命
4、令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp。请在窗体上添加一个组合框，名称为 cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字)；添加一个名为 Text1 的文本框；再添加一个标题为“计算”、名称为 C1 的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算 5000 以内能够
5、被该数整除的所有数之和，并放入 Text1 中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体有上角的关闭按钮结束程序，否则无成绩。（分数：20.00）_三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其名称为 Form1 的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。在属性窗口中修改 Text3 的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。（分数：20.00
6、）_(A)二级 VISUAL+BASIC 笔试-9 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：40.00)1.在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框，它们的高、宽分别为300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求：Text2 可以显示多行文本，并且有垂直和水平两个滚动条；程序运行时在 Text1 中显示输入的字符为“*”。程序运行后的窗体如图所示。（分数：20.00）_正确答案：(操作步骤步骤 1：新建一个窗体，按照题目要求建立文本框控件并设
7、置其属性，程序中涉及的控件及属性见表 8 和表 9。表 8控件 窗体 文本框 1属性 CaptionName WidthHeightPasswordChar设置值 窗口 Text12400 300 *表 9 控件 文本框 2属性 Name WidthHeightMultiLineScrollBars设置值 Text22400 1200 True 3步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：窗体的 Caption 属性，文本框的Name、Width、Height、PasswordChar、Text、MultiLine、ScrollBars 属性。文本框控件的
8、MultiLine 属性用于设置文本框是否显示多行文本，值为 True 表示是，值为 False 则表示否。ScrollBars 属性设置文本框是否有水平或垂直滚动条，它有 0、1、2 和 3 这 4 个值，0 表示没有滚动条(默认值)，1 表示只有水平滚动条，2 表示只有垂直滚动条，3 表示有水平和垂直滚动条。文本框的PasswordChar 属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。由于 ScrollBars 属性的设置值较多，易混乱，请考生牢记 4 个值分别设置的文本框滚动条属性。2.在名称为 Form1 的窗体上添加一个名称为 Image1 的图像
9、框，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 pic1.bmp 载入图像框；再画两个命令按钮控件，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图所示。要求：请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加 100；单击“缩小”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。（分数：20.00）_正确
10、答案：(操作步骤步骤 1：新建一个窗体，按照题目要求建立控件并没置图像框相应属性，如图所示。)解析：考点 本题考点有：图像框的 Name、Width、Height、Picture 和 Stretch 属性，命令按钮的Name、Caption 属性。图像框(Image)控件的 Picture 属性用于在设计阶段时装载在图像框中显示的图片，它的 Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和高分别由其Width 属性和 Height 属性设置。本题要在单击按钮时实现“放大”或“缩小”的功能，应在程序中动态设置图像框大小(宽和高)，即在其原来基
11、础上增加或减小图像框的宽和高。二、简单应用题(总题数：2，分数：40.00)3.考生文件夹下有一个工程文件 sjt3.vbp，其功能是：单击“读数据”按钮，则将考生文件夹下 in3.dat 文件中的 100 个 0999 的整数读入到数组 a 中；单击“计算”按钮，则找出这 100 个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Text1、Text2 中(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153=13+53+33，所以 153 就是一个水仙花数)。在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否
12、为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行“计算”，并且必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。（分数：20.00）_正确答案：(操作步骤步骤 1：按照题目要求打开工程文件。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。参考答案Dim i As IntegerDim max As Integer, min As Integermax=-1min=1000For i=1 To 100If isnarc(a(i)Then 调用 isnarc 判断是否为水仙花
13、数If max=a(i)Then max=a(i)If min=a(i)Then min=a(i)求水仙花数中的最大值与最小值End IfNext iText1=maxText2=min步骤 3：按照题目要求调试并运行程序，如图所示。)解析：考点 本题考点有：变量初值定义、If 判断语句、For 选择语句、Val()函数、Fix()函数以及文件操作。循环遍历数组 a，通过调用 Function 过程判断是否为水仙花数，并通过 If 语句对数值进行比较，如果max=a(i)，那么 max=a(i)，最小值同理。在设置变量初值时，max=-1，min=1000，目的是方便比较数的大小。因为数组中的
14、数值最小的是 0，最大的是 999，所以，让 max 先等于-1，小于数组中的最小值，在程序执行过程中，只要有水仙花数，就一定会大于 max，这样才会赋值给 max，min=1000 也是同样的道理。Function 过程比较复杂，只有了解了内部函数的用法，才能对水仙花数的判断有一个清晰的思路。对于最值的求解，则要注意变量初值的处理。4.在考生文件夹下有一个工程文件 sjt4.vbp。请在窗体上添加一个组合框，名称为 cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字)；添加一个名为 Text1 的文本框；再添加一个标题为“计算”、名称为 C1 的命令按钮
15、，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算 5000 以内能够被该数整除的所有数之和，并放入 Text1 中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体有上角的关闭按钮结束程序，否则无成绩。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图所示。程序中用到的控件及属性见表。)解析：考点 本题考点有：文本框的 Name 属性、组合框的 Name 和 L
16、ist 属性、命令按钮的 Name 和Caption 属性、Val()函数以及 Mod 取模运算。本题主要考查组合框的属性及 For 循环语句的使用。Mod 取模运算就是求余数，例如 10mod 3=1，因为 10 除以 3 等于 3 余 1，结果就是余数。如果 a mod b=0，则说明 a 能被 b 整除，反之如果 a mod b0，则 a 不能被 b 整除。组合框(ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在没计阶段通过其 List 属性添加，每输入完一项后按Ctrl+Enter键换行再输入下一项；其
17、 Text 属性用于设置或返回其文本框部分当前的文本。根据题意，用 For 逐一循环 5000 内的整数，通过 If 语句的条件表达式：i Mod n=0，判断各个数是否能被 n 整除，把能被整除的数累加到变量 sum。i 为循环变量，n 的值为 Val(Cb1.Text)。在定义变量时注意，由于数值较大，应定义为长整型变量，防止数值过大溢出。三、综合应用题(总题数：1，分数：20.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其名称为 Form1 的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。在属性窗口中修改 Text3 的适当属性，
18、使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。（分数：20.00）_正确答案：(操作步骤步骤 1：打开本题工程文件，将 Text3 的 Visible 属性设置为 False，然后按照题目要求建立菜单并设置其属性，如图所示。)解析：考点 本题考点有：文本框的 Visible 和 Text 属性、菜单编辑器的使用(名称、内缩符号)、菜单项的 Enabled 属性、If 选择判断语句、For 循环语句以及焦点触发的 GotFocus 事件过程。本题中隐藏的文本框 Text3 的功能相当于剪贴板。在文本框(Text1 或 Text2)获得焦点触发的 GotFocus 事件过程中，用窗体变量
19、 which 记录下该文本框序号(1 或 2)。在“编辑”菜单的 Click 事件过程中，首先根据 which 的不同值来判断相应文本框(Text1 或 Text2)的内容是否为空，如果内容为空则设置“剪切”和“复制”菜单项不可用，否则设置“剪切”和“复制”菜单项可用；其次判断 Text3 文本框的内容是否为空，如果内容为空则设置“粘贴”菜单项不可用，否则设置“粘贴”菜单项可用。在“复制”命令的单击事件过程中，根据 which 的值不同，将相应文本框(Text1 或 Text2)中的内容复制到 Text3 文本框中。在“剪切”命令的单击事件过程中除应执行与“复制”命令相同的语句外，还应执行清除当前文本框中内容的语句。在“粘贴”命令的单击事件过程中，也要根据 which 值的不同，将 Text3文本框中的内容粘贴到文本框中的原内容之后。对于 which 值的判断，贯穿整个程序，因此要明白为什么要设置 which 值来进行判断。
