Private Sub Timer1__Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Interval = Int(2500 / Speed)
b = b + 1
If b Mod 2 = 0 Then
s = 0
End If
If b Mod 2 > 0 Then
s = 200
End If
End Sub
这样写能不能让interval随speed变化