对于下面给出的任务变体，以用户窗体和过程的形式为它们创建一个 vba 程序，在其中实现变体中指定的操作。 提供用于重复和终止程序的按钮形式的组织，以及用于从 Excel 工作表启动程序的按钮。任务变体: 在程序中，组织输入十个不同姓氏的列表。 使用 AddItem 方法在过程中组织姓氏输入，请参见示例 2。在程序中，实现随机选择输入的姓氏之一并将其输出到窗体。

以下是 VBA 代码，用于实现上述任务变体：

在用户窗体上添加一个“选择姓氏”按钮和一个“退出”按钮。在窗体中添加一个列表框，命名为 lstSurnames。

Private Sub btnSelectSurname_Click()
    Dim surname As String
    Dim numSurnames As Integer
    
    numSurnames = lstSurnames.ListCount
    
    If numSurnames > 0 Then
        ' Generate random number between 0 and numSurnames-1
        Randomize
        surname = lstSurnames.List(Int(Rnd() * numSurnames))
        
        ' Output selected surname to form
        MsgBox "Selected surname: " & surname
    Else
        MsgBox "Please enter at least one surname."
    End If
End Sub

Private Sub btnExit_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    ' Add sample surnames to list box
    lstSurnames.AddItem "Smith"
    lstSurnames.AddItem "Johnson"
    lstSurnames.AddItem "Williams"
    lstSurnames.AddItem "Jones"
    lstSurnames.AddItem "Brown"
    lstSurnames.AddItem "Davis"
    lstSurnames.AddItem "Miller"
    lstSurnames.AddItem "Wilson"
    lstSurnames.AddItem "Moore"
    lstSurnames.AddItem "Taylor"
End Sub

代码解释：

- `btnSelectSurname_Click()` 子过程：当用户单击“选择姓氏”按钮时，此子过程将从 lstSurnames 列表框中随机选择一个姓氏，并将其输出到消息框中。
- `btnExit_Click()` 子过程：当用户单击“退出”按钮时，此子过程将关闭用户窗体。
- `UserForm_Initialize()` 子过程：当用户窗体初始化时，此子过程将在 lstSurnames 列表框中添加示例姓氏。

要将此代码添加到 Excel 工作簿中，请按以下步骤操作：

1. 打开 Excel 工作簿，按下 ALT + F11 打开 VBA 编辑器。
2. 在 VBA 编辑器中，单击“插入”菜单并选择“用户窗体”。
3. 在新创建的用户窗体中添加列表框和两个按钮，命名为 btnSelectSurname 和 btnExit。
4. 双击每个按钮以打开其代码窗口，并将上述代码复制并粘贴到相应的代码窗口中。
5. 在 VBA 编辑器中，单击“插入”菜单并选择“模块”。
6. 在新创建的模块中添加以下代码，以创建一个启动用户窗体的按钮：

Sub ShowUserForm()
    UserForm1.Show
End Sub

7. 在 Excel 工作簿中添加一个按钮，命名为“启动程序”，并将 ShowUserForm() 过程与按钮相关联。
8. 现在可以保存工作簿并运行程序。当用户单击“启动程序”按钮时，程序将显示用户窗体。用户可以单击“选择姓氏”按钮来选择一个随机的姓氏，并将其输出到消息框中。用户也可以单击“退出”按钮来关闭窗体。