vb6 yardım edermisiniz

dim b$(35)
b$(1)="kelime1"
b$(2)="kelime2"
.
.
.
rem kac kelime varsa b$ lere sırala
if not text1.text=b$ then
msgbox"yanlıs"
text1.text=""
else
msgbox"dogru"
end if
olabilir
iyi calısmalar

suleyman55' Alıntı:

dim b$(35)
b$(1)="kelime1"
b$(2)="kelime2"
rem kac kelime varsa b$ lere sırala
if not text1.text=b$ then
msgbox"yanlıs"
text1.text=""
else
msgbox"dogru"
end if
olabilir
iyi calısmalar

Genişletmek için tıkla ...

teşekkürler ama yeşil ile belirtiğim yerde hata çıkıyor

aynı satırda 'not' ı çıkarıp '=' yerine '<>' kullanarak denesen

hata b$yi numaalandırmadıgın icin oluyor
soyle yapalım
dim b$(35)
b$(1)="kelime1"
b$(2)="kelime2"
.
.
.

rem kac kelime varsa b$ lere sırala
for x=0 to 35
a$=b$(x)

if not text1.text=a$ then
msgbox"yanlıs"
text1.text=""
else
msgbox"dogru"
end if
next x
olabilir
iyi calısmalar