Question

用vb程序编写,一个正整数n的三次方,将立方后的正整数n分解为n个连续奇数和的形式

Answer 1

Private Sub Command1_Click()

For i = 100 To 1000

g = Mid(i, 1, 1)

s = Mid(i, 2, 1)

b = Mid(i, 3, 1)

If i = g * g * g + s * s * s + b * b * b Then

Print i

End If

Next i

End Sub

153

370

371

407

就这四个