我用EXCEL的VBA
做了一个产生不重复的乱数程式
程式码如下
Sub 按钮1_Click()
Dim LuckyNumber() As Integer, Upperbound As Integer, Lowerbound As Integer,
ArrayLength As Integer, RndNumber As Integer, RndNumber2 As Integer, Temp As
Integer
Lowerbound = Range("D8").Value '从储存格D8取乱数范围的下限值
Upperbound = Range("D7").Value '从储存格D7取乱数范围的上限值
ArrayLength = Upperbound - Lowerbound
ReDim LuckyNumber(ArrayLength) As Integer
For i = 0 To ArrayLength
LuckyNumber(i) = Lowerbound + i
Next
Randomize
For j = 0 To ArrayLength
RndNumber = Int((Upperbound - Lowerbound + 1) * Rnd)
RndNumber2 = Int((Upperbound - Lowerbound + 1) * Rnd)
Temp = LuckyNumber(RndNumber)
LuckyNumber(RndNumber) = LuckyNumber(RndNumbber2)
LuckyNumber(RndNumbber2) = Temp
Next
End Sub
目前程式是可以产生出不重复的乱数值
我想呈现出来的结果是
按一下按钮1的时候
在储存格B3的位置
就显示出LuckyNumber(0)的乱数结果
再按一下按钮1的时候
同样在B3的位置显示
LuckyNumber(1)的乱数结果
以此类推
可是现在每按一次按钮1
乱数阵列LuckyNumber()
就再重新产生一次了....
要如何让乱数阵列固定下来
每按一次按钮的时候
就显示出下一个乱数
LuckyNumber(0)->LuckyNumber(1)->...LuckyNumber(N)
这个问题该怎么解决？

再设计个按钮是回传luckynumber结果的原先按钮1产生的乱数看要暂存于储存格或是变量内，变量内的话，插入个模组，public LuckyNumber() as integer和public 变量 as integer，这个变量用于按钮2原本写于按钮1内宣告dim LuckyNumber() as integer就删除按钮2_click触发事件，就为range("b3") = luckynumber(变量)变量=变量+1按钮1_click方面则要在每次产生新乱数时，将上述变量设为0(变量=0)

谢谢楼上大大的说明，我有概念了！那再请教一下，如何让按钮1只能点击1次呢？产生乱数后就不能再按了

按钮1.enabled = false