试一试，分别用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要灵活得多。
注意：当在一个数组里循环时，不能对数组元素进行赋值或重新赋值，对于已经赋值的对象数组也只能修改元素的属性。