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

[tmrmsr]

[QUOTE=مدرس . كمبيوتر;5144954][LEFT][LEFT]Function Sum ( Byval First as single , byval second as single ) as single
Dim total as single
Total = first + second
Return total
End function


مثال لعملية الاستدعاء
Dim x as Single
x=sum(4,6)

MessageBox.show(x)