请问VB抽签系统怎么做

那就用我下面说的这种方法就可以的。

代码自己能组织出来吗？我这里没有你的数据库，不好写。有什么不会写的地方问我。

－－－－－－－－－－－－－－－－－－

你要抽取的是N个随机的姓名吗？

－－－－－－－－－－－－－－－－－－

Randomize'随机数初始化

'求1-N之间的随机数

int(rnd()N)+1

你要作的是统计出数据库中的记录数，假设数字为10

就是

i=int(rnd()10)+1

然后

rsmove

i

'''''如果你是随机选50个不重复的数则可用下面这个程序：

Option Base 1

Private Sub Form_Click()

Dim A(), i%, k%, Jk%

ReDim A(50)

For i = 1 To 50

A(i) = i

Next

Choose:

k = UBound(A) ''''''K为当前还剩下未被抽取的数

Jk = Int(Rnd (k) + 1) ''''在剩余数中随机抽取第JK个数

Print A(Jk) ''''''''''''''''A(JK)就是随机抽到的数，

If k = 1 Then Exit Sub '''''如果是最后一个数则退出

For j = Jk To k - 1

A(j) = A(j + 1) ''''''从抽到的那个数开始，让前一个数等于后一个数，将抽到的那个数删除

Next j

ReDim Preserve A(k - 1)

GoTo Choose '''''继续随机抽选

End Sub

Private Sub Command1_Click()

Dim team(8), teamA(4), teamB(4) As String, i%, j%

team(1) = "中国"

team(2) = "美国"

team(3) = "巴西"

team(4) = "古巴"

team(5) = "俄罗斯"

team(6) = "荷兰"

team(7) = "德国"

team(8) = "西班牙"

For i = 1 To 8

x = Int((9 - i)  Rnd + 1)    '剩余随机选择

If i > 4 Then

teamA(i - 4) = team(x)

Else

teamB(i) = team(x)

End If

For j = x To 8

If j < 8 Then team(j) = team(j + 1)

Next

Next

Text1Text = teamA(1) & Space(2) & teamA(2) & Space(2) & teamA(3) & Space(2) & teamA(4)

Text2Text = teamB(1) & Space(2) & teamB(2) & Space(2) & teamB(3) & Space(2) & teamB(4)

End Sub

1、首先在桌面上，鼠标左键双击程序，在打开的VB6主界面上。

2、其次点击左边工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1。

3、最后在其属性窗口上改个名字，点击运行即可。

以上就是关于请问VB抽签系统怎么做全部的内容，包括:请问VB抽签系统怎么做、vb抽取1~55随机数【班级抽签用】、vb比赛分组抽签程序：编写一个比赛分组抽签程序，把八支队伍（中、美、巴西、古巴、俄罗斯、荷兰、德国、日等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！