Imports System
Public Class Program
Public Shared Function countStrictlyIncreasingSubarrays(ByVal arr As Integer()) As Integer
Dim size As Integer = arr.Length
Dim count As Integer = 0
For i As Integer = 0 To size - 1
For j As Integer = i + 1 To size - 1
If arr(j - 1) >= arr(j) Then
Exit For
End If
count += 1
For k As Integer = i To j + 1 - 1 ' for print only
Console.Write(arr(k) & " ") ' for print only
Next ' for print only
Console.WriteLine() ' for print only
Next
Next
Return count
End Function
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {1, 3, 4, 0, 7, 5, 9}
Console.Write(countStrictlyIncreasingSubarrays(arr))
Console.Write(" = Count of strictly increasing subarrays")
End Sub
End Class
' run:
'
' 1 3
' 1 3 4
' 3 4
' 0 7
' 5 9
' 5 = Count of strictly increasing subarrays
'
