سؤال للمتفوقين:كيف اضع حل المتباينة المنتهية فى اد

أخي الكريم

هذه عبارة عن حلقة لا يهم عدد الأرقام فيها

الآن أنت تطلب طباعة هذه النواتج في تكست ..

كيف تريد طباعتها ؟؟

في كل سطر ناتج ؟؟

استخدم هذا الكود

x = Val(Text1)
y = Val(Text2)
Text3.text = ""
Do While x < y
Print x
Text3.text =text3.text+vbcr+str(x)

أما إذا أردت طباعتهم بجانب بعضهم البعض بدل VBCR بـ ","

جزاكم الله خيرا و بارك فيكم

و لكن هناك مشكلة بسيطة و هى اننى اريد جعل الناتج فى التكست افقى و عندما استبدلت VBCR بـ "," ظهرت علامة الفاصلة بعد اخر رقم و انا لا اريد ذلك و انما اريد ان الغى اخر علامة للفاصلة

و شكرا لكم

استخدم الدالة Mid او الدالة right للتخلص من ,

x = Val(Text1)
y = Val(Text2)
Text3.text = ""
Do While x < y
Print x
Text3.text =text3.text & IIf(text3.text>"",",","") & str(x)