2009年4月全国计算机等级二级VisualBaisc上机试练习习题(27)计算机二级考试

文章作者 100test 发表时间 2009:04:09 23:37:15
来源 100Test.Com百考试题网

　　第27套上机考试试题
　　一、基本操作题
　　下面出现的“考生文件夹”均为c：＼wexam＼20060001。
　　请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
　　1．在名称为Forml的窗体上画一个标签(名称为Label1，标题为空白，BorderStyle属性为l，Visible属性为False)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)，如图27-1所示。编写命令按钮的Click事件过程，使得程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如图27—2所示。要求程序中不得使用任何变量。
　　
　　图27-1
　　
　　图27-2
　　注意：保存时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kt1.frm。
　　2．在名称为Forml的窗体上画一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1)，如图27-3所示。在属性窗口中对滚动条的属性进行设置，如表27-1所示。
　　表27-1

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)。