求一个随机抽取姓名的软件
可以利用 office EXCEL来实现。
在A列(A1、A2、A3等连续输入你要随机选取的名字)在B1单元格输入公式:=INDEX(A1:A4,INT(RAND()*(4-1)+1),1)其中:A1:A4 是你在A列输入全部名字的范围,例如第一个填写名字的单元格是A1而最后一个名字的单元是A20,那么就是A1:A20。
RAND()*(4-1)+1 的格式为 RAND()*(b-a)+a,在 a 与 b 个随机名字范围内随机抽取一个,假如第一个填写名字的单元格是A1而最后一个名字的单元是A20,那么a = 1 b = 20 。
每编辑公式一次(双击公式单元格,然后按回车),就得到一次随机抽取结果
随机抽取名字的软件
A2、A3等连续输入你要随机选取的名字)在B1单元格输入公式:=INDEX(A1:A4,INT(RAND()*(4-1)+1),1)其中:A1:A4 是你在A列输入全部名字的范围,例如第一个填写名字的单元格是A1而最后一个名字的单元是A20,那么就是A1:A20。
RAND()*(4-1)+1 的格式为 RAND()*(b-a)+a,在 a 与 b 个随机名字范围内随机抽取一个,假如第一个填写名字的单元格是A1而最后一个名字的单元是A20,那么a = 1 b = 20 。
每编辑公式一次(双击公式单元格,然后按回车),就得到一次随机抽取结果。
大家有没有可以用来随机抽奖的小软件推荐?
B1输入一个字段名可以用RAND函数还随机排序抽取,以下图中的姓名为例,要随机抽取5个人: 步骤3.jpg" esrc="http.baidu://e,因此通过生成的随机小数进行排序、降序都可以),如下图: 步骤1://a.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"> 现在姓名数据已经乱序了,随便连续5个就是随机的姓名,如A2:A6的姓名。
知识扩展: RAND():生成区间[0.com/zhidao/wh%3D600%2C800/sign=2ce4159da3c27d1ea57333c22be58156/9c16fdfaaf51f3de4c541e5d93eef01f3a297921.jpg" esrc="http://a.hiphotos.jpg" esrc="http.com/zhidao/pic/item/ac6eddc451da81cb79bd24f45566d016092431ab.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"> 追问 不是这 是个软件...
用vb编写了这个随机抽取人名的抽奖系统,但会出现重复,怎么样做到...
我给你个简单的例子、你看下Option ExplicitDim jm(35) As StringDim i, cs As IntegerPrivate Sub Command1_Click()Timer1.Enabled = Truecs = cs + 1Label1.Visible = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command2_Click()Timer1.Enabled = Falsejm(i) = jm(32 - cs)Command1.Enabled = TrueCommand2.Enabled = FalseStatusBar1.Panels.Item(3) = 32 - csEnd SubPrivate Sub Form_Load()jm(0) = "李珊珊等《西游记》"jm(1) = "刘泽玉 小王佳《知足》"jm(2) = "小王佳 王敏《一个像夏天,一个像秋天》"jm(3) = "李铭 李兵《你是我心内的一首歌》"jm(4) = "刘泽玉 孙皓晨《因为爱情》"jm(5) = "赵京城 《寻找》"jm(6) = "王振远 高磊《寂寞沙洲冷》"jm(7) = "李宗瑶《小星星》"jm(8) = "逯鹏 张志远《最美的太阳》"jm(9) = "李彤彤 葛文芮《BABY DON'T CRY》"jm(10) = "王敏 杨雪《夜夜夜夜》"jm(11) = "张月明 李晓雨 大王佳《过火》"jm(12) = "葛文芮 孙皓晨《Timeless》"jm(13) = "叶小雨 郭津铭《未完成的歌》"jm(14) = "逯鹏 孙杰《父亲》"jm(15) = "王昭政《那些年》"jm(16) = "叶小雨 高磊《奔跑》"jm(17) = "顾庆杰 韩曦《我们都一样》"jm(18) = "张遵策 郭津铭《心跳》"jm(19) = "张遵策《空城》"jm(20) = "逯鹏 李宗瑶《江南》"jm(21) = "郅睿 王敏《会呼吸的痛》"jm(22) = "韩绍飞 吕典杰《水手》"jm(23) = "郅睿 张东剑《后会无期》"jm(24) = "大王佳 韩曦《小酒窝》"jm(25) = "赵文青 时静璐《遗失的美好》"jm(26) = "甄岳《没有什么不同》"jm(27) = "吴巧 李晓慧《我的歌声里》"jm(28) = "李瑶 李姗姗《最炫民族风》"jm(29) = "大王佳 侯家慧《星空》"jm(30) = "三组全体《大笑江湖》"jm(31) = "大王佳 张锋《肩上蝶》"End SubPrivate Sub Timer1_Timer()Randomizei = Int(Rnd * (32 - cs))Label1.Caption = jm(i)If 32 - cs Timer1.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseMsgBox "节目已完成,感谢你使用本程序!"Command3.Value = TrueEnd IfEnd Sub