Imports System
Public Class Test
Public Shared Sub Main( )
Dim sLetras( ) As String = { "a" , "b" , "c" , "d" }
Dim sNuevaLetra As String
Dim iPosicion As Integer
Try
Console.WriteLine ( "Introducir una letra" )
sNuevaLetra = "F"
iPosicion = 4
sLetras( iPosicion) = sNuevaLetra
Console.WriteLine ( "Se ha modificado la letra del array" )
Catch oExcep As System.InvalidCastException
Console.WriteLine ( oExcep.ToString ( ) )
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKRGltIHNMZXRyYXMoKSBBcyBTdHJpbmcgPSB7ImEiLCAiYiIsICJjIiwgImQifQpEaW0gc051ZXZhTGV0cmEgQXMgU3RyaW5nCkRpbSBpUG9zaWNpb24gQXMgSW50ZWdlcgpUcnkKQ29uc29sZS5Xcml0ZUxpbmUoIkludHJvZHVjaXIgdW5hIGxldHJhIikKc051ZXZhTGV0cmEgPSAiRiIKaVBvc2ljaW9uID0gNApzTGV0cmFzKGlQb3NpY2lvbikgPSBzTnVldmFMZXRyYQpDb25zb2xlLldyaXRlTGluZSgiU2UgaGEgbW9kaWZpY2FkbyBsYSBsZXRyYSBkZWwgYXJyYXkiKQpDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCkNvbnNvbGUuV3JpdGVMaW5lKG9FeGNlcC5Ub1N0cmluZygpKQoKCUVuZCBTdWIKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
Error recovery not implemented yet.
/home/ZjE0ot/prog.vb (17,9) : Error VBNC30205: Expected end of statement.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.6401640
stdout