按键精灵主程序循环5次，5次循环，每次依顺序调用5条子程序。

2024-10-31 11:36:42

有1个网友回答

网友（1）：

Dim a
a=6

For 5
a = a - 1
If a = 5 Then 
 
 Call 子程序1()

ElseIf a = 4 Then
Call 子程序2()

ElseIf a = 3 Then
Call 子程序3()

ElseIf a = 2 Then
Call 子程序4()

ElseIf a = 1 Then

Call 子程序5()


End If


Next

Sub 子程序1
	MessageBox "1"
End Sub
Sub 子程序2
	MessageBox "2"
End Sub
Sub 子程序3
	MessageBox "3"
End Sub
Sub 子程序4
	MessageBox "4"
End Sub
Sub 子程序5
	MessageBox "5"
End Sub

如图所示的代码就是你的要求，如果好用请采纳。

按键精灵主程序循环5次，5次循环， 每次 依顺序调用5条子程序。

按键精灵主程序循环5次，5次循环，每次依顺序调用5条子程序。