Private Sub 开始抽取_Click() Label1.Caption = 1 + Int(Rnd() * 50) End Sub，加一段代码让随机抽取的数字不重复

如果要让随机抽取的数字不重复，你可以在抽取前先判断这个数字是否已经被抽取过，如果已经被抽取过，则重新抽取一个新的数字，直到抽到一个未被抽取过的数字为止。

以下是修改后的示例代码：

Dim picked() As Boolean '记录已经被抽取的数字
Dim count As Integer '已经抽取的数字个数

Private Sub Form_Load()
    ReDim picked(50) '初始化picked数组
    count = 0 '已抽取的数字个数为0
End Sub

Private Sub 开始抽取_Click()
    Dim num As Integer '随机抽取的数字
    Dim i As Integer
    
    '判断是否还有未被抽取的数字
    If count = 50 Then
        MsgBox "所有数字已经抽取完毕！", vbInformation, "提示"
        Exit Sub
    End If
    
    '随机抽取一个数字
    Do
        num = 1 + Int(Rnd() * 50)
    Loop While picked(num) '如果已经被抽取过，则重新抽取
    
    picked(num) = True '将抽取的数字标记为已抽取
    count = count + 1 '已抽取的数字个数加1
    Label1.Caption = num '显示抽取的数字
    
    '输出已经抽取的数字
    For i = 1 To 50
        If picked(i) Then
            Debug.Print i;
        End If
    Next i
    Debug.Print
End Sub

在这个示例代码中，我们使用一个布尔数组`picked`来记录已经被抽取的数字，用一个整数变量`count`来记录已经抽取的数字个数。在抽取前，我们先判断是否还有未被抽取的数字；然后使用循环随机抽取数字，直到抽取到一个未被抽取过的数字为止，并将抽取的数字标记为已抽取。最后，我们将已经抽取的数字输出到调试窗口中。

你可以根据自己的需要修改数字的范围和输出方式。