在WPS表格设计模式中，设计一个抽奖功能，包含按钮开始抽奖function CommandButton1_Click()，按钮停止抽奖function CommandButton2_Click()，文本框展示抽奖结果，抽奖名单在B列。给出相应代码，使用function

在WPS表格中创建抽奖功能，我们可以利用VBA宏语言来实现这个需求。下面是一个简单的例子，假设你的工作表名为Sheet1，并且B列用于存储抽奖名单。

首先，你需要创建两个命令按钮CommandButton1和CommandButton2，以及一个文本框TextBox1来显示抽奖结果。

1. **添加按钮并编写Click事件**：

Private Sub CommandButton1_Click()
    ' 开始抽奖函数
    Dim rngDraw As Range
    Set rngDraw = Sheet1.Range("B:B") ' 抽奖范围为B列
    Dim lastRow As Long
    lastRow = rngDraw.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    ' 这里只是一个随机选择的例子，实际应用可能需要更复杂的算法
    Dim winner As String
    winner = rngDraw.Cells(Int(Rnd() * (lastRow + 1))).Value ' 随机抽取一个名字
    TextBox1.Value = "恭喜 " & winner & " 中奖!"
End Sub

Private Sub CommandButton2_Click()
    ' 假设停止抽奖功能不需要特别处理，可以留空或者取消一些运行中的过程
    TextBox1.Value = "" ' 清空结果
End Sub

2. **保存设置和运行**：

在VBA编辑器中，将以上代码粘贴到"模块1"中，然后点击"工具" -> "宏" -> "查看宏" -> 在新窗口中选中"Sheet1"，确保已启用宏。现在你可以尝试点击"开始抽奖"按钮进行抽奖，点击"停止抽奖"按钮清空结果。

注意：这是一个基础示例，实际抽奖可能需要更复杂的安全性和公平性检查。另外，WPS表格可能不支持直接的随机数生成，这里用的是VBA内置的Rnd()函数，可能需要其他库支持更精确的随机数生成。