一、效果视图

隐藏调试框

二、使用步骤

1.操作步骤

1.设置启用宏

注意：需要启用宏才能运行改程序
首先点击文件

其次点击更多

点击选项

点击信任中心

启用宏

2.添加宏插件按钮

添加以下，也可仅添加宏
必要添加宏【查看宏】

3.添加文本框及按钮

控件中添加文本框

添加按钮

建7个文本框。三个按钮

隐藏常量文本框，作为传参参数框
右键属性表，查看

剩余框属性如下

2.代码

点击此处查看代码

复制粘贴以下代码

代码如下（示例）：

Function T(Temp() As String, N As Integer) 'ByRefDim Str1 As StringDim j As Integer'以下是数据库Str1 = "长安归故里,三混带三躺,你说什么都队,猪突豨勇队,白千夜,熊出没队,XYG,蒗队,J1队,娃娃鱼,TOP,打倒哥哥队,牛马队,张院土鸡队,随便打打队,WD队,ust,mn队,啊对对队,四神带一菜,爱会消失对不队,啊对对对队,Bigbug,一队混子,狗子大队,奇迹再现,秃鸡队,SFC,比奇堡队,月月鸟,回家的诱惑队,sixgod,又菜又爱玩队,YYDS,张院GOAT,GOH队,SAD,精神小伙成双队,为她夺冠"'命s以逗号分割为一个个数组s = Split(Str1, ",")'N为总数N = UBound(s) - LBound(s)'调试框 = 调试框 & N & "****"'等价与0到N，此代码意义为将数据库传输数组至Temp数组For j = 0 To UBound(s) - LBound(s)Temp(j) = s(j)Next j
End FunctionFunction Printf(TempArray() As String, x)  '输出函数Dim i As IntegerFor i = 0 To x Step 1If i = x Then调试框 = 调试框 & TempArray(i)Else调试框 = 调试框 & TempArray(i) & ","End IfNext i
End FunctionFunction D(Temp() As String, x, i)    '删除已用随机数函数，删除Temp中i到x的数组Dim j As IntegerFor j = i To xTemp(j) = Temp(j + 1)Next jEnd FunctionFunction T2(Temp() As String, TempArray() As String, N As Integer, y)
'随机抽取Dim RndNumber, i As IntegerRandomize (oracle)For i = 0 To y Step 1RndNumber = Int((N + 1) * Rnd)TempArray(i) = Temp(RndNumber)Call D(Temp, N, RndNumber)'调用删除函数N = N - 1Next iT2 = i
End FunctionPrivate Sub 常量_Change()End SubPrivate Sub 调试框_Change()End SubPrivate Sub 抽取结果_Change()End SubSub 轮空_Click()Dim y, i As IntegerDim N As IntegerDim Temp(0 To 150) As StringDim TempArray(0 To 150) As StringCall T(Temp, N)y = Ni = T2(Temp, TempArray, N, y)Call T(Temp, N)If i Mod 2 = 0 Then'Call Printf(Temp, N)Call Printf(TempArray, N)抽取结果 = "无轮空组"Else'Call Printf(Temp, N)Call Printf(TempArray, N)抽取结果 = "轮空:" & TempArray(N) & " ; "End If常量.Text = 常量.Text + 1常量.Text = 0停止.Enabled = True
End SubPrivate Sub 清除_Click()抽取结果 = " "调试框 = " "左对战框 = " "右对战框 = " "左队伍框 = " "右队伍框 = " "常量 = -1
End SubPrivate Sub 停止_Click()Dim Str1 As StringDim i As StringDim N As IntegerDim a(0 To 150) As StringCall T(a, N)Str1 = 调试框.Values = Split(Str1, ",")'此处填写数据库总数，例如我的数据库中是39队因此一队轮空If 常量 < 39 ThenIf 常量 < 0 Then调试框 = " "左对战框 = " "右对战框 = " "左队伍框 = " "右队伍框 = " "常量 = -1ElseIf 常量.Text Mod 2 = 0 Then左队伍框 = s(常量.Text)左对战框 = s(常量.Text)右队伍框 = "抽取中"右对战框 = " "Else左队伍框 = "抽取中"右队伍框 = s(常量.Text)右对战框 = s(常量.Text)抽取结果.Value = 抽取结果.Value & s(常量.Text - 1) & "对战" & s(常量.Text) & ";  "End If常量.Text = 常量.Text + 1End IfElse调试框 = " "左对战框 = " "右对战框 = " "左队伍框 = " "右队伍框 = " "常量 = -1End If
End SubPrivate Sub 右队伍框_Change()End SubPrivate Sub 右对战框_Change()End SubPrivate Sub 左队伍框_Change()End SubPrivate Sub 左对战框_Change()End Sub

复制粘贴后点击运行就行了，当然好看的背景图片还是得自己找的
资源地址：vba新手书写队伍抽签ppt

vba抽奖ppt 深蓝计协电竞大赛相关推荐

中国移动也要办电竞大赛了！联合腾讯网易办首届电竞大赛
6月27日,在中国移动"千兆引领生态赋能"合作大会上,中国移动市场经营部总经理张冬宣布2019年中国移动首届电子竞技大赛即将开赛. 这届电竞大赛中国移动联合腾讯和网易暴雪共同启动 ...
承德医学院计算机协会会长,承德医学院中医系“延庚子传统，现王者风范”王者电竞大赛圆满结束...
原标题:承德医学院中医系"延庚子传统,现王者风范"王者电竞大赛圆满结束延庚子传统,现王者风范计算机是20世纪最先进的科学技术发明之一,对我们的生产活动和社会活动产生了极其重要的 ...
竞技时代引领VR电竞，WVA2018全新出发！
2015年12月31日,"暴风魔镜杯"WVA2015全球首届VR电子竞技大赛正式揭开了VR电竞的序幕. 两年多来,VR电子竞技走进了越来越多行业内外人士的视野.作为全球第一家发起并 ...
电竞Dota2数据API接口 - 【联赛列表】API调用示例代码
分享使用接口调用的示例代码,Dota2的[联赛列表]接口. import com.alibaba.fastjson.JSON; import com.alibaba.fastjson.annotati ...
重庆-新加坡国际电竞嘉年华落幕“文旅+”助推建设国际旅游目的地
11月17日,在重庆市文化和旅游发展委员会的指导和大力支持下,由重庆演艺集团.重庆演出公司主办,重庆渝中区大石化新区建设委员会冠名,中国电信股份有限公司重庆分公司.重庆虎投体育文化产业有限公司.重庆秀 ...
电竞英雄联盟数据API接口 - 【联赛列表】API调用示例代码
分享使用接口调用的示例代码,今天接的是英雄联盟的[联赛列表]接口,跟之前不同的是,接口返回的是Json数据,这里使用Fastjson来解析. import com.alibaba.fastjson.J ...
游戏产业链：游戏直播/游戏陪玩/电竞赛事
游戏直播游戏直播行业,最近暗潮汹涌.先是虎牙合并斗鱼,接着企鹅电竞收购虎牙.腾讯一统江湖. 没办法,热门游戏,有一半都是腾讯的版权,其他玩家,根本和腾讯不在一个量级上.趁高峰时,卖个好价钱,省得到时 ...
为电竞而声：1MORE万魔耳机新品亮相ChinaJoy
2018年8月3日-6日,中国国际数码互动娱乐展览会(ChinaJoy)在上海新国际博览中心隆重开展. 作为中国原创耳机品牌,1MORE万魔耳机也参与了这场盛会,并且一口气发布了四款电竞系列及无线Hi ...
对话找钢网创始人王东：电竞少年凭什么革了钢贸行业的命？
对话嘉宾: ➤牛文文创业黑马创始人董事长 ➤王东找钢网创始人 4年时间,找钢网从一个撮合钢铁买卖的网站成长成为集钢材交易(包括撮合和自营).物流.金融.仓储加工.投资等业务为一体的大型商业平台, ...

vba抽奖ppt 深蓝计协电竞大赛

文章目录