ممكن اجابه السؤال

[hassantawfic]

Dim X , Y , I As Integer
X = 4 ^ 2 + 3
Y = 2 ^ 3 + 5
If X > Y Then
For I = 4 To 13 Step 4
X = X – 1
Y = Y + 1
Next
Else
X = X + 3
Y = Y * 2
I = X – Y
End If
Msgbox (X )
Msgbox ( Y)
Msgbox ( I )
اوجد
1- عدد مرات التكرار
2- قيمة x
3- قيمة Y
4- قيمة I