VB：水仙花数问题

VB：水仙花数问题

Private Sub Command1_Click()
    Rem 水仙花数问题
    Dim x%, a%, b%, c%, z%
    'n = 0
    For x = 100 To 999
        a = Fix(x / 100) 'Fix函数是去尾的作用，只保留整数部分，当然也可以直接用整除(\)
        b = Fix((x - a * 100) / 10)
        c = x Mod 10
        z = a ^ 3 + b ^ 3 + c ^ 3
        If z = x Then
            Print Tab((n Mod 10) * 5 + 2); x; '要让它们这些数字每10个在一整行，缺了后边这个;是不行的，这个;的作用就是让后边的数据挨着输出。
            n = n + 1
        End If
    Next x
End Sub