إلحقوني بسرعة قبل ما أتجنن

[مها محمد مندور]

سؤالين لطلابي المجتهدين

السؤال الأول


Dim R AS Integer
DIM Total As Integer
For R= 1 TO 8 Step2
Total = total + R
Next
MsgBox (Tota
أكتب القيم النهائية للمتغير Total ....................


السؤال الثاني :

إذا كانت x - y - j - k- z متغيرات صحيحة قيمتها كالتالي :
x= 8, y=2 , j=3 , k=4
أكتب القيمة النهائية z ..................
If x<y And j<k Then
z=x - y
Else
z=j+k
ENDIF
مع تحيات m.s maha