用vb计算100到999中有多少个数其各位数之和等于5
答案:1 悬赏:40 手机版
解决时间 2021-08-17 18:39
- 提问者网友：遮云壑
- 2021-08-17 00:38
用vb计算100到999中有多少个数其各位数之和等于5
最佳答案
- 五星知识达人网友：渡鹤影
- 2021-08-17 01:00
Private Sub Form_Click()
For i = 100 To 999
a = i \ 100
b = (i - a * 100) \ 10
c = i Mod 10
If a + b + c = 5 Then Print a & b & c
Next i
End Sub
还想简单就这么写：
Private Sub Form_Click()
For i = 100 To 999
If Val(Left(i, 1)) + Val(Mid(i, 2, 1)) + Val(Right(i, 1)) = 5 Then Print i
Next i
End Su
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯