求数据为三位正整数（即100~999之间），并且它的其各个数字之和等于10用VB怎麼做
答案:2 悬赏:20 手机版
解决时间 2021-12-19 14:16
- 提问者网友：流星是天使的眼泪
- 2021-12-19 02:51
求数据为三位正整数（即100~999之间），并且它的其各个数字之和等于10用VB怎麼做
最佳答案
- 五星知识达人网友：春色三分
- 2021-12-19 03:35
sub tt()
dim i%
for i=100 to 999
if val(left(i,1))+val(right(i,1))+val(mid(i,1,1))=10 then print i
next i
end sub
dim i%
for i=100 to 999
if val(left(i,1))+val(right(i,1))+val(mid(i,1,1))=10 then print i
next i
end sub
全部回答
- 1楼网友：行路难
- 2021-12-19 04:38
private sub command1_click()
for i = 100 to 999
j = trim(str(i))
j1 = mid(j, 1, 1)
j2 = mid(j, 2, 1)
j3 = mid(j, 3, 1)
if val(j1) + val(j2) + val(j3) = 10 then print j
next i
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯