試一試，分別用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要靈活得多。
注意：當在一個數組裡循環時，不能對數組元素進行賦值或重新賦值，對於已經賦值的對象數組也只能修改元素的屬性。