求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做
求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做
答案:1 悬赏:50 手机版
解决时间 2021-04-09 12:39
- 提问者网友：雨不眠的下
- 2021-04-09 06:09
最佳答案
- 五星知识达人网友：行路难
- 2021-04-09 07:40
Private Sub Form_Load()
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If i + j + k = 10 Then
If 100 * i + 10 * j + k < 1000 And 100 * i + 10 * j + k > 99 Then
MsgBox 100 * i + 10 * j + k
End If
End If
Next k
Next j
Next i
End Su
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯