kullanıcı tarafından girilen kelimenin içinde o harften kaç tane varsa onu bize bildirecek programı yapalım..
Önce Klulanıcıya Bir kelime girdirecek daha sonra o kelimenin içinde hangi harfi aradığını soracak daha sonra o harften kelimenin içinde kaç tane olduğunu kullanıcıya bildirecek..
Program Tek Button dan oluşuyor kodları o buttonun içine yazıyoruz..
Button1 İçine Yazılacaklar;
Dim a As Integer
Dim karakter As Char
Dim cümle As String
cümle = InputBox("cümleyi giriniz")Dim sayac As Integer
sayac = 0
karakter = InputBox("karakteri giriniz")
For a = 0 To cümle.Length - 1
If cümle.Chars(a) = karakter Then
sayac = sayac + 1End If
NextMsgBox(" cümlenizde " & sayac & " tane " & karakter & " harfi var ")
