在线求助 各位大佬

Option Explicit
Const NUM As Long = 100
Sub abc()
　Dim i, m, n, s
　If NUM = 1 Then MsgBox NUM: Exit Sub
　m = NUM
　Randomize
　Do
　　n = Int(Rnd * (NUM - 1)) + 1
　　If m > n Then
　　　m = m - n
　　　s = s & "+" & n
　　Else
　　　s = s & "+" & m: Exit Do
　　End If
　Loop
　MsgBox Mid(s, 2) & "=" & NUM
End Sub