VB程序设计 简答题

Question

求100~999中的水仙花数，所谓水仙花数是指一个三位数，它的各位数字立方之和等于该数，例如：一百五十三等于一的三次方加五的三次方加三的三次方。所以一百五十三是水仙花数。

Answer 1

Private Sub Form_Click()
    Dim I As Integer, K As Integer
    Print "100-999之间的水仙花数："
    For I = 100 To 999
        If (I Mod 10) ^ 3 + (I \ 10 Mod 10) ^ 3 + (I \ 100) ^ 3 = I Then
            Print I;
            K = K + 1
        End If
    Next
    Print
    Print "共有"; K; "个"
End Sub

已经运行过。有什么问题请留言。