listBox1.Items.Clear();
string metin = textBox1.Text;
string[] parcalar = metin.Split(' ');
foreach (string parca in parcalar)
{
char[] yeni = parca.ToCharArray();
Array.Reverse(yeni);
if (string.Compare(parca, new string(yeni)).ToString() == "0")
{
listBox1.Items.Add(parca);

}

}


Yukarıda vermiş olduğum kod mantığıyla QBASİC de bunu yapmaya çalışıyorum. Ancak beceremedim. "Araştır kardeşim "diyenleriniz olacaktır. Gerçekten kaç gündür araştırıyorum uğraşıyorum. Hala elle tutulur bir sonuca ulaşamadım. Lütfen birisi yardım etsin. Şimdiden teşekkürler.

Mantık resimdeki programın aynısıdır.