Imports System
Public Class Program
Public Shared Function isInAlphabeticalOrder(ByVal s As String) As Boolean
For i As Integer = 0 To s.Length - 1 - 1
If s(i) >= s(i + 1) Then
Return False
End If
Next
Return True
End Function
Public Shared Sub Main()
Dim s1 As String = "java c c++"
Console.WriteLine(isInAlphabeticalOrder(s1))
Dim s2 As String = "abcxyz"
Console.WriteLine(isInAlphabeticalOrder(s2))
End Sub
End Class
' run:
'
' False
' True
'