Next
MsgBox \班的人数为：\End Sub
'3.可以将一个for…next循环放置在另一个for…next循环中，组成嵌套循环 'for i=1 to 10 ' for j=1 to 10 ' for k=1 to 10 ' …… ' next ' next 'next
Sub 理解计数变量的运行() For i = 1 To 2 For j = 1 To 3
k = \外层的第\次的，内层的第 Next Next End Sub
Sub 九九乘法表() Dim a%, b% For a = 1 To 9
\次\ For b = 1 To 9 If b > a Then Exit For Else
Sheets(2).Cells(a, b) = b & \×\＝\ End If Next Next End Sub
1-22 exit与end语句 Exit是退出当前语句
Exit do；exit for；exit function；exit sub End结束一个过程或块
End；end function；end if；end select；end sub 1-23 跳转语句
'GoTo Line 无条件地转移到过程中指定的行。
'注意: 太多的goto 语句，会使程序代码不容易阅读及调试 '尽可能使用结构化控制语句（do…loop,for…next,if…then…else,select) Sub gotoline() Dim str$, k! line:
k = k + 1
If k > 3 Then Exit Sub
str = InputBox(\请录入用户名！\ If str <> \End Sub 'GoTo …return Sub gotoreturn() Dim i! For i = 2 To 10
If Cells(i, 1) > 1 / 3 Then GoSub 100 Next Exit Sub 100:
Cells(i, 2) = \迟到\Return End Sub
1-24、错误分支语句 Sub onerrorresume() Dim i!
On Error Resume Next '当错误的时候继续执行下去 For i = 2 To 8
Cells(i, 4) = Cells(i, 3) + Cells(i, 2)
Next End Sub
'on error goto 当错误的时候去哪儿？ Sub onerrorgoto() On Error GoTo 100 For i = 2 To 8
k = Cells(i, 2) + Cells(i, 3) Next 100:
MsgBox \对不起，错误发生在第\行\End Sub 1-25 with语句
'with语句，当对某个对象执行一系列的语句时，不用重复指出对象的名名称。 Sub with语句()
a = Range(\ b = Range(\ Range(\End Sub Sub with语句2() With Range(\ a = .Address
