mcs/btests/Function_ParamArrayC2.vb

   1 '=============================================================================================\r
   2 'Name:Manish Kumar Sinha \r
   3 'Email Address: manishkumarsinha@sify.com\r
   4 'Test Case Name: Param Array:\r
   5 'APR-1.1.1:If ParamArray modifier is precied by ByRef modifier the it produces compiler error \r
   6 '=============================================================================================\r
   7 Imports System\r
   8 Module PA_1_1_1\r
   9    Function F(ParamArray ByRef args() As Integer) As Integer()\r
  10       Dim i As Integer\r
  11       For Each i In args\r
  12          Console.Write(" " & i)\r
  13       Next i\r
  14       Console.WriteLine()\r
  15    End Function\r
  16    Sub Main()\r
  17       Dim a As Integer() = { 1, 2, 3 }\r
  18 \r
  19       F(a)\r
  20       F(10, 20, 30, 40)\r
  21       F()\r
  22    End Sub\r
  23 End Module\r
  24 '================================================================================