' run like this: ' mono tpcalc.exe Public Class Application Public Shared Sub Main(ByVal args() As String) if args.Length <> 3 then Console.WriteLine("usage: tpcalc price rolls sheets-per-roll") exit sub end if Dim p As Double Dim r As Double Dim s As Double Double.TryParse(args(0), p) Double.TryParse(args(1), r) Double.TryParse(args(2), s) Console.WriteLine( p / ( r * s ) ) End Sub End Class