中文excel2000编程24学时教程07.pdf

下载 下载 第7学时 循 环 代 码 如果需要进行相同的操作 1 5次，你希望编写同样的代码行 1 5次吗？显然答案是否定的， 用不着这样做。实际上，用循环语句可用轻而易举地实现：循环运行多次重复相同的代码。 在本学时中，将学习D o循环和F o r语句。 本学时的重点包括： • 实现F o r语句 • 使用D o循环 7.1 For...Next语句 当编写代码时，你会发现经常需要多次重复进行某种操作。在需要重复执行一组语句的 次数一定时，可以使用F o r …N e x t循环。F o r …N e x t语句的语法如下： For c o u n t e r = s t a r t To e n d [Step s t e p] [s t a t e m e n t s] [Exit For] [s t a t e m e n t s] Next [ c o u n t e r] F o r …N e x t语句执行一定的次数，这取决于s t a r t和e n d参数的设置。c o u n t e r是一个整数变量， 每次循环增加 1，除非设置了可选参数 s t e p ，此时c o u n t e r每次以 s t e p 的数值变化。每次循环都 要执行N e x t 语句。当 c o u n t e r 的值大于e n d 的数值时，循环结束执行。可选的 Exit For 语句通常 放置在一条I f语句或者 Select Case语句中。为了练习使用 F o r …N e x t 语句，请打开一个新的工 作簿，将该工作簿保存为“ H o u r 7 ”。按下A l t + F 1 1键打开Visual Basic 编辑器。现在完成如下 步骤，你将看到一个简单的 F o r …N e x t 语句例子。 1 )在工程资源管理器中的“ T h i s Wo r k b o o k ”上单击鼠标右键，并选择“插入”、“模块”。 2 ）插入一个新的名为“ B e e p M e ”的子程序。这是一个使计算机发出一定次数蜂鸣声的 简单过程。 3 ）为B e e p M e过程输入如下代码： Dim iCounter As Integer For iCounter = 1 To 15 B e e p N e x t 4 ）按下F 5键运行过程，应当听到很长的蜂鸣声。 如果希望练习使用 F o r语句，可以改变语句的执行时间，例如将参数 1 5改为2 5 或者5来观 察变化。如果查看F o r语句的语法，你会注意到一个可选从句 S t e p 。这个从句可以控制F o r语句 如何计数。例如，可以设定让 F o r语句每次计数为 5 、1 0或者任何你希望的单位。可以通过将 s t e p设置为- 1使计数每次递减。按照如下步骤创建一个递减计数的 F o r语句： 1）插入一个新的名为C o u n t d o w n 的子程序，这个过程将显示一系列的消息框以说明 F o r语 第7学时 循 环 代 码使用61 下载 句和可选的 S t e p从句的用法。 2 ）为C o u n t d o w n过程输入如下代码： Dim iCounter As Integer For iCounter = 1 To 3 MsgBoxCountUp: iCounter N e x t For iCounter = 3 To 1 Step - 1 M s g B o x CountDown: iCounter N e x t 3 ）运行该过程，将看到第一个消息框，如图 7 - 1所示。从消息框中可以看到， i C o u n t e r变 量的当前值为 1。 图7-1 观察本消息框的文本 ，可 以看到计数器的数值是1 4 ）单击消息框上