VB输出水仙花数。
答案:2 悬赏:10 手机版
解决时间 2021-03-28 05:56
- 提问者网友：未信
- 2021-03-27 09:08
VB输出水仙花数。
最佳答案
- 五星知识达人网友：笑迎怀羞
- 2021-03-27 09:56
很简单的 新建一个 默认按钮 Command1
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub
全部回答
- 1楼网友：蓝房子
- 2021-03-27 10:36
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯