请问如何随机取一行字

Question

Dim A() As String
Dim B As String
B = "我+他+你+天+地"
A = Split(A, "+")我想随机取其中一个出来，改怎么写？？？

Answer 1

c=a(int(rnd(1) * ubound(a)))

Answer 2

Dim A() As String
Dim B As String
Dim C As String
B = "我+他+你+天+地"
A = Split(B, "+")
C = A(Int(Rnd(1) * UBound(A)))
MsgBox C获取到的一直是 你

Answer 3

用 Rnd() 前要用 Randomize() 初始化一次，否则随机数序列是固定的。

Answer 4

Dim A() As String
Dim B As String
Dim C As String
Randomize
B = "我+他+你+天+地"
A = Split(B, "+")
C = A(Int(Rnd *  (UBound(A)+1)))
MsgBox C 
就可以了