随机振动试验曲线:求VB编程问题

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 00:38:30
编个程序，求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

求VB编程问题 求VB编程问题 求VB编程问题 求VB编程问题 求VB编程问题 高分求VB编程问题 求高手解答VB编程问题 求高手VB编程~~~~ vb编程问题 vb编程问题