抽签软件免费提供，代码开源，可用作抽奖、课堂抽背、游戏分组等活动场合，可以直接下载

Option Explicit
Dim mode%
Private Sub Command1_Click()
mode = 0
If Command1.Caption = "确定" Then
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Command1.Caption = "重新配置"
Else
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Command1.Caption = "确定"
End If
End Sub
Private Sub Command2_Click()
Dim a%, b%, n%, r%, i%
Randomize
If mode = 0 Then
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    n = Val(Text3.Text)
    '数据存储数组
    Dim zs%
    zs = b - a
    ReDim da%(zs)
    Dim c1% '用来计数
    c1 = 0
    For i = a To b
        da(c1) = i
        c1 = c1 + 1
    Next i
    '使用索引抽取
    For i = 1 To n
        r = Int(Rnd * (zs + 1))
        Text4.Text = Text4.Text & da(r) & "、"
        '简单处理，把最后一个数已入已经抽取过的数的位置
        da(r) = da(zs)
        da(zs) = -1
        zs = zs - 1
    Next i
    Text4.Text = Mid(Text4.Text, 1, Len(Text4.Text) - 1)
ElseIf mode = 1 Then '标记-1法
    If Trim(Text5.Text) <> "" Then
        Dim ta$(), j%
        ta = Split(Text5.Text, "、")
        a = 0
        b = UBound(ta)
        r = Int(Rnd * (b - a + 1) + a)
        n = Val(Text6.Text)
        Do Until n = 0
            Dim tmp%
            tmp = 0
            For j = 0 To b
                If Val(ta(j)) <> -1 Then
                    tmp = tmp + 1
                End If
            Next j
            ReDim tb%(tmp - 1), tbi%(tmp - 1)
            Dim c%
            c = 0
            For j = 0 To UBound(ta)
                If Val(tmp) > c And Val(ta(j)) <> -1 Then
                    tb(c) = Val(ta(j))
                    tbi(c) = j
                    c = c + 1
                End If
            Next j
            Dim a1%, b1%, r1%
            a1 = 0
            b1 = UBound(tb)
            r1 = Int(Rnd * (b1 - a1 + 1) + a1)
            Text4.Text = Text4.Text & tb(r1) & "、"
            ta(tbi(r1)) = -1
            n = n - 1
        Loop
        Text4.Text = Mid(Text4.Text, 1, Len(Text4.Text) - 1)
    End If
End If
Text4.Text = Text4.Text & vbCrLf
Label4.Caption = Val(Label4.Caption) + 1
End Sub
Private Sub Command3_Click()
mode = 1
End Sub
Private Sub Label8_Click()
Shell "explorer https://www.ixigua.com/home/103975774650"
End Sub