VB编程,急求,从文本框1中输入的 一个由字母和数字组成的字符串中找出所 有的数字并依次连接,再输

2025-03-09 12:37:24
推荐回答(1个)
回答1:

Private Sub Command1_Click()
T = ""
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) Like "[0-9]" Then
T = T & Mid(Text1, i, 1)
End If
Next
Text2 = T
End Sub