在线请教:关于数循环的问题

xdcow

多谢

晓月清风

Dim i1 As Integer

Private Sub 生成_Click()

'代码这样写也只是按一下按钮，显示一个数字

'避免不了数字会重复For i1 = 1 To 10 '循环10次，在这里循环100次也没用啊

    显示 = Int((100 - 1) * Rnd + 1) '显示等于1至100的随机数

Next i1End Sub

我的想法：将循环10次获得的数字储存在某一列上，检测是否有重复，没有就跳到获取摇奖代码(即数字滚动），有则再获取一个随机数，再检测，……

xdcow

版主,怎么样才能数字滚动?

晓月清风

做了一个数字滚动效果的模型供你参考参考：



原代码如下：

Sub wlqGD()

'晓月清风

'2005-07-19

'ACCESS/OFFICE中国论坛 → Excel论坛 → Excel使用经验交流

'http://www.office-cn.net/forum.php?mod=viewthread&tid=29664

Dim i As Integer

For i = 1 To 1000

'数值不要设得太小，否则看不到滚动的效果

If i < 1000 Then

[a1].FormulaR1C1 = "=int(rand()*1000+1)"

Else

Exit Sub

End If

Next i

End Sub