右击工具栏,选择“控件工具箱”,然后在工作表中画一个按钮,双击按钮输入以下代码:
Option Base 1
Const M As Integer =
Const N As Integer =
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, a(M) As Integer, x As Integer, k As Integer
k = Val(InputBox("请输入组数"))
For =
Erase a
End If
Loop
Next j
End Sub
然后在控件工具栏中选择“退出设计模式”,以后每次单击按钮,弹出一个对话框,输入组数,再按确定结果就出来了。