ممكن مساعدة في كود يبدل قيم متغيرين مع بعض بدون استخدام متغير اخر

السلام عليكم ورحمة الله وبركاته

بالنسبة لسؤالك الأمر سهل جدا مجرد إسناد متغير بمتغير وهذا مثال عليه

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 5
b = 2
Print a, b

a = b
b = a

Print a, b

End Sub

تحياااااتي

للاسف اخى ابو فهيد بذلك ستضيع قيمة المتغير a

الاخ او الاخت السائلة اذا كان هذا واجب مدرسى او جامعى فهذا لكى تفكر به وليس للسؤال فى المنتديات

والعملية يمكن تنفيذها بسهولة ولم تستغرق دقيقتين فى التفكير

Private Sub form_paint()
Dim a As Integer, b As Integer
a = 20
b = 15
Print a, b

a = b * a
b = a / b
a = a / b
Print a, b

End Sub

الشرح

اولا بعد تعبئة a و b بقيم معينة

تاتى عملية الضرب لتصبح قيمة ال a تساوى حاصل ضرب المتغيرين

بعد ذلك عملية قسمة a/b اى ( a * b ) / b وهى تساوى a اصلا ونضعها فى المتغير b

بعد ذلك نكرر العملية وتكون b قد احتوت على a وبذلك تكون العملية ( a * b ) / a = b ووضعها فى المتغير a

تحياتى

بشكل أبسط كثيرا

a=a+b
b=a-b
a=a-b

تحياتي

اخوتي الاعزاء

للاسف لم ينفع اي من الاجابات السايقة

وفي حالة الاجابة الاولى والاجابة الثانية فقط يطبع القيم المحددة لa ,b

ولكن انا اريد ان يطبع اي قيمة يمكن وضعها

ارجو الافادة

لكم مني جزيل الشكر

يمكن تجربة الاتي:

لنفرض a = 10

b= 6

لنضع الاتي :

a = b
b = a+4

باتوفيق..

أخي / أختي هذا كود لعلة المطلوب

x = 1
For i = 1 To 3
x = x + i
Print x
Next