大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 .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
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