Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, k As Integer
Dim L As Integer, R As Integer
Dim temp As Integer, min As Integer
s = Text1.Text
i = 1: k = 0: temp = 0: min = 100
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
temp =
Else
k = k + 1
If Then
L = temp
Else
R = temp
If R - L + 1 < min Then min = R - L + 1
End If
temp = 0
End If
i = i + 1
Loop
Label2.Caption = "最短区间长度是" + Str(min)
End Sub