3、用VB编一程序，显示出所有的水仙花数。
所谓水仙花数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153=13+53+33，希望能给详细的编码，感激万分啊
Dim i As Integer
For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub本回答被提问者采纳
DimiAsInteger
Fori=100To999
If(i\100)^3+(i\10Mod10)^3+(iMod10)^3=iThenPrinti
Next
EndSub
用VB编写:找出所有的“水仙花数”。 “水仙花数”是指一个三位数,其...
using System;using System.Collections.Generic;using System.Text;namespace _{ class Program { static void Main(string[] args){ Console.WriteLine("一重循环判断：");Console.WriteLine("水仙花数有：");int i,j, k, l;for (i = 100; i < 1000;i++){ j = i \/ 100;k = i %10...
用VB编写:找出所有的“水仙花数”。“水仙花数”是指一个三位数,其各位...
```vb Module Module1 Sub Main()Console.WriteLine("三位数的'水仙花数'有：")For i As Integer = 100 To 999 Dim a As Integer = i \\ 100 Dim b As Integer = i Mod 100 \\ 10 Dim c As Integer = i Mod 10 Dim sum As Integer = a * a * a + b * b * b + c * c...
VB编程,找出所有的“水仙花数”。
这个程序在VB中与VC中是有些些不同的，因为VC中当定义每位为整型时，它不会有四舍五入规则的，而VB中则不同。比如：VC中（153\/100）%10=1，而VB中它算出来的为2，所以注意这个就可以了。在VB中就先从个位判断，是否超过或等于5，是的话就让它减去0.5，不是的话直接操作。VB中程序如下：一...
如何用VB编程实现水仙花数?
实现具体步骤如下：1、启动VB程序，新建一个标准exe工程 2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。
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.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码...
如何用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 ...
用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所有水仙花数（也...
用VB编程输出所有的水仙花数 另求程序界面该怎么设置
Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3For i = 10 To 999If i < 100 Then ge = i Mod 10 shi = i \\ 10 If ge ^ 3 + shi ^ 3 = i Then Print ,Else ge = i Mod 10 shi = i \\ 10 Mod 10 bai = i \\ 100 If ge * ge * ge + shi...
水仙花数编程vb水仙花数vb代码
关于水仙花数编程vb，水仙花数vb代码这个很多人还不知道，今天来为大家解答以上的问题，现在让我们一起来看看吧！1、Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 9For b = 0 To 9For c = 0 To 9If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 ...
用循环语句求所有的水仙花数(for--next)
VB实现的，你用着看吧，源码如下 Sub Main()Dim a As Integer, b As Integer, c As Integer, i As Integer For i = 100 To 999 a = i Mod 10 b = (i - a) \/ 10 Mod 10 c = (i - b * 10) \/ 100 If a * a * a + b * b * b + c * c * c = i Then Cons...
