valor maximo entre 3 numeros, Visual Basic

valor maximo entre 3 numeros

'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 val1 as integer
              dim val2 as integer
              dim val3 as integer
              dim max as integer
            'leitura
               val1=3
               val2=5
               val3=8
            'Verificação
              if val1>val2 then
                 if val1>val3  then
                     max=val1
                 else
                     max=val3
                 end if
              else
                 if val2>val3 then
                     max=val2
                 else
                     max=val3
                 end if
              end if
            'impressão
             console.writeline("Dos valores" & val1 & val2 & val3 & "o maior valor lido foi" & max)
        End Sub
    End Module
End Namespace


run \| edit \| history \| help	0