用易语言写一个随机不重复数的抽取程序，可以设定随机范围，有数值滚动动画，有开始停止按钮且抽取数全部抽取完弹窗结束

好的，我会尽力解答您的问题。

首先，您需要使用易语言的随机函数生成不重复的随机数。可以使用数组来存储已经生成的随机数，每次生成随机数前检查是否已经存在于数组中，如果存在则继续生成，直到生成一个不在数组中的随机数。

接下来，您需要使用易语言的滚动动画控件来实现数值的滚动效果。可以使用定时器控制动画的速度，每次定时器触发更新滚动动画控件的数值。

然后，您需要添加开始和停止按钮，并在开始按钮被点击时开始生成随机数和滚动动画，直到生成所有的随机数，弹窗提示结束。在停止按钮被点击时停止生成随机数和滚动动画。

最后，您需要在程序退出前释放所有的资源，包括数组和定时器等。

以下是一个简单的示例代码，仅供参考：

' 定义全局变量
Global nRange As Integer  ' 随机范围
Global nCount As Integer  ' 随机数个数
Global arrRandom() As Integer  ' 存储随机数的数组
Global nTimerID As Integer  ' 定时器ID

' 窗体初始化事件
Private Sub Form_Load()
    ' 初始化变量
    nRange = 100
    nCount = 10
    ReDim arrRandom(nCount - 1)
    nTimerID = 0
    
    ' 添加控件
    ' ...

End Sub

' 开始按钮单击事件
Private Sub btnStart_Click()
    ' 初始化数组
    Dim i As Integer
    For i = 0 To nCount - 1
        arrRandom(i) = -1  ' -1 表示未生成过
    Next
    
    ' 开始定时器
    nTimerID = SetTimer(Me.hWnd, 1, 50, 0)
End Sub

' 停止按钮单击事件
Private Sub btnStop_Click()
    ' 停止定时器
    KillTimer(Me.hWnd, nTimerID)
    
    ' 显示弹窗
    MsgBox "抽取结束！", vbInformation, "提示"
End Sub

' 定时器事件
Private Sub Form_Timer()
    ' 生成随机数
    Dim nRandom As Integer
    Do
        nRandom = Int(Rnd() * nRange) + 1
    Loop While ArrayIndexOf(arrRandom, nRandom) >= 0  ' 检查是否已经存在
    
    ' 存储随机数
    Dim nIndex As Integer
    For nIndex = 0 To nCount - 1
        If arrRandom(nIndex) = -1 Then
            arrRandom(nIndex) = nRandom
            Exit For
        End If
    Next
    
    ' 更新滚动动画控件
    txtNumber.Text = CStr(nRandom)
    
    ' 检查是否已经生成所有随机数
    If ArrayIndexOf(arrRandom, -1) < 0 Then
        ' 停止定时器
        KillTimer(Me.hWnd, nTimerID)
        
        ' 显示弹窗
        MsgBox "抽取结束！", vbInformation, "提示"
    End If
End Sub

' 数组查找函数
Private Function ArrayIndexOf(arr() As Integer, nValue As Integer) As Integer
    Dim nIndex As Integer
    For nIndex = 0 To UBound(arr)
        If arr(nIndex) = nValue Then
            ArrayIndexOf = nIndex
            Exit Function
        End If
    Next
    ArrayIndexOf = -1
End Function

这只是一个简单的示例代码，可能存在一些问题，您可以根据实际需求进行修改和完善。