功能:打印出 100-999 之间的所有水仙花数。 ' 如果一个数的百位,十位,个位数的立方和等于这个数本身,则这个数为水仙花数 '------------------------------------------------------- Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer '**********SPACE********** For i = 100 To 【 ? 】 '**********SPACE********** a = Int(i / 【 ? 】 ) b = Int((i - 100 * a) / 10) '**********SPACE********** c = i - 100 * a - 【 ? 】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub