Private Sub Command1_Click()
Dim stAs String, i As Integer, flag As Boolean
st = InputBox("输入数字字母混合的字符串")
i = 1
Print "[";
Do While i <= Len(st)
IfMid(st, i, 1) >"0" And Mid(st, i, 1)<"9" Then
Print Mid(st, i, 1);
flag = True
ElseIfflag = True Then
()
flag = False
End If
i = i + 1
Loop
()
End Sub