Question

使用vb编写水仙花数字？

Answer 1

Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3
For i = 10 To 999
If i < 100 Then
 ge = i Mod 10
 shi = i \ 10
 If ge ^ 3 + shi ^ 3 = i Then Print ,
Else
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 5 = 0 Then Print
 End If
End If
Next i
 Print
 Print
 
Print geshu
End Sub