三九宝宝网宝宝百科健康成长

excel表格随机抽取姓名如果改为8 8的方格要怎样修改这些代码

02月11日 编辑 39baobao.com

[求vfp中计时器的代码用来随机抽取点名显示学号跟姓名]用rand函数,按你这个意思,建议考虑先建一个表,表中存储学号、姓名等信息,然后在表单中添加一个计时期,计时周期根据需要设置,计时器time代码中主要使用rand函数产生随机数,然后以此...+阅读

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub 随机()Dim x As IntegerDim y As Integera = 0Randomize '初始化10:x = Rnd() * (9 - 2) + 2 '生成2至8的随机数,代表行数y = Rnd() * (9 - 2) + 2 '生成2至8的随机数,代表列数Range("b2:i9").Interior.ColorIndex = xlNone '去掉填充色Cells(x, y).Interior.ColorIndex = 3 '填充为红色DoEvents '释放程序控制权,允许其他事件Sleep (10) '延时msDoEvents '释放程序控制权,允许其他事件If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序GoTo 10End SubSub 结束()a = 1 '结束标志End Sub...

推荐阅读
图文推荐