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