用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和.

问题描述:

用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和.
要求这语句中有运用到子函数或子过程.

Private Sub Form_Click()Dim i,n,tempn = Val(InputBox("N","",10)) ^ 3For i = 1 To n Step 2temp = fc(i,n)NextMsgBox temp & "=" & nEnd SubFunction fc(i,n) As StringDim j,s,tempFor j = i To n Step 2s = s ...