水仙花代码vb.net 水仙花代码注释

如何用vb语言编写水仙花数的代码？

这个是打印所有三位数的水仙花数的代码：

Private Sub Command1_Click()

For a = 1 To 9

For b = 0 To 9

For c = 0 To 9

If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

print a * 100 + b * 10 + c

End If

Next

Next

Next

End Sub

相关问答

Q1: 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程序水仙花代码vb.net，新建一个标准的exe项目，如下图。

2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。

3.接下来，开始为命令按钮编写单击事件。click事件实现水仙花代码vb.net了上面提供的程序代码，如下图。

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;n1000;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");

}

注意事项：

VB编程的核心思想是组件编程。VB是最早引入组件编程的概念，然后被其他语言采用并成为标准，如vc++、Delphi、PowerBuilder等都采用了组件编程模型，并利用面向对象的编程技术，成为当今程序设计的发展方向之一。

VB编程，由于采用了组件技术，所以不必从底层开始窗体，控制设计，可以由工厂通过各种零件装配生产机器，通过Microsoft或第三方提供的组件，装配成所需的程序。与什么?VB是代码，它像胶水一样，把有限的代码和组件粘合在一起。结果是一个完整的应用程序。

VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以很容易地使用daos、RDO、ADO连接到数据库，或者很容易地创建活动的X控件，从而高效地生成类型安全的和面向对象的应用程序。

程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。

Q2: 用VB.net变成找出100~999之间的水仙花数

Private Sub Form_Click()

Dim i As Integer, n As Integer

Dim a As Integer, b As Integer, c As Integer

'设a b c 分别表示百位数，十位数，个位数

Print "水仙花数如下："

For n = 100 To 999 '遍历100到999所有三位的水仙花数

a = Int(n / 100) '取百位数，用int函数取整数部分

b = Int((n - a * 100) / 10) '取十位数

c = n - a * 100 - b * 10 '取个位数

i = a ^ 3 + b ^ 3 + c ^ 3 '将其各位数字立方之和相加起来

If i = n Then Print Str(i) ' 判断各位数字立方之和相加起来,若等于100-999当中的数那么就输出来

Next n

End Sub温馨提示：VB.NET的代码与VB6.0的代码是差不多的，你只需稍稍改一下即可。由于我手头上没有VB.NET工具所以就不能帮你用VB.NET调试了。

水仙花代码vb.net的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于水仙花代码注释、水仙花代码vb.net的信息别忘了在本站进行查找喔。