طلبات الأعضاء للعام الدراسي 2012-2013

[asdzazax]

: تتبع البرنامج التالى ثم أجب :

Function Total(ByVal c As Integer) As Long

Dim A As Integer = 12

Dim b As Integer = 5.8

Dim sum As Long

If A > b And A < c Then

sum = A + b + c

- اسم الاجراء ...............
- وسيط الاجراء ..................
- نوع بيان الدالة .................
- القيمة الراجعة .................
- قيمة الدالة عند تنفيذ الكود التالى MsgBox(Total(5))


MsgBox(sum)

Else

A = 5

b = 15

c = 22

sum = A + b + c

MsgBox(sum)

End If

Return Sum

End Function