[已解决]以下为一段简单的源代码，请帮忙纠正错误，谢谢

kingfirekkk

小弟想判断在一段句子中，哪些值中含有“OK”的记录，但以下代码无法出我要的结果，不知道要怎么样改，是哪里出错了？请各位帮忙看看，谢谢

$test = xx()
MsgBox(0, "OK的记录数是：", $test)
Func xx()
        Dim $message='', $a[8]
        $a[0] = "OK你的样子"
        $a[1] = "Fail你的头发"
        $a[2] = "Fail你的品味"
        $a[3] = "OK你的歌声"
        $a[4] = "Fail你的身材"
        $a[5] = "你的地方"
        $a[6] = "房子"
        $a[7] = "国家"
        For $i = 0 To $a
                If StringCompare($a[$i],"OK")>0 Then  $message= $message&$a[$i] & @CRLF
                $i=$i+1                
        Next
        Return $message
EndFunc   ;==>xx

实际得出的结果如下图所示：


我自己想要的结果应该是以下才对！
OK你的样子
OK你的歌声

afan

$test = xx()
MsgBox(0, 'OK的记录数是：', $test)
Func xx()
        Dim $message = '', $a[8]
        $a[0] = 'OK你的样子'
        $a[1] = 'Fail你的头发'
        $a[2] = 'Fail你的品味'
        $a[3] = 'OK你的歌声'
        $a[4] = 'Fail你的身材'
        $a[5] = '你的地方'
        $a[6] = '房子'
        $a[7] = '国家'
        For $i = 0 To UBound($a) - 1
                If StringInStr($a[$i], 'OK') Then $message &= $a[$i] & @CRLF
        Next
        Return $message
EndFunc   ;==>xx

kingfirekkk

啊，昏啊,就这一句，怎么会错误代码都没有呢？还是自己的基本功太差了。。。
For $i = 0 To UBound($a) - 1
谢谢版主啦。