vb中随机取值应该如何取?

Question

比如我定义了五个句子.
dim s1
dim s2
dim s3
dim s4
dim s5s1="哈哈哈"
s2="呵呵呵"
.....text1.text="如何从这五个dim中取随机的一个?"

Answer 1

Private Sub Command1_Click()
  Dim s(4) As String
  Dim i As Integer
   For i = 0 To 4
     s(i) = i
   Next
   Debug.Print s(Int(Rnd * 4))
End Sub

Answer 2

Private Sub Command1_Click()
  Dim s(4) As String
  s1 = "sss"
  s2 = "yyy"
  s3 = "zzz"
  s4 = "xxx"
  
  Dim i As Integer
   For i = 0 To 4
     s(i) = i   Next
   Text1.Text = s(Int(Rnd * 4))
End Sub......怎么让他显示定义的内容?而不是i?

Answer 3

解决了,谢谢.Private Sub Command1_Click()
  Dim s(4) As String
  Dim i As Integer
   For i = 0 To 4
   s(i) = i
   Next
   ss = s(Int(Rnd * 4))
   If ss = 1 Then
   
   Text1.Text = "白痴"
   ElseIf ss = 2 Then
   Text1.Text = "有病"
   ElseIf ss = 3 Then
   Text1.Text = "死了啊"
   ElseIf ss = 4 Then
   Text1.Text = "死机中"
   End If
End Sub

Answer 4

'Num = Int(Rnd * 4) 获得0 - 4 间随机一个数'开始
StrTmp = "哈哈,呵呵,啦啦,呼呼,咔咔"     '可以任意修改,不同选择的用 逗号分隔就可以
Dim TxtTmp() as string,NumTmp as Integer
TxtTmp = Split(StrTmp,",")'生成0到数组TxtTmp上维的随机数
NumTmp = Int(Rnd * Ubound(TxtTmp))Text1.text = TxtTmp(NumTmp)'结束