将这个C语言改写成VB

将这个C语言改写成VB

Dim a(10) As Integer
Private Sub Command1_Click()
  n = CInt(InputBox("请输入组合下标："))
  m = CInt(InputBox("请输入组合上标："))
  Print "从 "; n; " 个元素中选取 "; m; " 个的组合有："
  Call f(0, 0, m, n)
End Sub


Sub f(start, has, m, n)
  If has = m Then
    For i = 0 To m - 1
      Print a(i);
    Next i
    Print
  Else
    For i = start + 1 To n + has + 1 - m
      a(has) = i
      Call f(i, has + 1, m, n)
    Next i
  End If
End Sub