作者：绿色风
分类：
时间：2022-08-18
浏览：61
楼主
huangwei0king |
- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- Private Sub ToggleButton1_Click()
- Dim p As Integer
- Dim ct As Integer
- ct = Sheets(2).Range("a65535").End(xlUp).Row
- Do Until ToggleButton1.Value = False
- p = Round(Rnd() * ct, 0)
- If p = 0 Then
- p = 1
- End If
- Sheets(1).Range("e9") = Sheets(2).Range("a" & p)
- Call Delayt(200)
- Loop
- End Sub
- Public Sub Delayt(ByVal num As Long)
- DoEvents
- Sleep 200
- End Sub
前段时间做了一个趣味题，简易的抽奖器！
我是使用切换控件的Value属性实现开关的！
题目其实不难，这里想提出的是另外几个问题，也是我很困惑的问题，供大家讨论一下！
1、由于是抽奖器，时间间隔必将很短，使用ONTIME没有SLEEP好，这是为什么呢？
2、采用RND进行随机，如果有N个成员，能保证每个成员的几率是一样的么？是否有办法保证N个成员的概率一样呢？
 简易抽奖器题目.rar
|
2楼
wjc2090742 |
问1
ontime的最小单位是s，小于1s的表达不精确。参考下帖
VBA的TimeValue少於1秒如何表達
http://www.exceltip.net/thread-12750-1-1.html
问2
在rnd之前加Randomize初始化 |
3楼
huangwei0king |
谢谢W了，，
 |
4楼
JOYARK1958 |
謝謝提供學習下載中 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一