vb求m+mm+mmm+...+mm...mmm(n个m)

vb求m+mm+mmm+...+mm...mmm(n个m)要求 n ,m值 用 inputbox输入Dim m%,n%,i%,j%,a(0 To 9999999) As IntegerPrivate Sub Form_Click()m = InputBox("请输入m值 ")n = InputBox("请输入n值 ")For i = n To 0 Step -1a(n) = a(n) + 10 ^ (i - 1)Next iPrint SUM(m,n)End SubPrivate Function SUM(m As Integer,n As Integer) As LongIf n = 1 ThenSUM = mElseSUM = m * a(n) + SUM(m,(n - 1))End IfEnd Function帮忙把这个改一改