上海中医院肿瘤科肠癌:求VB编程问题

来源:百度文库 编辑:高校问答 时间:2024/05/11 01:43:13
编个程序,求100到999之间有多少个水仙花数。

Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
If ((i - i Mod 100) / 100) ^ 3 + (((i Mod 100) - (i Mod 10)) / 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub