想要个程序

Option Explicit
Dim L As Integer
Dim N As Integer
Dim R As Integer
Private Sub Command1_Click()
Dim myarr(), mymp() As Integer
Dim i As Integer
Dim temp
Dim tem As Integer
Dim row As Integer
row = 1
N = InputBox("请输入N值:")
R = InputBox("请输入R值:")
ReDim myarr(N - 1)
ReDim mymp(R - 1)
For i = 0 To N - 1
myarr(i) = i + 1
Next
For i = 0 To R - 1
mymp(i) = i
Next
L = UBound(myarr)
Open "c:\piaoyu.txt" For Output As #1

Do
temp = ""
tem = 0
For i = 0 To R - 1
temp = temp & "," & myarr(mymp(i))
tem = tem + myarr(mymp(i))
Next

If tem = 120 Then
Print #1, temp & "的和是120"
row = row + 1

End If
Loop While flag(mymp()) <> False
Close #1
End Sub
Private Function flag(mymp() As Integer) As Boolea