郑州电脑维修 Win7粉丝 网站地图
您的位置:IT服务网办公软件WPS浏览正文

【VBA教材】41.常用语句透析(十五)

2011-11-12 16:43:58 浏览次数:0 评论 0

【VBA教材】41.常用语句透析(十五)这篇文章的内容如下:

循环语句(又称控制结构),它可能重复执行一系列代码,从而批量地完成工作任务。循环语句在实际工作中应用极广,且因为循环语句不可能利用录制宏产生,所以必须潜心掌握它的语法与结构。

本节开始,对循环语句进行详细地语法剖析及实例演示。

循环语句主要包括以下几类:

lFor Next

lFor Each Next

lDo Loop

lDo While Loop

本节对For Next语句进行剖析。

工作中,我们可以使用 For...Next 语句去重复一个语句块,它的循环次数可以自由指定,循环的步骤也可以自由指定。

For Next循环语句的基本语法如下:

For counter = start To end [Step step]

[statements]

[Exit For]

[statements]

Next [counter]

语法列表中包括五个部分,其参数详解如表41-1所示。

表41-1For Next语法详解

部分

描述

counter

必要参数。用做循环计数器的数值变量。这个变量不能是 Boolean 或数组元素

start

必要参数。counter 的初值

End

必要参数,counter 的终值

Step

可选参数。counter 的步长。如果没有指定,则 step 的默认值为 1

Statements

可选参数。放在 For 和 Next 之间的一条或多条语句,它们将被执行指定的次数

其中counter是计数器变量,由用户声明;而start和end则表示计数器的起止范围,用户可以根据需求定义这个范围;而step表示步长,即计数器累加的单位。它可以是正数,也可以是负数,但是不能为0,且不能大于End、不能小于Star。当循环开始后,计数器逐步累加,累加值由步长决定;Statements则是循环语句的核心,虽然它是可选参数,然而如果忽略此参数,所有循环都失去意义。

例如小学数学中常有1累加到100这类速算题,如果利用VBA循环来处理,可以零点几秒钟计算完成,代码如下:

____________________________________________

Sub 累加1到100()

'声明变量

Dim Item As Integer, Sums As Integer

'指定步长和循环的起止范围

For Item = 1 To 100 Step 1

'累加计数器(其中变量Sums初始化时值为0)

Sums = Sums + Item

'执行下一个

Next Item

'报告最后结果

MsgBox Sums

End Sub

____________________________________________

在该过程中,循环的范围是1到100,循环的步长为1,而默认状态即为1,所以本例中的步长也可以忽略不写,VBA自动按1计算。

为了获取1到100的累加值,需要使用一个中间变量,该变量本身为0,仅仅在循环中逐个累加计数器,直到循环结束。最后直接报告变量的值即为需求的结果。

也可以从最大值递减至最小值,那么步长需要使用负数。代码如下:

____________________________________________

Sub 累加1到100()

'声明变量

Dim Item As Integer, Sums As Integer

'指定步长和循环的起止范围

For Item = 100 To 1 Step -1

'累加计数器(其中变量Sums初始化时值为0)

Sums = Sums + Item

'执行下一个

Next Item

'报告最后结果

MsgBox Sums

End Sub

____________________________________________

此过程与上一个过程执行结果完全相同,仅在写法上不同。



本文地址:http://www.itfw5.com/office/WPS/10350.html
  • IT服务网为郑州市区提供郑州电脑上门维修服务;
    请自觉遵守相关政策法规,严禁发布色情/暴力/反动言论。

    相关广告

    WPS推荐文章