mcs/mbas/Test/tests/ParamArrayB.vb

   1 '============================================================================================
   2 'Name:Manish Kumar Sinha
   3 'Email Address: manishkumarsinha@sify.com
   4 'Test Case Name: ParamArray:
   5 'APR-1.0.0: ParamArray can be used only on the last argument of argument list. it allows us to 'pass an arbitrary list. It allows us to pass an arbitrary number of argument to the procedure
   6 '=============================================================================================
   7 Imports System
   8 Module PA_1_0_0
   9    Sub F(ParamArray args() As Integer)
  10         Dim a as Integer
  11         a=args.Length
  12         if a=0
  13                 Throw New System.Exception("#A1, Unexcepted behavoiur of PARAM ARRAY")
  14         end if
  15    End Sub
  16    Sub Main()
  17       Dim a As Integer() = { 1, 2, 3 }
  18       F(a)
  19       F(10, 20, 30, 40)
  20    End Sub
  21 End Module
  22 '=============================================================================================