Question

VB编程 在一个文本框中求符合条件的数字

VB6.0新建Form1,里面有text1，text2，command1，这3个控件，现在假设text1.text中有如下文字：
人口季度增长情况如下，去年第一季度，人口增长数是1000万，去年第二季度，人口增长数是1100万，去年第三季度，人口增长数是900万，去年第四季度，人口增长数是800万，今年第一季度，人口增长数是1200万。
上面这段既有字符又有数字，我想单击command1按钮后在text2中显示text1中最小值，即800，这个数字。
请写出各个控件的事件代码，要求详细，答案最好的我给财富值
看图

Answer 1

Private Sub Command1_Click()
Dim i%, t1$, t2$(), s$
t1 = Text1
For i = 1 To Len(t1)
If IsNumeric(Mid(t1, i, 1)) Then s = s & Mid(t1, i, 1) Else s = s & " "
Next
Do
If InStr(s, " ") <> 0 Then s = Replace(s, " ", " ") Else Exit Do
Loop
t2 = Split(Trim(s), " "): Text2 = t2(0)
For i = 0 To UBound(t2)
If Val(t2(i)) < Val(Text2) Then Text2 = t2(i)
Next
End Sub