這是壹個三位數的水仙花號。
私有子命令1_Click()
Dim n為整數,a為整數,b為整數,c為整數
對於i = 100到999步1
a = i \ 100
b = (i - 100 * a) \ 10
c = i - 100 * a - 10 * b
如果a ^ 3 + b ^ 3 + c ^ 3 = i那麽
打印I;
n = n + 1
如果n模2 = 0,則
打印
如果…就會結束
接下來我
末端接頭