评论4

• 

  swy

  楼主 2016/8/22 14:48:45

  自己插入一个功能FC，把需要多次调用的程序编里面，然后编写其他程序的时候可以多次调用，这个FC不要放到OB1，不用的时候就不会执行

• 

  zhangmengmeng

  楼主 2016/8/23 7:55:31

  使用CALL Pxx，但不要两处同时调用

• 

  hypermill9

  楼主 2016/8/26 15:59:14

  可是是步进点

• 

  a1123

  楼主 2016/8/27 17:25:05

  Dim Input Do Input = InputBox("请输入运行的程序，提示：12356") If int(len(Input))>6 or int(len(Input))<=0 Else For a=1 to len(Input) if int(Mid(Input, a, 1))=1 call q1() ElseIf int(Mid(Input, a, 1))=2 call q2() ElseIf int(Mid(Input, a, 1))=3 call q3() ElseIf int(Mid(Input, a, 1))=4 call q4() ElseIf int(Mid(Input, a, 1))=5 call q5() ElseIf int(Mid(Input, a, 1))=6 call q6() End If Next Exit Do End If Loop Sub q1() MessageBox "运行q1" End Sub Sub q2() MessageBox "运行q2" End Sub Sub q3() MessageBox "运行q3" End Sub Sub q4() MessageBox "运行q4" End Sub Sub q5() MessageBox "运行q5