| Min | 500 |
| Max | 2000 |
| Large Change | 50 |
|
Small Change |
20 |
编写适当的事件过程。使得程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如图27-4所示。要求程序中不得使用任何变量。
图27-3
图27-4
注意：保存时必须存放在考生文件夹下，工程文件名为kt2.vbp，窗体文件名为kt2.frm。
二、简单应用题
下面出现的“考生文件夹”均为c：＼wexamk20060001。
1．在考生文件夹下有一个工程文件kt3.vbp，请在窗体上画两个单选按钮(名称分别为Opfion1和Option2，标题分别为“添加项目”和“删除项目”)、一个列表框(名称为List1)和一个文本框(名称为Text1)，如图27-5所示。编写窗体的Click事件过程，使得程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于三个)，将其添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图27-6所示。考生文件夹下的工程文件kt3.vbp(相应的窗体文件名为kt3.frm)可以实现上述功能，但这个程序不完整，请将其补充完整。
图27-5
图27-6
要求：删除程序中的注释符(即“'”)，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。
图27-7
图27-8
2．在考生文件夹下有一个工程文件kt4.vbp(相应的窗体文件名为kt4.frm)，其功能是通过调用过程Sort将数组按降序排列，请装入该文件。程序运行后，在四个文本框中各输入一个整数(如图27．7所示)，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如图27-8所示。这个程序不完整，请将其
补充完整，并能正确运行。
要求：删除程序中的注释符(即“'”)，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。
三、综合应用题
下面出现的“考生文件夹”均为c：＼wexamL20060001。
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后画一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图27-9所示。使得程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，并放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求出得的和存入考生文件夹下的dataout.txt文件中。
图27-9 在考生文件夹下有一个工程文件kt5.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把指定文件下的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
责任编辑：cyth
