扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网