输入一串数字字母混合的字符串,将其中数字挑出来,并且在相应的数字之间用"*"分开,
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