[sms_820]

اجابة السؤال الأول

Dim num1, num2, num3 as Integer

num3 = num1 + num2 + num3 ….…0

num2 = num2 + 2 ……………………0+2=2

num1 = 4 ………………………………4

num2 = num1 – 3 ……………………4-3=1

num1 = num1 + num1 ………………4+4=8

num2 = num2 + num3 ………………1+0=1

num2 = 5* num2 \ num1……………5*1\8=0

الأخير قسمة صحيحة