تعتمد فكرة معرفة تكرار حرف على قراءة جميع الحروف باستخدام الدالة Mid والتي تقرأ في كل Loop حرفاً واحداً فقط من النص ...
على سبيل سنقوم بحساب تكرار الحرف a
Public Function CountChar(StringToSearch As String, Character As String) As Integer
CountChar = 0
For i = 1 To Len(StringToSearch)
If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1
Next i
End Function
Private Sub Command1_Click()
n = CountChar(Text1.Text, "a")
MsgBox n
End Sub
لا تنسونا بصالح الدعاء
أسأل الله أن يوفقنا إلى ما يحب ويرضى