抽签号码软件,抽签表怎么做
阅读导航
自动抽签系统 1.10怎么用
可以实现无限人员进行的电脑自动抽签软件系统,操作简便,实用性强。
可用于各种活动的抽签,可用于游戏、问答类抽签等等
1.对无限人员进行自动抽签。可多次抽签
2.通过TXT文本导入人员姓名。
3.对抽签结果进行根据抽签号升降排序。
4.可将抽签结果导出成Excel文件,Word文件,Txt文本文件。
5.可对抽签结果根据姓名或者抽签号查询。方便管理查阅
求一个随机抽签不重复软件或.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
Text1.Text = "第" & 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的话给我邮件地址帮你发啦
求一个随机抽签不重复软件或.exe程序,1-54之间不重复。哪位能帮忙?谢谢...
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
namespace RandDemo
{
class Program
{
static void Main(string[] args)
{
System.Random rdm1 = new Random(unchecked((int)DateTime.Now.Ticks));
Console.WriteLine(rdm1.Next(1,54)); //输出1-54之间的一个随机数
}
}
}
如果只要整数的话是,不可能不重复的。
有没有这样的抽签(选择)软件?
这不就是福利彩票的选号一样嘛
只是加了个数字过滤
去3D乐园下 里面把软件下下来 把该过滤的
和只能用的号码或数字 抽签就可以了
关帝灵签第六十三签求详细解读?
此乃上上签,因为这些都是封建,哪有什么上千向前都是自己寻找的心理平衡,通过我们的劳动和努力,所有的人都是上上签
北高峰求签解签大全
我是信仰佛教的,其实都可以带。没什么不好的事。我就带了楞严咒和念珠,楞严咒有很多功德比带护身符还好。
- 0000
- 0000
- 0000
- 0000
- 0000