这样的程序该如何编？

Question

在窗体上新建一个命令按钮，只要一点命令按钮，就会弹出一段话，而且每次点击命令按钮出现的话都不一样。
PS：每点一次命令按钮，只弹出一段话。重新在点一下命令按钮，就会弹出另一段话。
----------------
以上我所说的程序该如何编？

Answer 1

Private Sub Command1_Click()
Dim arr(2) As String
Static i As Integer
arr(0) = "vb很好用!"
arr(1) = "vbgood"
arr(2) = "This is vb Command"
If i > 2 Then i = 0
MsgBox arr(i)
i = i + 1
End Sub

Answer 2

Private Sub Command1_Click()
Dim strDoc(6) As String
strDoc(0) = "aaaaa"
strDoc(1) = "bbbbb"
strDoc(2) = "ccccc"
strDoc(3) = "ddddd"
strDoc(4) = "eeeee"
strDoc(5) = "fffff"
Dim MyValue
MyValue = Int((6 * Rnd) + 1)
MsgBox strDoc(MyValue)
End Sub