for (var i=100; i<=500; i++){ if ( i == eval((i+"").replace(/(\d)/g,"Math.pow($1,3)+")+"0") ){ document.writeln(i);} }
使用vbscript脚本语言编写一段程序,程序要求如下:计算100到500之间的水仙花数,并用信息对话框显示结果,所谓水仙花数是指一个3位数,其各"位"数字的立方和等于其本身. 暂无答案 更多"使用vbscript脚本语言编写一段程序,程序要求如下:计算100到500之间的水仙花数,并用信息对话框显示结果,所谓水仙花数是指一个3位数,其...
Dim S As Integer Dim i As Integer Dim a As Integer Dim b As Integer Dim c As Integer S = 0 For i = 100 To 500 a = i \ 100 b = (i \ 10) Mod 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then S = S + i End If Next i Print S ...
100~500之间的水仙花数 sub sxh()dim i , j, k for i=1 to 5 for j=0 to 9 for k=0 to 9 If i×100+j ×10 +k=i^3+j^3+k^3 then s=i×100+j×10+k msgbox s end if next next next endsub 调用: call sxhl () ...