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