裁53张小纸条，分别写上1-53的号码，每人抽一张。
某单元格输入：
=round(rand()53,)+1，（excel2003版）
=randbetween(1,53)，（excel2007版）
每按一次f9键，将随机产生一个1-53的数字。
现在怎么可能呢？相片是你同学怎么也对应不上撒~~
相片要么就是有规律的排序如 TX001jpg TX002jpg ……，要么就是姓名~~
设置程序，点开始，所有相片开始滚动，再点一下就停~~
效果是这样吧~ 呵~ 其实不难
'新键两个 CommandButton和 TextBox ,其中 Text2 的 MultiLine 属性为 Ture ,ScrollBars 为 2 - Vertical
Dim lbNum As Integer
Private Sub Command1_Click()
    If Trim(Text1) <> "" Then 'trim 函数是用来删除 text1 两边的空格
        lbNum = lbNum + 1
        Text2Text = Text2 & lbNum & "" & Text1 & vbCrLf  '记录,不过我建议这里用 listbox
    Else
        MsgBox "请输入内容"  '当没有输入内容时
    End If
End Sub
Private Sub Command2_Click()
    Randomize  '如果没有这句每次重新启动程序时 Rnd 函数会还是得出原来的那几个数
    
    MsgBox "抽到的签是 " & Int((lbNum - 1)  Rnd + 1) & " 号"
       'Rnd 函数的公式,这样出来的数就在 1 到 lbNum 之间了
End Sub
两按钮，一个编辑框，一个时钟 直接复制代码即可测试
版本 2
程序集 窗口程序集1
程序集变量 成员, 文本型, , "10"
子程序 __启动窗口_创建完毕
成员 [1] ＝ “朱元璋”
成员 [2] ＝ “爱新觉罗玄烨”
成员 [3] ＝ “嬴政”
成员 [4] ＝ “纣王”
成员 [5] ＝ “小布什”
成员 [6] ＝ “梅德韦杰夫”
成员 [7] ＝ “五条干”
成员 [8] ＝ “本拉登”
成员 [9] ＝ “萨达姆”
成员 [10] ＝ “奥巴马”
按钮1标题 ＝ “开始”
按钮2标题 ＝ “停止”
子程序 _按钮1_被单击
时钟1时钟周期 ＝ 100
子程序 _按钮2_被单击
时钟1时钟周期 ＝ 0
子程序 _时钟1_周期事件
置随机数种子 ()
编辑框1内容 ＝ 成员 [取随机数 (1, 10)]
复制后注意看下 代码最上面是否和 图中一致
#include<stdioh>
#include<stdlibh>
#include<timeh>
void main()
{
int num;
time_t t;
srand((unsigned)time(&t)); //获取当前时间作为种子，保证每次产生随机数的种子不同
num=random(60); //用函数random在0-60之间产生一个随机数
printf("num=%d",num);
}
希望回答对你有帮助！
原创答人
以上就是关于用excel制作一个抽签程序，第一组工作表是抽签人员名单全部的内容，包括:用excel制作一个抽签程序，第一组工作表是抽签人员名单、带图片抽签程序怎么做、求vb抽签程序代码 做得好追加高分等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）