excel中的抽奖程序

Sub 矩形2_单击()     Dim a     For X = 1 To 666         a = Int((100 - lowerbound + 1) * Rnd + 0)         Sheets("sheet1").Range("a1") = a         Sheets("sheet1").Cells(2, 1) = 200     Next End Sub