把這個C語言改寫成VB。

私有子命令1_Click()

N = CInt(InputBox("請輸入組合下標:"))

M = CInt(InputBox("請輸入組合上標:"))

打印“從”；n；”從元素中選擇”；m；"這些組合是:"

調用f(0，0，m，n)

末端接頭

Sub f(開始，已經，m，n)

如果has = m，那麽

對於i = 0至m - 1

？打印a(壹)；

接下來我

打印

其他

對於i = start + 1到n + has + 1 - m

？a(有)= i

？呼叫f(i，has + 1，m，n)

接下來我

如果…就會結束

末端接頭