取随机短语
```
Function 取随机短语()
Dim a()
a(0)="想像力比知识更重要"
a(1)="一念执，千样苦楚来"
a(2)="一个今天赛过两个明天"
a(3)="爱到最后，成全你的自由"
a(4)="爱上你，等于爱上了寂寞"
a(5)="人心本无染，心静自然清"
a(6)="游手好闲会使人心智生锈"
a(7)="择一城终老，遇一人白首"
a(8)="经验是由痛苦中粹掏出来的"
a(9)="肯承认错误则错已改了一半"
a(10) = "青春一经典当，立即永不再赎"
a(12) = "把疼爱都给你，把疼痛都给我"
a(13) = "零碎，成全了我们忙碌的生活"
a(14) = "偶然的成功有时比失败更可怕"
a(15) = "幸福就在身边，知足便是天堂"
a(16) = "迷失过后，我们才真正了解自己"
a(17) = "善待他人，即是最好的善待自己"
a(18) = "所有欺骗中，自欺是最为严峻的"
a(19) = "学做任何事得按部就班，急不得"
a(20) = "快乐要懂得分享，才能加倍的快乐"
dim 序号 = ShanHai.RndEx(0, UBound(a))
取随机短语 = a(序号)
End Function
```