stop.bp

编译原理课程设计用vb编写

Print "---------求水仙花数程序------"
Print "所有水仙花数：";
For a = 0 To 9  
    For b = 0 To 9  
        For c = 1 To 9  
            If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
                Print 100 * c + 10 * b + a; " ";  
            End If
        Next  
    Next  
    Stop
Next