: تتبع البرنامج التالى ثم أجب :
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