试一试，分别用Do Until语句的两种形式编写程序来解决3.7.3小节中评定职工星级的问题。

参考答案

结尾判断式：

结尾判断式：

3.7.6　For Each…Next 语句

当前活动工作簿中有许多工作表，但并不知道数量。如果要把所有工作表的名称按次序写入活动工作表的A列，For Each…Next是更适合的循环语句。

无论工作簿中有多少张工作表，执行程序后，都会将所有工作表的标签名称依次写入当前活动工作表的A列单元格中，如图3-41所示。

图3-41　把工作表标签名称写入A列

使用For Each…Next循环语句时，不需要定义循环条件，如果要在一个集合或一个数组中循环时，同其他循环语句相比，For Each…Next要灵活得多。

注意：当在一个数组里循环时，不能对数组元素进行赋值或重新赋值，对于已经赋值的对象数组也只能修改元素的属性。