vb.net水仙花制作 vb编程水仙花数

用VB.net变成找出100~999之间的水仙花数

Private Sub Form_Click()

成都创新互联是一家专注于网站制作、成都做网站与策划设计,邯山网站建设哪家好?成都创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:邯山等地区。邯山做网站价格咨询:18980820575

Dim i As Integer, n As Integer

Dim a As Integer, b As Integer, c As Integer

'设a b c 分别表示百位数，十位数，个位数

Print "水仙花数如下："

For n = 100 To 999 '遍历100到999所有三位的水仙花数

a = Int(n / 100) '取百位数，用int函数取整数部分

b = Int((n - a * 100) / 10) '取十位数

c = n - a * 100 - b * 10 '取个位数

i = a ^ 3 + b ^ 3 + c ^ 3 '将其各位数字立方之和相加起来

If i = n Then Print Str(i) ' 判断各位数字立方之和相加起来,若等于100-999当中的数那么就输出来

Next n

End Sub温馨提示：VB.NET的代码与VB6.0的代码是差不多的，你只需稍稍改一下即可。由于我手头上没有VB.NET工具所以就不能帮你用VB.NET调试了。

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

' 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

VB编程题：编写输出水仙花数的程序

Private Sub Command1_Click()

Dim i%, j%, k%,

Do While i 10

Do While j 10

Do While k 10

If i ^ 3 + j^ 3 + k ^ 3 = i*100+j*10+k* 1 Then Text1.Text = Text1.Text " " i j k

k=k+1

Loop

j=j+1

Loop

i=i+1

Loop

End Sub