Dim x As Single
Dim t
Dim i As Integer
ReDim a(100)
For i = 1 To 100
  a(i) = "我的第" & i & "次"
 Next i
 For i = 1 To 100
  x = Int((Rnd * 100) + 1)
  t = a(i)
  a(i) = a(x)
  a(x) = t
 Next i
 Cls
 ' 此處可由使用者任意取
 For i = 11 To 20
  Print a(i)
 Next i

全站熱搜

vbqa 發表在 痞客邦 留言(26) 人氣()