求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 23:39:13
![求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码](/uploads/image/z/6843785-41-5.jpg?t=%E6%B1%82%E8%A7%A31%5E3%2B3%5E3%2B5%5E3%2B%E2%80%A6%E2%80%A6%E2%80%A6%E2%80%A6%EF%BC%882n-1%29%5E3%3D%3F+%E7%94%A8VB%E5%BE%AA%E7%8E%AF%E7%BB%93%E6%9E%84%E7%A8%8B%E5%BA%8F%E7%BC%96%E5%86%99%E7%9A%84%E4%BB%A3%E7%A0%81)
求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码
求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码
求解1^3+3^3+5^3+…………(2n-1)^3=? 用VB循环结构程序编写的代码
那个推荐答案是错的,他没有累加,所以得出的结果是最后那个数的计算值
Private Sub Form_Click()
Dim i As Long,n As Long,s As Double
n = Val(InputBox("请输入n值"))
For i = 1 To n
s = s + (2 * i - 1) ^ 3
Next
MsgBox "计算结果为" & s
End Sub
同求
请先学会化简后在编程计算,那样效率会高很多.
Option Explicit
Private Function nsancf(n As Long) As Double
Dim djg As Double
For n = 1 To 2 * n - 1 Step 2
djg = n * n * n
Next n
nsancf = djg
End...
全部展开
Option Explicit
Private Function nsancf(n As Long) As Double
Dim djg As Double
For n = 1 To 2 * n - 1 Step 2
djg = n * n * n
Next n
nsancf = djg
End Function
Private Sub Form_Click()
Dim d As Double, n As Long
n = InputBox("请输入数字")
Print Str(nsancf(n))
End Sub
收起