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#下面依次類推可以設(shè)置三等獎的抽獎024 改進(jìn)版 上面的那個初級版，假如要設(shè)置個三等獎一百名那么將要重新維護(hù)幾百行代碼，下面用比較高級點的辦法實現(xiàn)我們考慮用面向?qū)ο髞韺崿F(xiàn)，設(shè)計一個抽獎類，類中包含一。