和大家一起分享一个有趣的问题--水仙花
用语言解决这个问题的程序如下:
Option Explicit

Private Sub Form_Load()
Form1.AutoRedraw = True
Dim intI As Integer, strI As String
Dim intW4 As Integer, intW3 As Integer, intW2 As Integer
Dim intW1 As Integer, intAll As Single
For intI = 10 To 9999
strI = CStr(intI)
If Len(strI) = 2 Then
intW2 = Left(strI, 1)
intW1 = Right(strI, 1)
intAll = intW2 ^ 2 + intW1 ^ 2
If intAll = intI Then
Print intI
End If
End If
If Len(strI) = 3 Then
intW3 = Mid(strI, 1, 1)
intW2 = Mid(strI, 2, 1)
intW1 = Mid(strI, 3, 1)
intAll = intW3 ^ 3 + intW2 ^ 3 + intW1 ^ 3
If intAll = intI Then
Print intI
End If
End If
If Len(strI) = 4 Then
intW4 = Mid(strI, 1, 1)
intW3 = Mid(strI, 2, 1)
intW2 = Mid(strI, 3, 1)
intW1 = Mid(strI, 4, 1)
intAll = intW4 ^ 4 + intW3 ^ 4 + intW2 ^ 4 + intW1 ^ 4
If intAll = intI Then
Print intI
End If
End If
Next intI
End Sub