fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
		Dim sCode = "113073087114114118120079"
    	Dim i As Integer
        Dim sDec As String = ""
 
        For i = 1 To Len(sCode) Step 3
            sDec = sDec & Chr(Val(Mid(sCode, i, 3)) - i)
        Next
        sDecode = sDec
        Console.WriteLine("sDecode")
	End Sub
End Class

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


A warning message should have been shown: 'Variable type should be specified.'
/home/73J1qD/prog.vb (12,18) : Error VBNC30451: Could not resolve the name 'sDecode'
There were 1 errors and 0 warnings.
Compilation took 00:00:00.9332940

Standard output is empty