在窗体上添加一个按钮，单击按钮在弹出的代码框中写代码 Private Sub Command1_Click() Do Until a = vbCancel a = MsgBox("逗你玩！") Loop End Sub
