[jamal]

اكتب برنامج بلغة الفجول يقرأ عدد(N) من الاسماء ويطبع اول اسم من حيث الترتيب الابجدي 

[Omar 6.0]

أخي الكريم مع أنني لم أتمكن من فهم السؤال جيداً
يمكنك تجزئة الجملة حرف حرف من خلال التعليمة Mid

كود :

For i = 1 To Len(Text1.Text)
 w = Mid$(Text1.Text, i, 1)
if w="A" then Text2.Text= w
Next

حيث Text1 هو نص و w هو الحرف و عندما يكون الحرف A  يكتبه في text2
و أرجو أن يكون هذا طلبك