一、基本操作题.doc

1、一、基本操作题（ 1）Form1 的窗体上绘制一个名称 Lab1的标签；再绘制一个名称为 Lst1的列表框， 通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限。编写适当的事件过程，使程序运行后，若双击列表框的任意一项，则把列表的项目数在标签中显示出来。程序运行结果如图1-22所示。注意：程序中不准使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp ，窗体文件名为vbsj1.frm 。（ 2）在名为 Form1的窗体上建立两个名为 Cmd1和 Cmd2 的命令按钮，标题分别为 体育 和 美术 。编写适当的事件过程，使程序运行后，若单击 体育 命令按钮，窗体上显示

2、 我喜欢体育 ；若单击 美术 命令按钮，窗体上显示 我喜欢美术 ，如图 1-23所示。注意：程序中不要使用任何变量， 直接显示字符串； 文件必须存放在考生文件夹中， 窗体文件名为 vbsj2.frm ，工程文件名为 vbsj2.vbp 。图 1-22图1-23二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm 。在名为 Form1 的窗体中有一个名为Txt1 的文本框； 请在窗体上绘制两个名称分别为 Fra1和Fra2的框架， 其标题分别为 性别 和 身份 ；在 Fra1中绘制两个名称分别为 Opt1和Opt2的单选按钮，其标题分别为 男 和

3、女 ；在 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 #1Print #1, O

4、pt1.Value, Opt2.Value, Opt3.Value, Opt4.Value, Txt1.TextClose #1End Sub注意：不得修改窗体文件中已经存在的程序和Txt1 的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后保存修改后的文件。（2）在考生文件夹中有一个工程文件vbsj4.vbp 及其窗体文件 vbsj4.frm 。请在名为 Form1 的窗体上绘制两个名称分别为 Txt1 和 Txt2 的文本框，文本框的内容分别设置为 计算机考试 、Visual Basic；然后绘制一个名称为Labl 的标签

5、，其高度为300，宽度为 2500；再绘制两个名称分别为Opt1和 Opt2的单选按钮，它们的标题分别为交换 和 连接 ；最后再绘制一个名称为Cmd1的命令按钮，其标题为 确定 。编写适当的事件程序。使得程序运行后，如果选中 交换 单选按钮并单击 确定 按钮，则 Txt1 文本框中内容与 Txt2 文本框中内容进行交换，并在标签处显示 交换完成 ；如果选中 连接 单选按钮并单击 确定 按钮后，则把交换后的 Txt1 和 Txt2 的内容连接起来，并在标签处显示连接的内容，如图 1-25所示。保存时，工程文件名为vbsj4.vbp ，窗体文件名为 vbsj4.frm 。注意：不得修改已经给出的程

6、序。在结束程序运行之前，必须选中一个单选按钮，并单击出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 确定 按钮。退图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 BooleanDim flag As Booleanflag = Trueb% = 2Do While b%=Int(