Gorsel Programlama

Kullanıcı tarafından girilen cümlenin kaç kelimeden oluştuğunu yazan programı yapalım..

Tek buttondan oluşan ve buttona tıklayınca kullanıcıdan cümle girilmesini isteyecek kullanıcı cümleyi girdikten sonra msgbox’ta kaç kelimeden oluştuğunu gösteren programın yapımına başlayalım..

Program Tek Buttondan oluşacak..

1.Buttona Yazılacaklar;

Dim ad As String
Dim a As Integer
ad = InputBox("Kelimeyi giriniz...")
Dim sayac As Integer
sayac = 1
For a = 0 To ad.Length - 1
If ad.Chars(a) = " " Then
sayac = sayac + 1
End If
If ad.Length = sayac = 2 Then

End If
ad = ad.ToUpper
Next
MsgBox("cümleniz" & " " & sayac & " " & "kelimeden oluşuyor")
MsgBox("cümleniz" & " " & ad)

Projeyi İndir