VBA_各位数之和是80的最小整数代码

Function f(n As Long)

If n > 9 Then
f = n Mod 10 + f(n / 10)
Else
f = n
End If
End Function

Sub main()
Dim x As Long
For x = 678888889 To 999999999 Step 1
If f(x) = 80 Then
Debug.Print x
Exit Sub

End If

Next

End Sub

答案是：7888888889，八八64+9+7=80