当前位置:编程学习 > VB >>

帮我看看这个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~

追问:那这个要怎么改啊
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,