rotina de professores (select case), Visual Basic

Language: Layout:

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
            'Declaração de variavéis
                dim opcao as integer=2
            'processo
                select case opcao
                   case 1
                       console.writeline("Executa a rotina de inclusão de professores")
                   case 2
                       console.writeline("Executa a rotina de alteração de professores")
                   case 3
                       console.writeline("Executa a rotina de exclusão de professores")
                   case 4
                       console.writeline("Executa a rotina de consulta de professores")
                end select
        End Sub
    End Module
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,25 sec, absolute running time: 0,09 sec, cpu time: 0,08 sec, average memory usage: 12 Mb, average nr of threads: 2, absolute service time: 0,36 sec