vb 输出100~999之间的第一个水仙花数

Private Sub Command1_Click()
For i = 100 To 999
If (i Mod 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i \ 100) ^ 3 = i Then Exit For
Next i
Print "第一个水仙花数是："; i
End Sub

' VB .NET 控制台应用
Module Module1

Sub Main()
Dim i, a, b, c As Integer
i = 100
Do While i <= 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Console.WriteLine(i) '控制台输出部分，可以修改成其他形式输出
End If
i = i + 1
Loop
End Sub

End Module

以下代码可用信息框输出水仙花数，我用的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

怎么用vb语言实现水仙花数?
VB实现水仙花数的程序代码如下：Private Sub Command_Click()For num = 100 To 999 a = num Mod 10 b = num \\ 10 Mod 10 c = num \\ 100 If a^3 + b^3 + c^3 = num Then Print num Next num End Sub 实现具体步骤如下：1、启动VB程序，新建一个标准exe工程 2、在窗体上绘制一...

急求vb水仙花数
比如 i = 457，则 b = (i - a * 100) \\ 10 = 57。因此，我们可以得出结论，b 的值应该是 (i - a * 100) \\ 10。在下面的 VB 代码中，当用户点击窗体时，程序会遍历从 100 到 999 的所有正整数，并检查它们是否为水仙花数。如果是，它会打印出来。```vb Private Sub Form_Click(...

VB 算水仙花数 100-999
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计算100-999有多少个水仙花数怎么写程序,用for和if语句的
在VB编程中，寻找100至999之间的水仙花数可以通过循环结构实现。水仙花数是指一个三位数，其每个位上的数字的立方和等于该数本身。这里可以使用嵌套的for循环和if语句来实现这个目标。首先定义三个for循环，分别遍历百位、十位和个位数字。百位数字的范围是1至9，而十位和个位数字的范围是0至9。在内层的...

用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编程实现求出所有的“水仙花数”
dim i as integer,m as integer for i=100 to 999 m=(i mod 10)^3 +(i \\10 mod 10)^3+(i\\100)^3 if m=i then print i next i 运行结果：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控制台编程(打印输出100-999之间的水仙花数)
Sub Main()Dim i, a, b, c As Integer i = 100 Do While i <= 999 a = i \\ 100 b = i \\ 10 Mod 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Console.WriteLine(i) '控制台输出部分，可以修改成其他形式输出 End If i = i + 1 Loop End Sub End ...

VB编写“水仙花数”
Private Sub Form_Click()Dim i%, j%, m%, n For n = 100 To 999 i = n \\ 100 j = (n Mod 100) \\ 10 m = n Mod 10 If i ^ 3 + j ^ 3 + m ^ 3 = n Then Print n; "="; i; "^3+"; j; "^3+"; m; "^3"End If Next n End Sub ...

如何用VB控制台编程(打印输出100-999之间的水仙花数)
For i = 100 To 999 If IsPrime(i) Then n = n + 1 Print i;If n Mod 10 = 0 Then Print End If Next i End Sub Public Function IsPrime(ByVal num As Long) As Boolean Dim m As Long m = Sqr(num)IsPrime = True For i = 2 To m If num Mod i = 0 Then IsPrime =...