练习小课堂

04-13Ctrl+D 收藏本站

关灯 直达底部

试一试,分别用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要灵活得多。

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