高校问答ae火焰粒子特效素材:求VB编写小程序
来源：百度文库 编辑：高校问答 时间：2024/05/01 23:51:51
（~是3次方的意思 我打不出来）代码
谢谢！
(要源码)手里没软件，不习惯手写
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
'其实这类问题,你只要在"知道"里搜一下,就会出来一大堆,不用等答案浪费时间.
这个是不是和水仙花数一样哟,假设a是一位三位数
int a,x,y,z,s=0;
x=a/100;
y=a/10%10;
z=a%10;
if(x*x*x+y*y*y+z*z*z==s)
printf("%d是阿姆斯壮数",a);
参考资料：无
这个是不是和水仙花数一样哟,假设a是一位三位数
int a,x,y,z,s=0;
x=a/100;
y=a/10%10;
z=a%10;
if(x*x*x+y*y*y+z*z*z==s)
printf("%d是阿姆斯壮数",a);
参考资料：无
这个是不是和水仙花数一样哟,假设a是一位三位数
int a,x,y,z,s=0;
x=a/100;
y=a/10%10;
z=a%10;
if(x*x*x+y*y*y+z*z*z==s)
printf("%d是阿姆斯壮数",a);
参考资料：无
这个是不是和水仙花数一样哟,假设a是一位三位数
int a,x,y,z,s=0;
x=a/100;
y=a/10%10;
z=a%10;
if(x*x*x+y*y*y+z*z*z==s)
printf("%d是阿姆斯壮数",a);
参考资料：无
VB
for i=100 to 999
a=int(i/100)
b=int(i mod 10 /10)
c=int(i mod 100)
if a*a*a +b*b*b+c*c*c=i then 你要的
next
这个是不是和水仙花数一样哟,假设a是一位三位数
int a,x,y,z,s=0;
x=a/100;
y=a/10%10;
z=a%10;
if(x*x*x+y*y*y+z*z*z==s)
printf("%d是阿姆斯壮数",a);
这么简单的问题，自己稍微动一下手就出来了