mcs/btests/Optional_ParamArrayC2.vb

   1 '============================================================================================\r
   2 'Name:Manish Kumar Sinha \r
   3 'Email Address: manishkumarsinha@sify.com\r
   4 'Test Case Name: Optional argument:\r
   5 'APR-1.0.0: ParamArray and Optional can be used together\r
   6 '=============================================================================================\r
   7 \r
   8 Option Strict Off\r
   9 Imports System\r
  10 Module PA_1_0_0\r
  11    Sub F(Optional ByVal length as Integer = 3 , ParamArray args() As Integer )\r
  12       Console.Write("Array contains " & args.Length & " elements:")\r
  13       if (args.Length <> length)\r
  14                 Throw New System.Exception("#A1, Unexcepted behaviour in string of OP1_0_1")\r
  15         end if \r
  16    End Sub\r
  17    Sub Main()\r
  18       Dim a As Integer() = { 1, 2, 3 }\r
  19       F(a)\r
  20       F(10, 20, 30)\r
  21       \r
  22    End Sub\r
  23 End Module\r
  24 '=============================================================================================\r