VB 神童教程第二章第十节——综合示例四

《VB 神童教程第二章第十节——综合示例四》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB 神童教程第二章第十节——综合示例四作者：未知    阅读人次：34201    文章来源：未知    发布时间：2004-12-15    网友评论(101)条 在上一节，我们制作了一个Style为0的列表程序，现在我们来制作一个Style为1的列表程序。虽然仅仅是Style的改变，但整个程序发生了完全的变化。本节中的程序更为科学，而且只需改动几行代码，同样适合上一节的程序。在编制本节程序前，我们有必要对For···Next···循环结构语句做个了解。一、For循环语句：在实际生活中，我们经常会遇到一些操作并不复杂，但需要重复多次

2、处理的情况，如人口统计、银行利率的计算等，为此，VisualBasic提供了循环语句来专门解决此类情况。循环语句的具体情况，我们将在以后的章节中阐述，本节我们只是针对For循环语句做个大致的了解。1、For···Next···语句的一般格式：For变量=StartToEnd[Step]　　　［需要循环的语句］　　　［ExitFor］Next变量说明：（1）、For后的“变量”与Next后的“变量”为同一个，“变量”应该是数值类型的。（2）、Start代表的是循环的初始值，End代表的是循环的终值。假设从1到100进行循环，那么，循环初值

3、是1，终值是100；假设从1到50进行循环，那么初值是1，终值是50。（3）、To是循环中的关键字，表示从初值到终值的范围，不能省略。（4）、Step是步长值，代表变量的增量，既可以是正数（递增循环），也可以是负数（递减循环），但不能为0，如果步长值为1即默认状态，可以省略不写。（5）、需要循环的语句，既可以是一个，也可以是多个语句，但必须放在For与Next之间。（6）、ExitFor：当程序执行到此处，自动退出本层循环。（7）、需要循环的语句与ExitFor都可以省略，这时表示的是一个无内容的空循环，主要做为程序延迟使用。2、示例一

4、：编写一个程序，用来计算1到100间所有整数的和是多少。（1）、程序界面与控件属性：程序界面与控件属性如图一，为了让大家看得更为清楚，我们将标签控件的BoderStyle属性设为1。图一（2）、程序功能：用户点击“开始”按钮（CmdStart）开始计算，完成后将结果用标签（LblShow）显示出来。（3）、书写代码：“开始”按钮的点击事件：PrivateSubCmdStart_Click()x=0Fory=1To100x=x+yNextyLblShow.Caption="最后的结果是："&xEndSub说明：（1）、1到100中所有整数

5、的和可以这样来看：1＋2＋3＋······＋100，即100次相加，那么这重复的100次相加可以通过For循环来完成。（2）、程序中y只是用来决定循环次数的变量，通常的，我们会利用其他变量来编写程序，这里的X就是一个求和累加器，它的初值是0，终值则是我们最后需要的数值。（3）、X=X+y，是指变量X与y相加后将新的值赋给X。当X为初始的0时，y进入第一次循环即y=1，X+Y=1；系统将X=1记录下来，然后进入第二次循环即y=2，X+Y=3（1+2），然后将X=3记录下来并进入第三次循环，以此类推。这就将1＋2＋3＋······＋100的

6、最终值算了出来。（4）、经过第一百次循环，程序执行Nexty后的语句，即将最后结果用标签显示出来。3、示例二：计算1到100间所有奇数的和。只需将上例中的“开始”按钮的循环程序加上步长值即可。代码如下：PrivateSubCmdStart_Click()x=0Fory=1To100Step2x=x+yNextyLblShow.Caption="最后的结果是："&xEndSub二、列表程序二：1、程序界面：最终的程序界面如图二：图二跟上一节的内容相比，带复选框的选择是通过勾选复选项前面的复选框来确定一个表项是否被选中的，它可以一次选中多个

7、表项并一次移动多个表项。上一节的程序，一次只能移动一个表项。2、前后两种程序的区别：上一节的程序中，对单个表项进行移动，首先加入了是否选中的判断，然后再进行移动；全部移动，首先对目标框清零，再进行移动。它们虽然比较好理解，但程序的有效性却不佳。本节的程序，对单个与全部表项进行移动，都采用循环法，可以一次移动多个表项。3、程序代码：（1）、窗体的载入事件（Form_Load）跟上一节一样：PrivateSubForm_Load()　LstLeft.AddItem"刘德华"　LstLeft.AddItem"张学友"　LstLeft.AddI

8、tem"郭富城"　LstLeft.AddItem"黎　明"　LstLeft.AddItem"谭咏麟"　LstLeft.AddItem"梅艳芳"　LstLeft.AddItem"张曼玉"EndSub（2）、向