هذا البرنامج يقوم بتبديل رقمين بدون وسيط ثالث يمكن تحتاج له ،
الرقم الأول : a
الرقم الثاني : b
sub swapping()
dim a as integer
dim b as integer
a=inputbox("أدخل الرقم الأول " ,"الرقم الأول" )
b=inputbox("أدخل الرقم الثاني ","الرقم الثاني" )
a= a + b
b= a - b
a= a - b
msgbox a
mgbox b
End sub
يمكنك اخراج الرقمين بصورة جميلة فقط اردت توصيل الفكرة
تاج السر
الرياض