+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] اكتب برنامج بلغة الفجول يقرأ عدد(N) من الاسماء ويطبع اول اسم من حيث الترتيب الابجدي (/showthread.php?tid=15235)
اكتب برنامج بلغة الفجول يقرأ عدد(N) من الاسماء ويطبع اول اسم من حيث الترتيب الابجدي - jamal - 26-03-16
اكتب برنامج بلغة الفجول يقرأ عدد(N) من الاسماء ويطبع اول اسم من حيث الترتيب الابجدي
RE: اكتب برنامج بلغة الفجول يقرأ عدد(N) من الاسماء ويطبع اول اسم من حيث الترتيب الابجدي - Omar 6.0 - 27-03-16
أخي الكريم مع أنني لم أتمكن من فهم السؤال جيداً
يمكنك تجزئة الجملة حرف حرف من خلال التعليمة Mid
كود :
For i = 1 To Len(Text1.Text)
w = Mid$(Text1.Text, i, 1)
if w="A" then Text2.Text= w
Nextو أرجو أن يكون هذا طلبك