Private Sub Command1_Click()
Dim i%
For i = 100 To 999
If shuixianhua(i) = True Then Text1 = Text1 & CStr(i) & vbCrLf
Next
End Sub
Private Sub Form_Load()
Command1.Caption = "计 算"
Text1 = ""
End Sub
Function shuixianhua(Num As Integer) As Boolean
If Num = (Num \ 100) ^ 3 + ((Num Mod 100) \ 10) ^ 3 + (Num Mod 10) ^ 3 Then
shuixianhua = True
Else
shuixianhua = False
End If
End Function
