Dim i As Integer
Dim str As String
str = InputBox("请输入氏告个数手困:")
i = Val(str)
If i <1 Then
Exit Sub
End If
Dim k As Integer
Try
For k = 1 To i
SumN = SumN + k ^ k
Next
MsgBox("毕核念结果:" &SumN)
Catch
End Try
欢迎分享,转载请注明来源:内存溢出
Dim i As Integer
Dim str As String
str = InputBox("请输入氏告个数手困:")
i = Val(str)
If i <1 Then
Exit Sub
End If
Dim k As Integer
Try
For k = 1 To i
SumN = SumN + k ^ k
Next
MsgBox("毕核念结果:" &SumN)
Catch
End Try
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)