mcs/btests/Function_ParamArrayC.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    Function F(ByVal b as Integer ,ParamArray args() As Integer)as Boolean
  10       Dim a as integer
  11         a = args.Length
  12         if a=b
  13         return true
  14         else
  15         return false
  16         end if
  17    End Function
  18    Sub Main()
  19       Dim a As Integer() = { 1, 2, 3 }
  20         Dim c as Integer
  21         c = a.Length
  22       Dim b as Boolean
  23         b= F(c,a)
  24         if b<>true
  25                 Throw New System.Exception("#A1, Unexcepted Behaviour in F(a)")
  26         end if
  27    End Sub
  28 End Module
  29 '=============================================================================================