楼主太粗心了,把()当成(),高手总是犯低级错误。修改后,相当的爽。 Dim ZT(6)ZT(0) = "一生一代一双人"ZT(1) = "争教两处销魂"ZT(2) = "相思相望不相亲"ZT(3) = "天为谁春"ZT(4) = "浆向蓝桥易乞"ZT(5) = "药成碧海难奔" For i = 0 To 5 SayString zt(i)Next