程序代码如下：
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
Dim s%, s1%, s2%, t%
For s = 100 To 1000
s2 = 0
t = s
Do While t > 0
s1 = t Mod 10
t = t \ 10
s2 = s2 + s1 ^ 3
Loop
If s = s2 Then
Print "水仙花数为："; s
End If
Next s
End Sub
用vb求1到1000水仙花数的编程方法
Private Sub Form_Click() '点击屏幕运行 Dim i As Integer For i = 100 To 999 If (i Mod 10) ^ 3 + (i \\ 10 Mod 10) ^ 3 + (i \\ 100) ^ 3 = i Then Print i Next End Sub
用vb求1到1000水仙花数的编程方法
程序代码如下：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 取十...
如何用VB编程实现水仙花数?
1、启动VB程序，新建一个标准exe工程 2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。
vb怎么实现水仙花数?
1.启动VB程序，新建一个标准的exe项目，如下图。2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。3.接下来，开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码，如下图。4.按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407，如下图。
用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 =...
用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 ...
用VB编写求1000以内水仙花数
'需要控件:command1 Private Sub Command1_Click()Print "水仙花数有:";For i = 100 To 999 If (i \\ 100) ^ 3 + ((i Mod 100) \\ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i;Next i End Sub
VB如何求水仙花数
水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。（例如：1^3 + 5^3+ 3^3 = 153）可以运用将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环来解决水仙花求解问题。以3位10进制数100-999为例，代码如下：Private Sub Command1_...
求出所有的水仙花数 要求用VB 写出全过程
1000以内的 Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next...
用循环语句求所有的水仙花数(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...
