用VB改写这个C语言程序

用VB改写这个C语言程序

Dim t As Integer = 0
Dim ans(33), num(33), n, m As Integer
Public Function dfs(ByVal g As Integer, ByVal min As Integer) As String
Dim i As Integer
Dim str As String = ""
If g = m Then
t += 1
For i = 0 To m - 1 Step 1
str = str & num(ans(i)) & " "
Next
str = str & num(ans(i)) & vbCrLf
Else
For i = min To n Step 1
ans(g) = i
dfs(g + 1, i + 1)
Next
End If
Return str
End Function
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim str As String = ""
Dim i As Integer
n = InputBox("请输入数字n")
m = InputBox("请输入数字m")
str = str & "输入" & n & "个数字" & vbCrLf
For i = 0 To n Step 1
num(i) = InputBox("请输入第" & i & "个数字")
Next
dfs(0, 0)
str = str & "共有" & t & "个组合"
TextBox6.Text = str
End Sub