Cho vòng lặp chạy từ 1 tới Length của Textbox1.
Xét 1 kí tự trong Textbox2 xem có trùng với từng kí tự trong chuỗi kia không.
Nếu có thì + thêm 1 vào biến đếm.
Cảm ơn bạn nhưng cái mình cần là đếm được cả 2 số trở lên cơ : ví dụ mình nhập ở textbox1 là
1234543512 thì nhập số : 12 ở textbox2 sẽ đếm với kết quả là : 2
Public count As Integer = 0
Function CheckNumber()
Dim s1 As String
Dim s2 As String
Console.Write("Nhap s1 :")
s1 = Console.ReadLine()
Console.Write("Nhap s2 :")
s2 = Console.ReadLine()
Dim i As Integer
Dim count As Integer
For i = 0 To s1.Length - 1
If s1(i) = s2 Then
'MsgBox("so :" & s2 & " in " & i)
count += 1
End If
Next
Console.Write("Appears :" & count)
Return count
End Function