Vb.Net ile kelime içerisinde harf bulma programı aşağıdaki gibi oluşturulabilir:
Module Module1 Sub Main() Dim kelime As String = “merhaba” Dim arananHarf As Char = “a” Dim sayac As Integer = 0 For Each harf As Char In kelime If harf = arananHarf Then sayac += 1 End If Next Console.WriteLine(“Kelime: ” & kelime) Console.WriteLine(“Aranan harf: ” & arananHarf) Console.WriteLine(“Kelime içerisinde ” & sayac & ” adet ” & arananHarf & ” harfi bulunmaktadır.”) Console.ReadLine() End Sub End Module
Bu örnekte, kelime değişkeni örnek bir kelimeyi, arananHarf değişkeni ise sayılacak harfi temsil etmektedir. sayac değişkeni ise kelime içerisinde kaç adet aranan harf olduğunu saymak için kullanılır. Daha sonra, For Each döngüsü ile kelimenin her bir harfi kontrol edilir ve aranan harfe eşitse, sayac değişkeni 1 artırılır. Son olarak, sonuçlar Console.WriteLine komutu ile ekrana yazdırılır ve kullanıcıdan bir tuşa basması beklenir (Console.ReadLine()).