求一个随机抽签不重复软件或.exe程序，1-36之间不重复。

vb源码：

Dim num(1 To 36) As Integer

Dim a As Integer

Private Sub Command1_Click()

Dim temp As Integer

For k = 1 To 36

num(k) = 0

Next k

For i = 1 To 36

temp = CInt(Rnd()  35) + 1

a1:

If num(temp) = 0 And temp <> 0 Then

num(temp) = i

Else

temp = CInt(Rnd()  36)

DoEvents

GoTo a1

End If

Next i

MsgBox "抽签完成", vbInformation, "提示"

End Sub

Private Sub Command2_Click()

If num(1) = 0 Then

MsgBox "还没有抽签那", vbInformation, "提示"

GoTo a2

End If

If a = 0 Then

a = 1

ElseIf a = 36 Then

MsgBox "到底了", vbInformation, "提示"

a = 1

End If

Text1Text = "第" & a & "号抽签结果是：" & num(a)

a = a + 1

a2:

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

For k = 1 To 36

num(k) = 0

Next k

End Sub

下面附上运行效果图：

如果没有vb6的话给我邮件地址帮你发啦

前往「李宁官方旗舰店」小程序，在首页即可找到抽签链接。

从上午10点到明天晚上24点，都能进行登记。

选择尺码后即可获得抽签码，邀请好友助力还能获得额外抽签码，每人最多可以邀请2位好友助力。

点击立即抽签即可。

中签结果将通过过小程序订阅消息通知。

没有抽签小程序可以指定一个人。微信日常抽签工具抽签都是随机的，这是要看运气的，不能指定人，“日常抽签工具”是一款简单实用的抽签小程序，它能快速帮助大家解决一些令人纠结的事情，轻松搞定选择困难症。

可以偷懒的嘛!

用记事本把下面代码保存为XXbat 双击运行即可

@echo off&color 3e&mode con cols=55

set nab=1-54

title 不重复随机抽取 %nab%

echo/

echo ==========================

echo/

echo 抽 签 开 始 啦 ！

echo/

echo ^( %nab% ^)

echo ==========================

echo/

echo 请输入一名字后回车或直接回车进行抽签,

echo/&echo 中止抽签请按 q 回车:&echo/

setlocal enabledelayedexpansion

set nbn=%nab:-=%

call set nb0=%%nab:-!nbn!=%%

(for /L %%s in (%nb0%,1,%nbn%)do (

call :geths

set !hs!=%%s&echo!hs!

))>temyky

for /f %%r in ('type temyky^|sort')do (

set w=&set/p w=

if /i "!w!"=="q" goto :end

set/a n+=1

echo 第 !n! 个抽的是: !%%r!)

:end

del temyky

echo/&echo 抽签完毕! 按任意键退出

pause>nul&exit

:geths

set hs=%random%

if defined %hs% goto geths

抽签微信可以用在任何需要进行排列、分组的时候，比如说公司里面大家都不愿意晨会演讲，就可以抽签决定，每到这种难以抉择的时候，抽签分组是少不了的啦。今天我给大家介绍一款超实用的抓阄抽签小工具，将会很轻松地解决掉以上问题。

一    打开微信，直接搜索“抓阄抽签小工具”，创建好抽签微信群。

二    进入到选项页面进行抽签任务设置。

填写好任务名称

2   进行抽签选项设置

3 进行其他设置

三    最后将抽签任务分享至微信群，@所有人参与抽签。

四进入到抽签页面，点击抽签，点击刷新按钮，查看抽签记录。

小程序的应用可以让我们的工作和生活更加方便、有趣，发挥你的想象力去寻找更多有趣好玩的小工具吧。

以上就是关于求一个随机抽签不重复软件或.exe程序，1-36之间不重复。全部的内容，包括:求一个随机抽签不重复软件或.exe程序，1-36之间不重复。、李宁门店抽签流程、有没有抽签小程序可以指定一个人等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！