While语句和Care语句的语规则是什么？不会写。谢谢！

secondonsite

While语句和Care语句的语规则是什么？不会写。谢谢！

一点通

可以查一下帮助,以下是帮助中的示例

While...Wend 语句示例

本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。

1. Dim Counter
   
   
2. Counter = 0    '

复制代码

设置变量初值。

1. While Counter < 20    '

复制代码

测试计数器的值。

   

1. Counter = Counter + 1    '

复制代码

将计数器的值加一。

1. Wend    '

复制代码

当

1. Counter > 19

复制代码

时则循环终止。

1. Debug.Print Counter    '

复制代码

在“立即”窗口中显示数字

1. 20

复制代码

。

secondonsite

谢谢一点通。

shenlan

补充一点内容:

While...Wend 语句

描述

当指定的条件为 True 时，执行一系列的语句。

语法

While condition
[statements]
Wend

While...Wend 语句语法有以下部分：









部分

描述



condition

数值或字符串表达式，其计算结果为 True 或 False。如果 condition 为 Null，则 condition 被当作 False。



statements

在条件为 True 时执行的一条或多条语句。

说明

如果 condition 为 True，则 statements 中所有 Wend 语句之前的语句都将被执行，然后控制权将返回到 While 语句，并且重新检查 condition。如果 condition 仍为 True，则重复执行上面的过程。如果不为 True，则从 Wend 语句之后的语句继续执行程序。

While...Wend 循环可以是多层嵌套结构。每个 Wend 与最近的 While 语句对应









<HR noShade SIZE=1>







提示 Do...Loop 语句提供一种结构化与适应性更强的方法以执行循环。



Select Case 语句

描述

<BLOCKQUOTE>根据表达式的值执行几组语句之一。

语法

Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select

Select Case 语句的语法包含以下部分：



<TABLE cellSpacing=0 cellPadding=5 width="87%" border=1>



<TR vAlign=top bgColor=#dddddd>

<TD><FONT size=2>部分

描述



testexpression

任意数值或字符串表达式。



expressionlist-n

如 Case 出现则必选。一个或多个表达式的分界列表。



statements-n

当 testexpression 与 expressionlist-n 中的任意部分匹配时，执行的一条或多条语句。



elsestatements

当 testexpression 与 Case 子句的任何部分不匹配时，执行的一条或多条语句。

说明

<BLOCKQUOTE>如果 testexpression 与任何 Case expressionlist 表达式匹配，则执行此 Case 子句和下一个 Case 子句之间的语句，对于最后的子句，则会执行该子句到 End Select 之间的语句，然后控制权会转到 End Select 之后的语句。如 testexpression 与多个 Case 子句中的 expressionlist 表达式匹配，则只有第一个匹配后的语句被执行。

Case Else 用于指示若在 testexpression 和任何其他 Case 选项的 expressionlist 之间未找到匹配，则执行 elsestatements。虽然不是必要的，但最好是将 Case Else 语句置于 Select Case