这到QB题怎么解？

来源：百度知道 编辑：UC知道 时间：2024/06/22 12:30:37
求符合下列条件的三位数。
153=1^3+5^3+3^3
数=该数的百位数字的立方+该数的十位数字的立方+该数的个位数字的立方.

这道题我想了很久.那位高手来帮帮我阿.
谢谢.谢谢

这个水仙花数三位数的有四个153、370、371、407 四位的水仙花数1634，8208，9474
可以用多种数据语言求出
例如：C语言的"水仙花数"实现代码：

void main()
{
int ge,shi,bai,number;

for(number=100;number<1000;number++)
{
bai=number/100;
shi=(number%100)/10;
ge=number%10;
if(number==bai*bai*bai+shi*shi*shi+ge*ge*ge) printf("\nnumber=%d\n",number);
}
getch();
}

Visual Basic的"水仙花数"实现代码：

Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)

For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a

End Sub

FORTRAN的"水仙花数"实现代码：

WRITE(*,30)

DO 10 K=100,999

IA=K/100

IB=MOD(K,100)/1