Question

如何用VB控制台编程（打印输出100－999之间的水仙花数）

求助啊。。好的多给分。

Answer 1

' 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

Answer 2

Private Sub Command1_Click()
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 = False
Exit For
End If
Next i
End Function