fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main() 
		Dim n As Integer
		n = Console.ReadLine
		Do While n <> 42
			System.Console.WriteLine(n)
			n = Console.ReadLine
		Loop
		dim t as string = "patient"
		dim p as string = "101"
		system.console.writeline(TransStatus(t,p))
	End Sub
End Class
 
Public Function TransStatus(ByVal Type as String, byVal Plan as String) As String
 Dim retVal as String = ""
 //if Type = "payment" then
  //if trim(Plan) <> ""
   //retVal = "from Ins. "+plan
  //else
   retval = "from Patient"
 Return retVal
End Function

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/fJaxyq/prog.vb (17,16) : Error VBNC30203: Not valid as identifier.
/home/fJaxyq/prog.vb (18,5) : Error VBNC30203: Not valid as identifier.
/home/fJaxyq/prog.vb (23,10) : Error VBNC30203: Not valid as identifier.
/home/fJaxyq/prog.vb (24,8) : Error VBNC30203: Not valid as identifier.
/home/fJaxyq/prog.vb (25,13) : Error VBNC30203: Not valid as identifier.
There were 5 errors and 0 warnings.
Compilation took 00:00:00.6510340

Standard output is empty