如何求99的99次幂的最后三位数？
如何求99的99次幂的最后三位数？
[解决办法]
Private Sub Command1_Click()
Dim i As Long
Dim s As Long
s = 801
For i = 1 To 97
s = Val(Right(Str(s * 100 - s), 3))
Next
MsgBox Str(s)
End Sub
思路：s的801是99×99＝9801，取最后三位数字，99看作是100－1，每次相乘后取得末尾三个数
[解决办法]
wcm7474(雨人) 的思路应该是正确的, 不过, 不需要在整数和字符串之间来回转换:
Private Sub Form_Load()
Dim i As Integer
Dim l As Long
l = 99
For i = 1 To 98
l = l * 99 Mod 1000
Next i
Debug.Print l
End
End Sub
