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

2024-07-16 17:58:44

字体：大中小

来源：转载

供稿：网友

在上一节，我们制作了一个 Style 为 0 的列表程序，现在我们来制作一个 Style 为 1 的列表程序。

虽然仅仅是 Style 的改变，但整个程序发生了完全的变化。本节中的程序更为科学，而且只需改动几行代码，同样适合上一节的程序。

在编制本节程序前，我们有必要对 For ··· Next ···循环结构语句做个了解。

一、For 循环语句：

在实际生活中，我们经常会遇到一些操作并不复杂，但需要重复多次处理的情况，如人口统计、银行利率的计算等，为此，Visual Basic 提供了循环语句来专门解决此类情况。

循环语句的具体情况，我们将在以后的章节中阐述，本节我们只是针对 For 循环语句做个大致的了解。

1、For ··· Next ···语句的一般格式：

For 变量 = Start To End [Step]

［需要循环的语句］

［Exit For］

Next 变量

说明：

（1）、For 后的“变量”与 Next 后的“变量”为同一个，“变量”应该是数值类型的。

（2）、Start 代表的是循环的初始值，End 代表的是循环的终值。假设从 1 到 100 进行循环，那么，循环初值是 1 ，终值是 100 ；假设从 1 到 50 进行循环，那么初值是 1 ，终值是 50 。

（3）、To 是循环中的关键字，表示从初值到终值的范围，不能省略。

（4）、Step 是步长值，代表变量的增量，既可以是正数（递增循环），也可以是负数（递减循环），但不能为 0 ，如果步长值为 1 即默认状态，可以省略不写。

（5）、需要循环的语句，既可以是一个，也可以是多个语句，但必须放在 For 与 Next 之间。

（6）、Exit For：当程序执行到此处，自动退出本层循环。

（7）、需要循环的语句与 Exit For 都可以省略，这时表示的是一个无内容的空循环，主要做为程序延迟使用。

2、示例一：

编写一个程序，用来计算 1 到 100 间所有整数的和是多少。

（1）、程序界面与控件属性：

程序界面与控件属性如图一，为了让大家看得更为清楚，我们将标签控件的 BoderStyle 属性设为 1 。

图一

（2）、程序功能：

用户点击“开始”按钮（CmdStart）开始计算，完成后将结果用标签（LblShow）显示出来。

（3）、书写代码：

“开始”按钮的点击事件：

Private Sub CmdStart_Click()

x = 0

For y = 1 To 100

x = x + y

Next y

LblShow.Caption = "最后的结果是：" & x

End Sub

说明：

（1）、1 到 100 中所有整数的和可以这样来看：1＋2＋3＋······＋100 ，即 100 次相加，那么这重复的 100 次相加可以通过 For 循环来完成。

上一篇：VB 神童教程第二章第九节——综合示例三

下一篇：VB 神童教程第二章第十一节——滚动条