高考问答羽意思是什么:谁知道水仙花的代码怎么写？
来源：百度文库 编辑：高考问答 时间：2024/04/29 05:06:57
VB程序设计
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
For a = 100 To 999
b = a \ 100
c = (a Mod 100) \ 10
d = a Mod 10
If a = b ^ 3 + c ^ 3 + d ^ 3 Then
Print a
End If
Next
End Sub
c
vb
dim a,b,c,d
for a=100 to 999
b=a/100
c=(a mod 100)/10
d=a mod 10
if a=b*b*b+c*c*c+d*d*d then
document.write a
end if
next
java
int a,b,c,d;
for(a=100;a<=999;a++)
{ b=a/100;
c=(a%100)/10
d=a%10
if(a==b*b*b+c*c*c+d*d*d)
System.out.print a;
}