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

在WPS表格中设计一个简单的抽奖功能可以利用宏来自动化一些操作。首先，你需要设置好基础的界面，包括开始抽奖按钮、停止抽奖按钮以及显示抽奖结果的文本框。这里是一个基本的步骤描述：

1. **创建工作表**:
- 创建一个新的WPS表格工作簿，并将B列作为抽奖名单。

2. **添加控件**:
- 在工作表上插入两个按钮，分别命名为"开始抽奖"和"停止抽奖"。
- 插入一个文本框，用于显示抽奖结果，例如在A1单元格。

3. **编写VBA宏**:
- 打开VBA编辑器，点击`插入` -> `模块`，然后在新的模块窗口中编写以下宏代码：

Sub StartLottery()
    Dim rngDraw As Range
    Set rngDraw = Sheets("Sheet1").Range("B:B") ' 假设抽奖名单在Sheet1的B列
    
    If rngDraw.Cells(1, 1).Value = "未开始" Then
        rngDraw.Cells(1, 1) = "抽奖中"
        ' 这里你可以选择随机抽选一个名字，示例代码：
        Dim randomNum As Long
        randomNum = Int(Rnd() * (rngDraw.Rows.Count - 1)) + 1 ' 随机数范围在1到行数之间
        Sheets("Sheet1").Cells(randomNum, 1).Select ' 抽中的人名会高亮或移动至选中位置
        Application.StatusBar = "恭喜 " & Cells(randomNum, 1).Value & " 中奖!"
        Application.Wait Now + TimeValue("0:00:05") ' 等待5秒模拟抽奖过程
        rngDraw.Cells(1, 1) = "未开始" ' 结束抽奖并恢复状态
    End If
End Sub

Sub StopLottery()
    Sheets("Sheet1").Range("B1").Value = "未开始" ' 停止抽奖，恢复初始状态
End Sub

4. **关联宏到按钮**:
- 双击"开始抽奖"按钮，选择“事件”->“单击”，然后在右侧窗格中选择刚刚创建的`StartLottery`宏。
- 同理，双击"停止抽奖"按钮，关联`StopLottery`宏。

5. **运行测试**:
- 测试一下开始和停止按钮的功能是否正常。