Question

用vb编写一个程序,将任意一个正整数n的立方分解为n个连续的奇数之和（小弟初学望大侠详细些）

Answer 1

Private Sub Command1_Click()
Dim n As Long, s As String, i As Long
Do
n = Val(InputBox("请输入一个正整数："))
Loop While n <= 0
s = n & "的立方=" & n ^ 3 & vbCrLf & "="
For i = 1 To n
s = s & n ^ 2 - n + i * 2 - 1
If i < n Then s = s & "+"
Next
MsgBox s
End Sub

这里面的程序语句都是最基本的，所以没什么好解释的，主要是数学中的原理搞清楚了就简单了。