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 try
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKRGltIHNMZXRyYXMoKSBBcyBTdHJpbmcgPSB7ImEiLCAiYiIsICJjIiwgImQifQpEaW0gc051ZXZhTGV0cmEgQXMgU3RyaW5nCkRpbSBpUG9zaWNpb24gQXMgSW50ZWdlcgpUcnkKQ29uc29sZS5Xcml0ZUxpbmUoIkludHJvZHVjaXIgdW5hIGxldHJhIikKc051ZXZhTGV0cmEgPSAiRiIKaVBvc2ljaW9uID0gNApzTGV0cmFzKGlQb3NpY2lvbikgPSBzTnVldmFMZXRyYQpDb25zb2xlLldyaXRlTGluZSgiU2UgaGEgbW9kaWZpY2FkbyBsYSBsZXRyYSBkZWwgYXJyYXkiKQpDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCkNvbnNvbGUuV3JpdGVMaW5lKG9FeGNlcC5Ub1N0cmluZygpKQplbmQgdHJ5CglFbmQgU3ViCkVuZCBDbGFzcw==