آموزش برنامه نویسی در زبانهای رایج مثل :asp و asp.net و php و html و C و C++ و javascript و visualBasic و delphi و . . .

جمعه 19 شهريور 1389

Function Use_ByRef(ByRef intVar As Integer)

      intVar = intVar + 1

      Return intVar

End Function

Dim intMyVar As Integer

intMyVar = 1

Response.Write(intMyVar & "-----" & Use_ByRef(intMyVar))

پاسخ :  2-----3

Function Use_ByVal(ByVal intVar As Integer)

     intVar = intVar + 1

     Return intVar

End Function

Dim intMyVar As Integer

intMyVar = 1

Response.Write(intMyVar & "-----" & Use_ByVal(intMyVar))

پاسخ :  1-----2

 متغير Static

    Static intCount As Integer

    intCount = intCount+1

    Return intCount

End Function

Response.Write( "
" & Use_Static)

Response.Write( "
" & Use_Static)

Response.Write( "
" & Use_Static)

         1 پاسخ :

2

3

تعريف توابع بصورت OverLoads

Function Use_OverLoads(ByVal strVar1 As String, ByVal strVar2 As String)As String

         Return strVar1 & strVar2

End Function

Function Use_OverLoads (ByVal intVar As Integer) As Integer

        Return intVar + intVar

End Function

Response.Write(Use_OverLoads (5))

Response.Write("
" & Use_OverLoads("Over", "Loads"))

         10  پاسخ :

OverLoads

تهيه كننده مقاله : پولايي