VB改写C语言有个inputbox

VB改写C语言有个inputbox

Dim t
Dim ans(33), num(33), n, m
Sub dfs(g, Min)
Dim i
If g = m Then
t = t + 1
For i = 0 To m - 1 - 1
Print num(ans(i));
Next i
Print num(ans(i))
Else
For i = Min To n - 1
ans(g) = i
dfs g + 1, i + 1
Next i
End If
End Sub

Private Sub Command1_Click()
Dim i
n = Val(InputBox("输入n的值", "输入n的值", 15))
m = Val(InputBox("输入m的值", "输入m的值", 6))
For i = 0 To n - 1
num(i) = Val(InputBox("输入第" & i + 1 & "号球的编号", "输入", i + 1))
Next i
dfs 0, 0
Print "共有组合数"; t
End Sub
追问：发问多次一次过采纳吧，这个答案可以，但inputobx输入的数字为何不行一次输入

要分多个输入?

病情分析：
气血和胶囊具有疏肝理气，活血止痛的作用，在更年期是可以服用的。
指导意见：
建议再配合中药治疗，如使用炙甘草汤、青蒿鳖甲汤等加减治疗，平时注意忌燥辣的食物。
医生询问：

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息