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由键盘输入
猜你喜欢
转载自www.cnblogs.com/xbnl-bk-zm-2018/p/10947128.html
今日推荐
周排行