关于我写的程序,大家看看有什么错误?运行不了啊!!!
Private Sub Form_Load()
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i / 100 ‘百位上的数
b = (i / 10) Mod 10 ‘十位上的数
c = i Mod 10 ‘个位上的数
If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then
Print i
End If
Next i
End Sub
的问题
Private Sub Form_Load() 1，装载窗体时不能运行Print应改为form_click
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i / 100 ‘百位上的数 2，你把整除符号记错了，此处应将”/”改为”\”
b = (i / 10) Mod 10 ‘十位上的数 3,此处应改为b=(i-a*100)\10
c = i Mod 10 ‘个位上的数
If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then
Print i ‘因100 * a + 10 * b + c =i，可以简化程序改为i
End If
Next i
End Sub
修改后为：
Private Sub form_click()
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i \ 100 ‘百位上的数
b = (i – a * 100) \ 10 ‘十位上的数
c = i mod 10 ‘个位上的数
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i
End If
Next i
End Sub
结果有5个，其中1000，a=10, b=0, c=0
10*10*10 + 0 =1000
。
