这个for循环该如何使用?

Rubi 2004-10-10 09:36:52

s=1*1+2*2+3*3*3+4*4*4*4+5*5*5*5*5*5+....n*n*n*...n
使用inputbox输入需要计算的次数，使用msgbox显示计算的结果，请大家帮忙看看这个for循环该怎么样写，请提供思路

...全文

161 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

BlueBeer 2004-10-11

打赏
举报

不能用long型，太容易溢出了

Private Sub Command1_Click()
Dim i As Long, sum As Double
For i = 1 To InputBox("请输入一个正整数n")
sum = sum + i ^ i
Next i
MsgBox sum
End Sub

BlueBeer 2004-10-11

打赏
举报

Dim i As Long, sum As Long
For i = 1 To InputBox("请输入一个正整数n")
sum = sum + i ^ i
Next i
MsgBox sum

lxcc 2004-10-10

打赏
举报

:)
不是n的平方,是n的n次方

northwolves 2004-10-10

打赏
举报

Private Sub Command1_Click()
Dim n As Integer
n = CInt(InputBox("please enter an integer", , 10))
MsgBox sum(n)
End Sub
Function sum(ByVal n As Integer) As Double
Dim i As Integer
For i = 1 To n
sum = sum + i ^ i
Next
End Function

helanshan 2004-10-10

打赏
举报

Private Sub Command1_Click()
Dim i, j, sum As Long
sum = 0
j = InputBox("请输入数字")
For i = 1 To j
sum = sum + i ^ i
Next
MsgBox sum
End Sub

lxcc 2004-10-10

打赏
举报

汗ing,写错了:P
Private Sub Command1_Click()
Dim N As Integer
N = InputBox("请输入一个数字", "输入", 1)
Dim Sum1 As Long, Sum As Long
Sum = 0
Dim i As Integer, j As Integer
For i = 1 To N
Sum1 = 1
For j = 1 To i
Sum1 = Sum1 * i
Next
Sum = Sum + Sum1
Next

MsgBox Sum
End Sub

Rubi 2004-10-10

打赏
举报

当输入3的时候,你的值是113,正确的应该是32

Rubi 2004-10-10

打赏
举报

3楼的有错误，请检测

lxcc 2004-10-10

打赏
举报

Private Sub Command1_Click()
Dim N As Integer
N = InputBox("请输入一个数字", "输入", 1)
Dim Sum1 As Long, Sum As Long
Sum1 = 1
Sum = 0
Dim i As Integer, j As Integer
For i = 1 To N
For j = 1 To i
Sum1 = Sum1 * i
Next
Sum = Sum + Sum1
Next

MsgBox Sum
End Sub

熊孩子开学喽 2004-10-10

打赏
举报

楼上的正解，不过这个问题数字大一点就会溢出了。

tztz520 2004-10-10

打赏
举报

Private Sub Command2_Click()
Dim i As Long, ii As Long, iii As Double
i = Val(InputBox("请输入一个数", "输入"))
For ii = 1 To i
iii = iii + ii ^ ii
Next ii
MsgBox iii
End Sub