作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 20:33:00
用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和.
要求这语句中有运用到子函数或子过程.
用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和.
Private Sub Form_Click()
Dim i,n,temp
n = Val(InputBox("N","",10)) ^ 3
For i = 1 To n Step 2
temp = fc(i,n)
Next
MsgBox temp & "=" & n
End Sub
Function fc(i,n) As String
Dim j,s,temp
For j = i To n Step 2
s = s + j
fc = fc & j & "+"
If s = n Then
i = n
fc = Left(fc,Len(fc) - 1)
Exit For
End If
If s > n Then Exit For
Next
End Function