dim metin1, metin2 as string
dim i as integer
if len (metin1) <> len (metin2) then
msgbox "metin boyutları eşit değil"
exit sub
else
for i = 0 to len metin1
if mid (metin1,i,1)=(metin2,i,1) then
msgbox "Metinlerinizin " & i &. Harfi Eşit"
else
msgbox "Metinlerinizin " & i &. Harfi Eşit Değil"
end if
next
end if
#2
Aşağıdaki gibi bir kod işinizi görecektir.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
