做了测试 :一切正常,不是VB的原因,是程序本身的错误.我也不想改了,原程序太乱. Private Sub Command1_Click() Dim i As Integer For i = 1 To 20 Text1.Text = Text1.Text & "测试bug" & vbCrLf Call tex1 Text1.Text = Text1.Text & "调用结束" & vbCrLf Next i End Sub
Private Sub tex1() Text1.Text = Text1.Text & "这是子程序" & vbCrLf End Sub
Call FLGEN(DENF, R, WH, XM, NN, MM, NDFS, IBAND, MMD, NDFSD, LINEAR, FS(), SC(), INDEX_A)
Debug.Print "跳出FLGEN,程序继续" & vbCrLf使用debug.print试试看……
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 20
Text1.Text = Text1.Text & "测试bug" & vbCrLf
Call tex1
Text1.Text = Text1.Text & "调用结束" & vbCrLf
Next i
End Sub
Private Sub tex1()
Text1.Text = Text1.Text & "这是子程序" & vbCrLf
End Sub