Question

VB编程水仙花数

Answer 1

VB实现水仙花数的程序代码如下：

Private Sub Command_Click()

For num = 100 To 999

a = num Mod 10

b = num \ 10 Mod 10

c = num \ 100

If a^3 + b^3 + c^3 = num Then Print num

Next num

End Sub

实现具体步骤如下：

1、启动VB程序，新建一个标准exe工程

2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。

3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。

4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。

扩展资料：

C语言实现水仙花数的代码：

#include <stdio.h>

#include <stdlib.h>

void main()

{

int i,j,k,n;

printf("'water flower'number is:");

for(n=100;n<1000;n++)

{

i=n/100;/*分解出百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出个位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf("\n");

}

参考资料：百度百科-水仙花数