mcs/btests/LocalVariablesB.vb

   1 ' Testing implicitly declared local varable in funtion\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module LocalVariablesB\r
   6 \r
   7     Function f1(ByVal a As Integer, ByVal b As Integer) As Integer\r
   8         f1 = a + b\r
   9     End Function\r
  10 \r
  11     Function f2(ByVal x As Integer)\r
  12         f2 = x\r
  13         If f2 = 0 Then\r
  14             Return 0\r
  15         Else\r
  16             Return f2 + f2(f2 - 1)\r
  17         End If\r
  18 \r
  19     End Function\r
  20 \r
  21 \r
  22     Sub main()\r
  23 \r
  24         Dim a As Integer\r
  25 \r
  26         a = f1(10, 12)\r
  27         If a <> 22 Then\r
  28             Throw New Exception("#LV1")\r
  29         End If\r
  30 \r
  31         a = f2(5)\r
  32         If a <> 15 Then\r
  33             Throw New Exception("#LV2")\r
  34         End If\r
  35 \r
  36     End Sub\r
  37 \r
  38 End Module