Imports System
Public Class Test
Public Shared Sub Main()
Dim intFunction As Integer
intFunction = Console.ReadLine
Call Factorial(intFunction)
Console.WriteLine(intClass)
Console.ReadLine
End Sub
Function Factorial(ByRef intNum As Integer)
Dim intClass As Integer
If intNum = 1 then
Return intClass = 1
Else
Return intClass = intNum * (intNum - 1)
End If
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gaW50RnVuY3Rpb24gQXMgSW50ZWdlcgoJCQoJCWludEZ1bmN0aW9uID0gQ29uc29sZS5SZWFkTGluZQoJCUNhbGwgRmFjdG9yaWFsKGludEZ1bmN0aW9uKQoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKGludENsYXNzKQoJCUNvbnNvbGUuUmVhZExpbmUKCUVuZCBTdWIKCUZ1bmN0aW9uIEZhY3RvcmlhbChCeVJlZiBpbnROdW0gQXMgSW50ZWdlcikKCURpbSBpbnRDbGFzcyBBcyBJbnRlZ2VyCgkKCUlmIGludE51bSA9IDEgdGhlbgoJUmV0dXJuIGludENsYXNzID0gMQoJRWxzZQoJUmV0dXJuIGludENsYXNzID0gaW50TnVtICogKGludE51bSAtIDEpCglFbmQgSWYKCQpFbmQgQ2xhc3M=
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/Qnm7Ai/prog.vb (22,10) : Error VBNC90019: Expected 'Function'.
Error recovery not implemented yet.
/home/Qnm7Ai/prog.vb (22,10) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
Error recovery not implemented yet.
/home/Qnm7Ai/prog.vb (22,10) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/Qnm7Ai/prog.vb (22,10) : Error VBNC99999: vbnc crashed nearby this location in the source code.
/home/Qnm7Ai/prog.vb (22,10) : Error VBNC99999: Unexpected error: Object reference not set to an instance of an object
at vbnc.TypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, Int32 TypeArgumentCount) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/TypeDeclaration.vb:109
at vbnc.GenericTypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters) [0x0001f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/GenericTypeDeclaration.vb:36
at vbnc.PartialTypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters, vbnc.TypeImplementsClauses Implements) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/PartialTypeDeclaration.vb:43
at vbnc.ClassDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.TypeDeclaration DeclaringType, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters, vbnc.NonArrayTypeName Inherits, vbnc.TypeImplementsClauses TypeImplementsClauses) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/ClassDeclaration.vb:47
at vbnc.Parser.ParseClassDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x001aa] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:91
at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00010] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1436
at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent, vbnc.MemberDeclarations Members) [0x0005d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1349
at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent) [0x0000c] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1322
at vbnc.Parser.ParseClassDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00147] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:84
at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00010] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1436
at vbnc.Parser.ParseAssemblyMembers (vbnc.AssemblyDeclaration Parent, System.String RootNamespace, vbnc.MemberDeclarations declarations) [0x001a8] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1482
at vbnc.Parser.ParseAssemblyDeclaration (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00092] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:433
at vbnc.Parser.Parse (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00002] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:58
at vbnc.Compiler.Compile_Parse () [0x0006d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:363
Compilation took 00:00:00.6266210