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删除。