实验六 过程
一、控件属性的设置 (计时器)
1、在标题为“列表框”、名称为Form1的窗体上画
一个名称为List列表框，通过属性窗口输入四个列表项：“数学”、“语文”、“历史”、“地理”，列表项采用“复选框形式”，如图6-1所示。列表框的宽为1100，高不限。 注意：存盘时,工程文件名为sjt6-1.vbp,窗体文件名为sjt6-1.frm。
图6-1 2、在名称为Form1的窗体上画三个单选按钮，其名称分别为Option1、Option2和Option3
（如图6-2所示），然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能： 1) 窗体标题为“设置单选按钮属性”, 2）三个单选按钮的标题分别为“按钮1”、“按钮2”和“按钮3” 3）初始状态为，第一个单选按钮为“选中” 4）程序运行后，第二个单选按钮为“禁用” 5）程序运行后，第二个单选按钮为不可见 程序的运行情况如图6-2（1）所示。 要求：不编写任何代码。
注意：存盘时,工程文件名为sjt6-2.vbp,窗体文件名为sjt6-2.frm。
图6-2
图6-2（1）
3、在名称为Form1的窗体上添加一个名称为Shapel的形
状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。
添加一个名称为Timer1的计时器，在属性窗口中将其设置为禁用，时间间隔为0.5秒，窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时，工程文件名保存为sjt6-3.vbp，窗体文件名保存为sjt6-3.frm。
图6-3 二、过程练习
1、（FUN过程）在案例1文件夹下有一个工程文件sjt6-4.vbp，相应的窗体文件为sjt6-4.frm，
在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0-1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在Function Fun()和end Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 2、（FUN过程）在案例2文件夹下有一个工程文件sjt6-5.vbp，相应的窗体文件为sjt6-5.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0-200范围内能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 3、（FUN过程）在案例3文件夹下有一个工程文件sjt6-6.vbp，相应的窗体文件为sjt6-6.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0-100范围内所有偶数的平方和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
4、列表框，过程调用
在案例4文件夹中有一个工程文件sjt6-7.vbp。窗体上已有控件，如图所示，请在属性窗口中将list1设置为可以多项选择（允许使用shift或ctrl进行选择）列表项。要求：双击list1中的某一项时，该项目被添加到list2中，同时在list1中清除该项目。若单“》”按钮，list1中所有的项目显示在list2中（list2中已有项目不变），list1中的内容不变。
图6-4 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
5、（单选按钮，IF语句与For循环）
在案例5文件夹中有一个工程文件sjt6-8.vbp，窗体控件布局如图1所示。程序运行时，在文本框text1中输入一个正整数，选择“奇数和”或“偶数和”，则在label2中显示所选的计算类别。单击“计算”按钮时，将按照选定的“计算类别”计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在label3中。程序的一次运行结果如图2所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图6-5a
图6-5b 6、计时器，滚动条
在案例6文件夹下有一个工程文件sjt6-9.vbp。程序运行后，如果单击“开始”按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击“停止”按钮，则图片停止移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图6-6 7、在案例7文件夹下有一个工程文件sjt6-10.vbp。窗体中已经给出了所有控件，如图所
示。程序运行时，单击\"发射\"按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入图片云中后则停止，并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签Label1和Label2中；单击\"保存\"按钮，则把飞行距离和所用时间存入考生文件夹下的out4.txt文件中。
已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
图6-7
三、拓展练习
1、在拓展1文件夹下有一个工程文件sjt6-11.vbp，运行情况如图所示。程序的功能是计算下
列表达式的值：
其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为\"计算\"、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显示在名称为Label1的标签中。
在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使x=10，N=5，单击\"计算\"按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。图6-8 最后，程序按原文件名存盘。
2、在拓展2文件夹中有一个工程文件sjt6-12.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
图6-9
