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

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

我只会VB，vb.net 和VB差不多 你对照源码改改吧Private Sub Form_click()
Dim k As Long, k1 As Long, sum As Long, i As Long k = 3
k1 = k
Print " " & k & "位数的水仙花数如下："
Print
For i = 10 ^ (k - 1) To 10 ^ k - 1
Do
sum = sum + (i \ 10 ^ (k - 1) Mod 10) ^ k1
k = k - 1
Loop Until k = 0
If sum = i Then Print i;
sum = 0
k = k1
NextEnd Sub

Private Sub Form_Click()
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调试了。

Dim x As Integer
        Dim y As Integer
        Dim z As Integer
        For number As Integer = 100 To 999
            x = number  100
            y = （number Mod 100）  10
            z = number Mod 10
            If number = x ^ 3 + y ^ 3 + z ^ 3 Then
                Console.WriteLine(number)
            End If
        Next
        Console.ReadKey()

Dim j, m, n
Dim myStr As String
For i As Integer= 100 To 999
j = i Mod 10
m = (i \ 10) Mod 10
n = i \ 100
If j * j * j + m * m * m + n * n * n = i Then myStr = myStr & i & vbCrLf
Next
MsgBox(myStr)

VB.net和VB有啥本质不同么.. =.=

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息