Private Sub form_Click()
Dim i%, n%, s%
n = InputBox("")
For i = 1 To n
s = s + i ^ i
Next i
Print s;
End Sub
編程計算s=1^1+2^2+3^3+…+n^n的值,其中n由鍵盤輸入
免責聲明！
本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。
Private Sub form_Click()
Dim i%, n%, s%
n = InputBox("")
For i = 1 To n
s = s + i ^ i
Next i
Print s;
End Sub
本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。