TextBox1Text = arrnCellscount + 1， 10 = arrn #39测试代码可删除 Cellscount + 1， 11 = n #39测试代码可删除 count = count + 1 arrn = arrUBoundarrIf UBoundarr 1 Then ReDim Preserve arr1 To UBoundarr 1Else MsgBox quot所有人员都已抽完quotEnd。

部分代码如下Private Sub CommandButton4_Click#39开始抽奖 Dim zb As String， dj As String， rs As Integer Dim SARR1 To 5000， 1 To 2 #39存放本次抽奖的候选人清单 1姓名 2电话号码 #39Dim lsARR #39存放最近100次的候选人 Dim ZZ1 As Integer， ZZ2 As Integer， ZZ3 As Integer #39。

print#39获得3个二等奖是 %s %s %s#39，e2_1，e2_2，e2_3#下面依次类推可以设置三等奖的抽奖024 改进版 上面的那个初级版，假如要设置个三等奖一百名那么将要重新维护几百行代码，下面用比较高级点的办法实现我们考虑用面向对象来实现，设计一个抽奖类，类中包含一。