小吳 VBQA 程式設計討論

Private Sub Command1_Click()
List1.AddItem Text1.Text: Text1.Text = ""
End Sub
Private Sub Command2_Click()
List2.AddItem Text2.Text: Text2.Text = ""
End Sub
Function f(x, y)
m = -1
For i = 0 To List1.ListCount - 1
If y = Right(Left(x, i), List2.ListCount) Then m = i
Next i
f = m
End Function
Private Sub Command3_Click()
x = List1
y = List2
m = f(x, y)
If m = -1 Then Print x; "內沒有"; y Else Print y; "是"; x; "第"; m - List2.ListCount + 2; "到第"; m + 1; "個字"
End Sub
Private Sub Command4_Click()
List1.Clear
End Sub
Private Sub Command5_Click()
List2.Clear
End Sub

例如：Text1輸入12345,Text2輸入234後，在下面
List1和List2中找到輸入的那兩個做比較
要顯示234是12345第2到第4個字，幫我看
看我的程式碼那裡出錯，都會出現12345
內沒有234，幫我解答謝謝。