要编写一个窗口随机抽取程序，你可以使用不同的编程语言和工具，例如使用VBA（Visual Basic for Applications）在Excel中编写宏，或者使用其他编程语言如Python、Java等。下面我将提供一个使用VBA在Excel中实现随机抽取的示例代码。
使用VBA在Excel中实现随机抽取
打开Excel ，然后按下 `Alt + F11` 打开VBA编辑器。
插入新模块：
在VBA编辑器中，选择 `插入` > `模块`，在打开的模块窗口中粘贴以下代码：
```vba
Sub ShuffleArray（ByVal arr As Variant） As Variant
Dim lRow As Long, lCol As Long
Dim i As Long, j As Long
Dim indices（） As Long
Dim t As Long, temp（） As Variant
lRow = UBound（arr, 1）
lCol = UBound（arr, 2）
ReDim indices（1 To lRow * lCol）
For i = 1 To lRow * lCol
indices（i） = i
Next i
For i = lRow * lCol To 1 Step -1
j = Int（（lRow * lCol + 1） * Rnd）
temp = indices（i）
indices（i） = indices（j）
indices（j） = temp
Next i
ShuffleArray = indices
End Sub
Sub RandomDraw（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Dim data As Variant
data = ws.Range（"A1:D10"）.Value ' 假设数据在A1:D10区域
ShuffleArray data
ws.Range（"A1:D10"）.Value = data
End Sub
```
运行宏：
按下 `F5` 运行 `RandomDraw` 子程序，或者关闭VBA编辑器并返回Excel，然后在 `开发工具` 选项卡中选择 `宏`，找到 `RandomDraw` 宏并运行。
这段代码定义了一个 `ShuffleArray` 子程序，用于乱序数组，以及一个 `RandomDraw` 子程序，用于在指定的工作表区域中随机抽取数据。
使用Python实现随机抽取
如果你更喜欢使用Python，以下是一个简单的示例代码，用于从列表中随机抽取一个元素：
```python
import random
def random_draw（data_list）:
return random.choice（data_list）
示例数据
data = ["Alice", "Bob", "Charlie", "David", "Eve"]
执行随机抽取
winner = random_draw（data）
print（f"随机抽取的获胜者是： {winner}"）
```
这段代码定义了一个 `random_draw` 函数，它接受一个列表作为参数，并从中随机选择一个元素返回。
根据你的具体需求，你可以选择使用VBA或Python等编程语言来实现窗口随机抽取程序。希望这些示例代码能帮助你开始编写自己的随机抽取程序。
