VB程式設計，急求，從文字框1中輸入的一個由字母和數字組成的字串中找出所有的數字，
- 2022-09-19
°舊非2016.10.25 回答a = Text1。Text
For i = 1 To Len（a）
If IsNumeric（Mid（a， i， 1）） Then
b = b & Mid（a， i， 1）
End If
Next i
Text2。Text = b
駙馬爺2009.06.08 回答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