'Scrivere un programma VB che visualizza sulla console tutti i caratteri di un testo inserito

'd'all'utente, spostati di una posizione in avanti nella tabella ASCII (le A diventano B, le B C e

'così via)

​

Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim s As String 

        Dim Carattere As String

        Dim i as Integer

        Console.WriteLine("Che testo vuoi esaminare?")

        s = Console.ReadLine()

        For i = 1 To Len(s)

            carattere = Mid(s,i,1)

            Console.WriteLine(chr(asc(Carattere)+1))

        Next

    End Sub

End Module