VB做抽签程序的代码
展开全部 Option ExplicitPrivate 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 '用一段循环来延时,做出滚动效果,如果不用,一闪就没了 '可以加大数值延长滚动效果 For i = 1 To 30000 If Command1.Caption = "开始" Then Exit For DoEvents Next i Loop Else '改变标题 Command1.Caption = "开始" End IfEnd SubPrivate Sub Form_Load() Command1.Caption = "开始" Label1.Caption = "获奖人:" Text1.Text = "请开始抽奖...."End Sub'==== 记得采纳哦 ===========...
Excel 如何实现分组的随机抽签
展开全部 新建一个空白excel表格选中多个单元格,并进行合并居中(本步骤可以省略)选中单元格,输入公式=INT(RAND()*(100-1+1))+1,按回车键确认1.记住连同=号一起输入;2.如果是在1-50中抽取,则将公式中100替换成50,以此类推。
选中单元格,在“开始”选项卡中进行字体大小调整按键盘F9键进行刷新,即每按一次F9将出现新数字长按F9有数字滚动的效果哟~...
有没有关于这个sql分组更好的代码
你的问题太笼统了。
sql中分组用group by ,例如有表A,字段:姓名、年份、月份 、语文成绩 、数学成绩、英语成绩;数据格式:姓名、年份、月份 、语文成绩 、数学成绩、英语成绩张三 2018 1 80 95 90张三 2018 2 80 95 90李四 2018 1 50 75 88李四 2018 2 61 80 74王五 2018 1 81 90 83王五 2018 2 60 75 60则查询每个学生在2018年的的每个科目的平均值及总和:select 姓名 ,年分 ,avg(语文成绩 ),avg(数学成绩),avg(英语成绩) ,avg(语文成绩 )+avg(数学成绩)+avg(英语成绩)from 表Agroup by 姓名、年份...
转载请注明出处51数据库 » 在线分组抽签软件源码