|
|
Sub ddd()
Dim strName(10) As String, str中奖人 As String, i As Integer, l As Integer
strName(1) = "张三1"
strName(2) = "张三2"
strName(3) = "张三3"
strName(4) = "张三4"
strName(5) = "张三5"
strName(6) = "张三6"
strName(7) = "张三7"
strName(8) = "张三8"
strName(9) = "张三9"
strName(10) = "张三10"
k = 10
Do
i = RndInt(1, k)
str中奖人 = strName(i)
MsgBox str中奖人
If i < k Then
For l = i To k - 1
strName(l) = strName(l + 1)
Next l
End If
k = k - 1
Loop Until k < 1
End Sub
Function RndInt(a, b) '产生一个a、b之间的随机整数
Randomize
RndInt = Int((b - a + 1) * Rnd + a)
End Function |
|
