试用VBScript编程,实现计算并输出100到500的之间的水仙花数（水仙花数是指该数的值等于各位数字的立方和）

来源：百度知道 编辑：UC知道 时间：2024/05/22 13:29:36

<html>
<head>
<title>100~500之间的水仙花数</title>
<script language="VBScript">
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
</script>
</head>
调用：<body>
<script language="vbscript">
call sxhl ()
</script>
</body>
</html>

dim i
dim shuzi
dim gewei
dim shiwei
dim baiwei
for i=100 to 500
shuzi=i
gewei=shuzi mod 10
shuzi=(shuzi-gewei)/10
shiwei=shuzi mod 10
baiwei=(shuzi-shiwei)/10
if i=gewei^3+shiwei^3+baiwei^3 then msgbox i
next