100到900的vb水仙花数数是多少

来源：蜘蛛抓取(WebSpider) 时间：2012-05-26 11:28 标签： vb水仙花数
求N-S图:计算100~999之间的所有水仙花数.所谓的水仙花是一个三位数,其各位数字的立方和等于该数本身.例
program:(名字你自己编好了）var i,a,b,c:Beginfor i:=100 to 999begina=i div 10b=i div 10 mod 10c=i div 100if(i=a*a*a+b*b*b+c*c*c)then write (i);End.
为您推荐：
其他类似问题
扫描下载二维码100到900的水仙花数中求最大值最小值的vb程序编写_百度知道
100到900的水仙花数中求最大值最小值的vb程序编写
我有更好的答案
j As IntegerPrivate Sub Command1_Click()
Dim i As Integer, iMin As Integer
Dim s As Integer
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
s = i * 100 + j * 10 + k
If i ^ 3 + j ^ 3 + k ^ 3 = s Then
Print s, iMax As Integer, k As Integer
其他类似问题
为您推荐：
水仙花数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb计算100-999有多少个水仙花数怎么写程序，用for和if语句的_百度知道
vb计算100-999有多少个水仙花数怎么写程序，用for和if语句的
提问者采纳
Private Sub Command1_Click()
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a * a * a + b * b * b + c * c * c = 100 * a + 10 * b + c Then Print 100 * a + 10 * b + c
Next c, b, aEnd Sub
把记个数的那个n=n+1加进去加哪里啊
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a * a * a + b * b * b + c * c * c = 100 * a + 10 * b + c Then
Print 100 * a + 10 * b + c
Next c, b, aPrintf &共有“; &个水仙花数&
提问者评价
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁C++求[100,999]之间所有水仙花数之和！！！！_百度知道
C++求[100,999]之间所有水仙花数之和！！！！
c;int main(){
b=(i%100)&#47，999]之间所有水仙花数之和*/
for(int i=100;&i++)
a=i/i&i&&1000;#include &iostream&
if(a*a*a+b*b*b+c*c*c==i)
return 0;&#47,i;using namespace std[100;10;我该怎么求所有水仙花数的和呢;
} 就是那个所有数和该怎么办;100
提问者采纳
cout &lt,i;
a=i/10前面再定义个int sum = 0;
if(a*a*a+b*b*b+c*c*c==i)
cout&&我该怎么求所有水仙花数的和呢;/&&sum&
return 0;&100;&i&&&quot,c,b;
sum +=然后在循环里if判断成功之后;1000;i&
int sum =0;
b=(i%100)&#47，把 i 累加到sum中;
for(int i=100，循环结束后输出sum int main(){sum = &quot
提问者评价
太感谢了，真心有用
其他类似问题
为您推荐：
水仙花数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您的举报已经提交成功，我们将尽快处理，谢谢！
在回车键上面。
该键上有2个符号，下面是\，上面是|。
按住Shitf再按这个键就能出|。
我也是,真麻烦...我都要恨死了.真是...可能是升级QQ空间版本造成的,我没让它升级,可是它偏要升.气死我了.#4R$#%43%%^uGFLery$%^&7%...
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'

我要回帖

更多关于 vb水仙花数 的文章

 

随机推荐