基本操作题.doc

一、基本操作题（1）Form1的窗体上绘制一个名称Lab1的标签；再绘制一个名称为Lst1的列表框，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限。编写适当的事件过程，使程序运行后，若双击列表框的任意一项，则把列表的项目数在标签中显示出来。程序运行结果如图1-22所示。注意：程序中不准使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。（2）在名为Form1的窗体上建立两个名为Cmd1和Cmd2的命令按钮，标题分别为体育和美术。编写适当的事件过程，使程序运行后，若单击体育命令按钮，窗体上显示我喜欢体育；若单击美术命令按钮，窗体上显示我喜欢美术，如图1-23所示。注意：程序中不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm，工程文件名为vbsj2.vbp。 图1-22 图1-23二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体中有一个名为Txt1的文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为性别和身份；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为男和女；在Fra2中绘制两个名称分别为Opt3和Opt4的单选按钮，其标题分别为学生和老师；再绘制一个名为Cmd1的命令按钮，其标题为确定。程序界面如图1-24所示。请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击确定按钮，就可以按照表1-2把结果显示在文本框中。表1-2 运行结果表性别身份在文本框中显示的内容男学生男学生男老师男老师女学生女学生女老师女老师程序源码：Private Sub Form_Unload(Cancel As Integer) Open dw051.dat For Output As #1 Print #1, Opt1.Value, Opt2.Value, Opt3.Value, Opt4.Value, Txt1.Text Close #1End Sub注意：不得修改窗体文件中已经存在的程序和Txt1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后保存修改后的文件。（2）在考生文件夹中有一个工程文件vbsj4.vbp及其窗体文件vbsj4.frm。请在名为Form1的窗体上绘制两个名称分别为Txt1和Txt2的文本框，文本框的内容分别设置为计算机考试、Visual Basic；然后绘制一个名称为Labl的标签，其高度为300，宽度为2500；再绘制两个名称分别为Opt1和Opt2的单选按钮，它们的标题分别为交换和连接；最后再绘制一个名称为Cmd1的命令按钮，其标题为确定。编写适当的事件程序。使得程序运行后，如果选中交换单选按钮并单击确定按钮，则Txt1文本框中内容与Txt2文本框中内容进行交换，并在标签处显示交换完成；如果选中连接单选按钮并单击确定按钮后，则把交换后的Txt1和Txt2的内容连接起来，并在标签处显示连接的内容，如图1-25所示。保存时，工程文件名为vbsj4.vbp，窗体文件名为vbsj4.frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击确定按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 图1-24 图1-25三、综合应用题在考生文件夹中有一个工程文件vbsj5.vbp及窗体文件vbsj5.frm。在名为Form1的窗体上有一个名为Txt1的文本框；还有两个名称分别Cmd1和Cmd2的命令按钮，它们的标题分别为计算和保存，如图1-26所示。 图1-26有一个名为isprime的函数过程可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。编写适当的事件过程，使得在运行时，单击计算按钮，则找出大于1000的第1个素数，并显示在Txt1中；单击保存按钮，则把Txt1中的结果存入考生文件夹下的dw053.dat文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过保存按钮存入dw053.dat文件中，否则无成绩。程序源码：Private Function isprime(a _As Integer) As Boolean Dim flag As Boolean flag = True b% = 2Do While b%=Int(a / 2) _And flag If Int(a / b%) = _a / b% Then flag = False Else b% = b% + 1 End If Loop isprime = flagEnd Function女人如春天的桃花。阳春三月，春暖花开时，婀娜多情的桃花会竞相开放，如一片片红霞，与如纱的垂柳，形成了桃红柳绿的春日美景。而青春靓丽的美女，正恰如春光明媚中盛开的桃花，缤纷绚烂，激情四射，充满青春的活力，充满青春的幻想，充满青春美妙的情怀。青春岁月， 容光焕发的美女，爽朗的笑声，轻盈飘逸的秀发，眉飞色舞的眼神，热情奔放的性格，恰如妩媚鲜艳的桃花，装扮了温暖的春天，惊艳了春天的美丽。无论走到哪里，美女总会给人赏心悦目的感觉，总是一道靓丽的风景，使春天增添了无与伦比的靓丽，所以说女人如春天如霞的桃花！女人如夏日的荷花。“ 接天莲叶无穷碧，映日荷花别样红。” 炎炎烈日下，荷花亭亭玉立，静谧地开放，粉绿相间，分外妩媚。“出污泥而不染，濯清涟而不妖 .” 清白闲逸，自由脱俗，清新淡雅，芬芳四溢的天然美丽。远离喧嚣的尘市，在一方水土里，独享一份圣洁高雅，恬静安然的舒适，柔情似水的缠绵婉约，恰如一个静享清欢的善良女子。“ 清水出芙蓉，天然去雕饰 .” 女人天生就是清纯、善良、静美、温柔如水的性格，拥有善良的心灵，宽容的心胸。每天只求安静地做好自己，不斤斤计较，不张扬，以一颗博爱之心，宽容身边的人和事。容忍于心，善存心间，用一颗感恩的心，温暖着身边的人和事，所以说女人如夏日清爽的荷花！女人如秋天的菊花。秋高气爽，硕果累累时，到处是丰收的喜悦景象。一场秋雨一场寒时，百花凋谢，万物凋零的时刻，菊花却在风吹雨打中毅然绽放，用顽强的生命力，笑对风雨。多姿多彩的菊花，傲然开放，装点了秋日的荒凉。“ 采菊东篱下，悠然见南山。”怡然自得的享受啊！而如花的女人，一路走来，吃尽千辛万苦，历经曲曲折折，却毫不畏惧艰难。照顾老人，陪伴孩子，洗衣做饭，工作加班，任劳任怨。宁愿自己吃苦受累，从不抱怨。在平凡的岁月，书写着女人们的精彩与不平凡。即使韶华远逝，年青的容颜失去光彩，依然在为家人创造着温暖、快乐、幸福的家园，所以说女人如秋霜中绽放的菊花！女人如冬日的梅花。在白雪皑皑的冬季，天苍苍，野茫茫之时，大地一片衰败的景象。行走在路上，寒风凛冽，刮到脸上如刀般的疼痛，但是女人依然在路上坚强地面对、承受。这不正是无惧风雪 、坚韧不拔、顽强不屈的梅花的品格吗？“ 遥知不是雪，唯有暗香来 .” 梅花以它的弱小娇艳的身躯，凌寒傲雪，装点着寂寞荒凉的冬日！在光阴的故事里，女人走过青春岁月，走过三十而立，走过四十不惑此刻，正逐渐走在繁华落幕的路上，肩负着生活无奈的痛苦，品尝着人间聚散离合的悲欢。无论条件多么的艰苦，女人们一如既往地在路上打拼、