从1到N改成VBA输出

将这个C语言改写成VBA

从1到N，这N个数，从中选取M个出来，请输出每一种组合情况

组合结果从单元格A1开始输出

#include <stdio.h>
int a[10];
int main()
{
void f(int start,int has,int m,int n);
int n,m;
printf("请输入组合上下标中间用空格隔开 ");
scanf("%d%d",&n,&m);
f(0,0,m,n);
return 0;
}
void f(int start,int has,int m,int n)
{
int i;
if (has==m)
{
printf("%d ",a[0]);
for (i=1;i<m;i++)
printf("%d ",a[i]);
printf("\n");
return;
}
for (i=start+1;i+m<=n+has+1;i++)
{
a[has]=i;
f(i,has+1,m,n);
}
}

Dim a(10) As Integer, k As Long
Sub main()
    Dim m As Integer, n As Integer
    n = InputBox("请输入组合下标n")
    m = InputBox("请输入组合上标m")
    f 0, 0, m, n
End Sub
Sub f(ByVal start As Integer, ByVal has As Integer, ByVal m As Integer, ByVal n As Integer)
    Dim i As Integer
    If has = m Then
        k = k + 1
        For i = 1 To m
            Cells(k, i) = a(i - 1)
        Next
        Exit Sub
    End If
    For i = start + 1 To n - m + has + 1
        a(has) = i
        f i, has + 1, m, n
    Next
End Sub