问AndAlso以避免双重“如果-然后”

EN

Public Sub Main() Handles Btn_Main.Click
    Dim Word As String = InputBox("Insert a word", "Word", "Word")
    Dim mObject As Object = mWord(Word)
    If Not mObject Is Nothing Then
        If mObject.length >= 6 Then
            MsgBox("The 6th char of the word is " & mObject(6))
        Else
            MsgBox("the word is shorter than 6 characters")
        End If
    End If
End Sub


Function mWord(ByVal Word As String) As Object
    Dim mReturn As Object = Word.tochararray
    If mReturn.length > 6 Then
        Return mReturn
    Else
        Return Nothing
    End If
End Function

Public Sub Main() Handles Btn_Main.Click
    Dim Word As String = InputBox("Insert a word", "Word", "Word")
    Dim mObject As Object = mWord(Word)
    If Not mObject Is Nothing AndAlso mObject.length >= 6 Then
        MsgBox("The 6th char of the word is " & mObject(6))
    Else
        MsgBox("the word is shorter than 6 characters")
    End If
End Sub