用rem之类的也行啊

题型分类：子程序相互调用。
求教，一个循环脚本里面怎样才能每次运行不同的内容
比如第一遍运行sub a，
第二遍运行sub b，
………
………
直到运行完sub z
结束。参考下下面代码。
………………
………………
Dim i
i=0
Do
call 子程序判断()
i=i+1
Loop until i=25
………………
………………
Sub 子程序判断()
If i = 0 Then
Call 子程序0()
ElseIf i = 1 Then
Call 子程序1()
ElseIf i = 2 Then
Call 子程序2()
ElseIf i = 3 Then
Call 子程序3()
ElseIf i = 4 Then
Call 子程序4()
………………
………………
//只写5个，其它21个自己来。
End If
End Sub
………………
………………
Sub 子程序0()
Delay 60
//这里加入，找到图1后的代码。
End Sub
Sub 子程序1()
Delay 60
//这里加入，找到图2后的代码。
End Sub
Sub 子程序2()
Delay 60
//这里加入，找到图3后的代码。
End Sub
Sub 子程序3()
Delay 60
//这里加入，找到图4后的代码。
End Sub
Sub 子程序4()
Delay 60
//这里加入，找到图5后的代码。
End Sub
//只写5个，其它21个自己来。