以下程序suixian可以判断某个数字是否为水仙花数,所谓“水仙花数”是指一个3位数,其各个数字立方和等于该数本身。
Private
Sub Command1_Click( )
Dim i As Integer
For i = 100 to 999
Next i
End
Sub
Public
Sub suixian(x As Integer)
Dim i%,j%,k%
i =
j = (x -i * 100)\10
k =
If Then Print x
End
Sub
答案:【1】Call suixian(i)【2】x\100【3】x mod 10【4】i^3 + j^3 +k^3 = x