编程求100到999的水仙花数VB(编程求100到999的水仙花数用Do loop
VB 算水仙花数 100-999
Private Sub Command1_Click()
Dim x As Integer, a As Integer, b As Integer, c As Integer
For x = 100 To 999
a = Int(x / 100)
b = (Int(x / 10)) Mod 10
c = x Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = x Then
Print "水仙花数"
Print x
End If
Next x
End Sub
这样就OK了
VB编程，找出所有的“水仙花数”。
这个程序在VB中与VC中是有些些不同的，因为VC中当定义每位为整型时，它不会有四舍五入规则的，而VB中则不同。比如：VC中（153/100）%10=1，而VB中它算出来的为2，所以注意这个就可以了。在VB中就先从个位判断，是否超过或等于5，是的话就让它减去0.5，不是的话直接操作。
VB中程序如下：一个按钮，一个标签就可以了。
Dim m As Integer
Dim m1 As Integer
Dim m2 As Integer
Dim m3 As Integer 'm,m1,m2,m3最好是分开定义不然会出现ByRef参数类型不符的错误
Dim str As String
Private Sub Command1_Click()
For m = 100 To 999
m3 = m Mod 10
If m3 = 5 Then
m2 = (m / 10 - 0.5) Mod 10 '因为当个位数大于5时，m/10会进一位，即十位会比原来的数据多1，所以要把这个四舍五入的位取消五入规则
Else
m2 = (m / 10) Mod 10
End If
If m2 = 5 Then
m1 = m / 100 - 0.5 '原因同上
Else
m1 = m / 100
End If
If ((cubic(m1) + cubic(m2) + cubic(m3)) = m) Then
str = str + CStr(m) + vbCrLf '把每计算出的数据存到str中，并换行
Label2.Caption = str
End If
Next m
End Sub
Function cubic(data As Integer) As Double
cubic = data * data * data
End Function
结果如下图：
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;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使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。
用vb求1到1000水仙花数的编程方法
所谓的水仙花数（梅花数）是指在三位整数(100到999之间)中，百位数、十位数、个位数的立方和等于它本身，如153=1^3+5^3+3^3。
程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
Dim a As Integer, b As Integer, c As Integer
Print "100到999所有水仙花数（也叫梅花数）：";
For i = 100 To 999
a = i \ 100 '取百位数
b = i \10 Mod 10 '或 b = i Mod 100 \10 取十位数
c = i Mod 10 ‘取个位数
s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据
If s = i Then
Print i;
End If
Next i
End Sub
运行结果：
100到999所有水仙花数（也叫梅花数）： 153 370 371 407
VB:求100至999的范围内所有奇数中的水仙花数之和
Private Sub Command1_Click()
For i = 100 To 999
? a = i \ 100
? b = i \ 10 Mod 10
? c = i Mod 10
? If a * a * a + b * b * b + c * c * c = i And i Mod 2 = 1 Then
? ? s = s + i
? ? If k 0 Then Print "+";
? ? k = k + 1
? ? Print i;
? End If
Next i
Print "="; s
End Sub
用VB写出100到999的水仙花数并且输出到list和text
以下代码可用信息框输出水仙花数，我用的VBA写的，你自己修改一下吧：
Sub 水仙花数()
For i = 1 To 9
For j = 0 To 9
For k = 1 To 9
If i ^ 3 + j ^ 3 + k ^ 3 = i * 100 + j * 10 + k Then s = s Chr(13) i j k
Next k, j, i
MsgBox "100到999有如下数是水仙花数：" s
End Sub