fork(1) download
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sValor As String
  6. Try
  7. Console.WriteLine("Introducir un número")
  8. 'sValor = Console.ReadLine()
  9. svalor = "hola"
  10. Console.WriteLine("El valor es " & sValor)
  11.  
  12. Catch oExcep As System.InvalidCastException
  13.  
  14. Console.WriteLine(oExcep.ToString())
  15. end try
  16. Console.WriteLine("fin")
  17.  
  18. End Sub
  19. End Class
Success #stdin #stdout 0.08s 13312KB
stdin
Standard input is empty
stdout
Introducir un número
El valor es hola
fin