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())
Console.WriteLine("*******")
end try
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKRGltIHNMZXRyYXMoKSBBcyBTdHJpbmcgPSB7ImEiLCAiYiIsICJjIiwgImQifQpEaW0gc051ZXZhTGV0cmEgQXMgU3RyaW5nCkRpbSBpUG9zaWNpb24gQXMgSW50ZWdlcgpUcnkKCUNvbnNvbGUuV3JpdGVMaW5lKCJJbnRyb2R1Y2lyIHVuYSBsZXRyYSIpCglzTnVldmFMZXRyYSA9ICJGIgoJaVBvc2ljaW9uID0gNAoJc0xldHJhcyhpUG9zaWNpb24pID0gc051ZXZhTGV0cmEKCUNvbnNvbGUuV3JpdGVMaW5lKCJTZSBoYSBtb2RpZmljYWRvIGxhIGxldHJhIGRlbCBhcnJheSIpCglDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCgoJJ0NvbnNvbGUuV3JpdGVMaW5lKG9FeGNlcC5Ub1N0cmluZygpKQoJQ29uc29sZS5Xcml0ZUxpbmUoIioqKioqKioiKQoKCmVuZCB0cnkKCUVuZCBTdWIKRW5kIENsYXNz