1、你去搜索 c#读取Excel到Datatable 2、生成几个随机索引 从datatable中取内容
不知道你所见到的具体页面与内容是什么样的。下面的公式直接输入到任意单元格里就可以实现了。 抽签程序主要用到的是随机函数 rand 例如班上一共有60个人,学号从1到60,则公式:=ROUND((1-RAND())*60,0) 就是从1到60的随机数。 然后每改变一次其他单元格的数值,或者按一下F9,其数值均会改变一次。
肉气蒸腾口生津, 把盏举箸狼虎追。 偶然一瞥我双亲, 不觉潸然把泪挥。 旮旯一隅两白头, 驼背缺牙食无味。
肉气蒸腾口生津, 把盏举箸狼虎追。 偶然一瞥我双亲, 不觉潸然把泪挥。 旮旯一隅两白头, 驼背缺牙食无味。
信它就灵,这是人自己给自己的信念和意念动力造成的结果。
假设A列是顺序号1、2、3、4、5 B列是人名A、B、C、D、E 可在C1输入 =vlookup(randbetween(1,5),A:B,2,) 然后按F9 每按一次都会随机出一个人名
Option Explicit Private Sub Command1_Click() '定义一个数组来存储人名 Dim RStr(0 To 9) As String Dim i, j, k '给要滚动的数给赋值 '实际使用应该是 RStr(0)="张三" :RStr(1)="李四" 之类 RStr(0) = "张三" RStr(1) = "李四" RStr(2) = "刘德华" RStr(3) = "郭富城" RStr(4) = "黎明" RStr(5) = "无良" RStr(6) = "梦梦" RStr(7) = "张学友" RStr(8) = "王志和" RStr(9) = "老干妈" '判断按钮标题 If Command1.Caption = "开始" Then '改变标题 Command1.Caption = "结束" '开始滚动显示 Do While 1 '检测到按钮标题变回开始,即点击结束后,退出死循环并赋值 If Command1.Caption = "开始" Then Label1.Caption = "获奖人:" & Text1.Text Exit Do End If '转让控制权,即使在循环中也可以点击按钮 DoEvents '初始化随机数生成器。 Randomize '随机生成一个0到9的数字 k = Int(Rnd * 10) '写入text1 Text1.Text = RStr(k) '刷新text1 Text1.Refresh '用一段循环来延时,做
是你自己随机抽吗?那就直接把队名放EXCEL里面,随机排序一下,从上往下6个一组就行了,但是抽签不是要让各队自己来抽吗?还不如搞些纸条,分别写上6个A,6个B,6个C……,然后让大家抓阄比较公平一点
作品:野百合也有春天 材料:瓢虫(带点儿的甲壳)、绿蚂蚱(绿色的翅膀外鞘、大腿、前腿第一节) 设计:瓢虫甲壳每一片纵向剪成两半,每六片粘一个花,花蕊用蚂蚱的前腿第一节,花梃用蚂蚱大腿,叶子用蚂蚱翅膀外鞘纵向剪成两半做叶子。重复做一百朵相同的花,粘成花海。 优点:瓢虫的壳和野百合的颜色、黑点儿非常近似。 缺点:花海上边的天上应该做个太阳,但我还没想起来用什么来做。 呵呵,个人想法,严禁直接使用。
土肥圆