帮我看看这个VB哪里写错了
找出100~999之间的梅花数,所谓的梅花数就是例如153=1^3+5^3+3^3这样的数我写的是
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer,
For i = 100 To 999
a = i Mod 10
b = (i \ 10) Mod 10
c = i Mod 100
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
Print i & "是梅花数"
End If
Next i
End Sub
运行的时候单击窗体无效果。请高手来纠正我哪里写错了。我一定虚心学习
3QO(∩_∩)O~
追问:那这个要怎么改啊