VB实现水仙花数的程序代码？
VB实现水仙花数的程序代码如下：
PrivateSubCommand_Click()
Fornum=100To999
a=numMod10
b=num\10Mod10
c=num\100
Ifa^3+b^3+c^3=numThenPrintnum
Nextnum
EndSub
实现具体步骤如下：
1.启动VB程序，新建一个标准的exe项目，如下图。
2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。
3.接下来，开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码，如下图。
4.按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407，如下图。
扩展资料：
C语言实现水仙花数的代码：
#include <stdio.h>
#include <stdlib.h>
voidmain()
{
inti,j,k,n;
printf("'waterflower'numberis:");
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("
");
}
注意事项：
VB编程的核心思想是组件编程。VB是最早引入组件编程的概念，然后被其他语言采用并成为标准，如vc++、Delphi、PowerBuilder等都采用了组件编程模型，并利用面向对象的编程技术，成为当今程序设计的发展方向之一。
VB编程，由于采用了组件技术，所以不必从底层开始窗体，控制设计，可以由工厂通过各种零件装配生产机器，通过Microsoft或第三方提供的组件，装配成所需的程序。与什么?VB是代码，它像胶水一样，把有限的代码和组件粘合在一起。结果是一个完整的应用程序。
VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以很容易地使用daos、RDO、ADO连接到数据库，或者很容易地创建活动的X控件，从而高效地生成类型安全的和面向对象的应用程序。
程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。
编一程序,显示所有的水仙花数
echo off :: 求三位数的水仙花数 :: 所谓的水仙花数，是形如abc=a*a*a+b*b*b+c*c*c的数字 echo.echo 三位的水仙花数有：echo.setlocal enabledelayedexpansion for \/l %%i in (1,1,9) do (for \/l %%j in (0,1,9) do (for \/l %%k in (0,1,9) do (set a=%%i set ...
求vb水仙花数问题
改为 Private Sub Command1_Click()Dim x%, y%, z%, s%, i%, sum As Single Print "水仙花数为："sum = 0 i = 0 For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 s = x * 100 + y * 10 + z If s = x ^ 3 + y ^ 3 + z ^ 3 Then sum = sum + s...
python水仙花数的编程是什么?
for i in range(100, 1000):a = i \/\/ 100 # 百位 b = i \/\/ 10 % 10 # 十位 c = i % 10 # 个位 if a ** 3 + b ** 3 + c ** 3 == i:temp.append(str(i))return ",".join(temp)print("1000以内的水仙花数有：{}".format(demo()))用C语言实现水仙花数：include...
access 水仙花数程序和闰年程序怎么写啊?
Dim n As String Dim sum As Integer n = InputBox("请输入一个整数")If IsNumeric(n) = False Then MsgBox "输入错误"Exit Sub End If For i = 1 To Len(n)sum = sum + CInt(Mid(n, i, 1)) ^ 3 Next i If sum = CInt(n) Then MsgBox n & "是水仙花数"Else MsgBox n ...
应Mtalab编一个“水仙花数”的程序。水仙花数是指一个三位数,各位数字...
sum=0; %用于存放各位立方的和 b2=a;b1=rem(b2,10); %rem函数用来求两个数相除的余数 while (b1~=0)b2=fix(b2\/10); %fix函数用于求一个数的整数部分 sum=sum+b1.^3;b1=rem(b2,10);end if a==sum %判断a是否是要求的数 z(i)=a;i=i+1;end end 调试通过。
求水仙花数。所谓水仙花数,是指一个三位数abc,如果满足a^3+b^3+c^...
\/ “水仙花数”算法 作者：gujifly 时间：2010-10-16 \/ include "stdafx.h"include "stdio.h"include "time.h"int count(int values,int times){ \/\/计算单个值的"水仙花"计算结果 int results=0;int i=1;while (values\/i>0){ int tmpp=1;int tmp=values%(i*10)\/i;for(int j=0;j<...
...一个计算机程序,找出100-999之间的所有“水仙花数”,并打印运算结果...
php中这样可以实现 其他的语言应该思路也都一样 代码你可以做下参考 for($i=100;$i<=999;$i++){ a = (int) ($i\/100);b = (int) ($i\/10%10);c = (int) ($i%10);if(($a*$a*$a+$b*$b*$b+$c*$c*$c) == $i){ echo $i."<br>";} } ...
求水仙花数的java程序代码
public class Daffodil { \/ param return void param args desc \/ public static void main(String[] args) { for (int n = 100; n < 999; n++) { int a = n \/ 100;int b = (n % 100) \/ 10;int c = n % 10;if(Math.pow(a, 3)+Math.pow(b,3)+Math.pow(c,3)==n)...
编写一个程序,找所有水仙花数并打印出来.水仙花数是指一个3位的正整 ...
main(){ int a,bw,sw,gw;for(a=100;a<1000;a++){ bw=a\/100;sw=a%100\/10;gw=a%10;if(a==bw*bw*bw+sw*sw*sw+gw*gw*gw){ printf("%d\\n",a);} } } 这是C语言写的我调试过了，没问题的