Imports System
Module JumpArray
Function CanReachLastIndex(arr As Integer()) As Boolean
Dim size As Integer = arr.Length
Dim currentIndex As Integer = 0
While currentIndex < size
' If we reach the last index, return true
If currentIndex = size - 1 Then
Return True
End If
' If jump goes out of bounds, stop
If currentIndex + arr(currentIndex) >= size Then
Return False
End If
' Move to the next index by jumping
currentIndex += arr(currentIndex)
End While
Return False
End Function
Sub Main()
Dim arr As Integer() = {2, 3, 1, 1, 4}
If CanReachLastIndex(arr) Then
Console.WriteLine("Yes, we can reach the last index.")
Else
Console.WriteLine("No, we cannot reach the last index.")
End If
End Sub
End Module
' run:
'
' Yes, we can reach the last index.
'
