关于timer中途停止问题，如何中途停止？

1.这是汇编语言(比C语言更基本的低级语言)的"中断"内容,用高级语言实现的代价极高，而且不能保证成功。
2.从你观察到异样，到你发出中断指令，反应时间不少于0.5秒（相当于Timer1.Interval=500）。如果Timer1中的代码有实际意义，恐怕已执行过N遍了。
3.从楼上的代码看，你还站在门外，此任务对你来说，过于艰巨。如果只是想闹点小玩意，劝你放弃。

我觉得是设计问题，同样的需求一定可以用可行的编程方法来实现，楼主应该是给自己陷圈里了。

timer的功能就是每隔一定时间执行一个过程，过程内部不能断开，如果想断开，只能分别写到不同的过程里。

楼主可能认为我昨天的Text1建议是一句调侃，那你就大错特错了。
你的难题可用三步来解决。
1.在程序任何需要处(可多处)插入中断过程(Sub) Stops，运行中只要Text1.Text<>"",就可以拿到程序的控制权。
2.中断后，利用Text1的窗口进行人机对话。或对变量重新赋值(图片左侧有示意)，或对控件参数作调整(图片右侧有示意)。
3.修改完成后，清空Text1，将程序的控制权交出，程序接着中断前的代码再运行。
另：给出的代码中，Timer1没有实际用途，只是为了方便演示，和示意Stops可以插到任何处的示范而已，可以删除。

Option Explicit '只有公共变量才是 Form1.Control
Public iR1 As Integer, iS1 As String
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
iS1 = "0"
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Dim pp As Integer, rr As Variant, ss As String
Dim tt As Integer, Obj As Object
On Error GoTo Sp '最后字符为 "~" 时，此 Sub 才有效
If Right$(Text1.Text, 1) <> "~" Then Exit Sub
pp = InStr(1, Text1.Text, "=")
If pp > 0 Then
If Left$(Text1.Text, 1) = "i" Then
ss = Left$(Text1.Text, pp - 1)
rr = Mid$(Text1.Text, pp + 1, Len(Text1.Text) - pp - 1)
CallByName Form1, ss, VbLet, rr
tt = -1
Else
For Each Obj In Form1.Controls
ss = Obj.Name
tt = Len(ss)
If Left$(Text1.Text, tt) = ss Then
ss = ""
Exit For
End If
Next
If ss <> "" Then
Text1.Text = "错误!"
Exit Sub
ElseIf Mid$(Text1.Text, tt + 1, 1) = "." Then
ss = Mid(Text1.Text, tt + 2, pp - tt - 2)
Else
ss = Obj.Name
End If
rr = Mid$(Text1.Text, pp + 1, Len(Text1.Text) - pp - 1)
rr = Mid$(Text1.Text, pp + 1, Len(Text1.Text) - pp - 1)
CallByName Obj, ss, VbLet, rr
tt = -1
End If
End If
Sp: pp = Len(Text1.Text) - 1 '删 "~" ，避免反复调用
Text1.Text = Left$(Text1.Text, pp)
If Err.Number > 0 Or tt <> -1 Then Text1.Text = "无效输入!"
End Sub
Private Sub Stops()
Do While Text1.Text <> ""
Text1.SetFocus
DoEvents
Loop
End Sub
Private Sub Timer1_Timer()
Dim pp As Integer
Cls
For pp = 0 To 8
Print "iR1=" & CStr(iR1),
Next pp
Print
Stops
For pp = 0 To 4
Print "iS1=" & iS1 & ",";
Next pp
Print
End Sub

我觉得，题主的需求可能没有那么复杂。
但也有两种情况：
1、在1到60之间随时可以停止；
2、只在30之后提供一次停止的机会。
第一种：

第二种：