第一问答网»论坛 › 中问网 › 问答 › vb编程求100~300之间各位数之和等于5的所有整数（使用Fo ...

vb编程求100~300之间各位数之和等于5的所有整数（使用For语句）

11 |

1 | 2013-5-22 11:28:39 | 显示全部楼层 |阅读模式

Private Sub Command1_Click()For i = 100 To 300
s = Val(Mid(Str(i), 2, 1)) + Val(Mid(Str(i), 3, 1)) + Val(Mid(Str(i), 4, 1))
If s = 5 Then
Print i
End IfNextEnd Sub思路是将数字转换为字符，进行分割后再转换为数字进行相加。这里需要注意一点，数字转换为字符时是带符号的，正数以空格表示+，所以我进行分割时从第二位开始。...

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

加好友
发消息

回复楼主返回列表

问答

热门排行

1 同学来我家玩不走了怎么办
2 浮点数的表示范围中,X(最大正数)=(1-2^-n)×2^2^k-1是怎么得到的？
3 脑筋急转弯：楚楚的生日在三月三十日，请问是哪年的三月三十日？
4 他算不算抢夺
5 百分之百控股与百分之九十五控股之间哪个有利，它们之间的利弊是什么。
6 SD卡丢了，里面存的视频曾经在电脑上用百度影音播放过，有办法找回播放的视频么？
7 波卡兰厨卫的产品的性价比怎么样呢？
8 阳朔旅游
9 是不是同性恋
10 图片的女孩是什么名字，想要类似的图片最好是桌面
11 男生说女生还漂亮什么意思？女生说挺漂亮什么意思
12 感冒，感觉发烧，体温计却36.5度，鼻塞、头痛、全身无力。吃快克可以吗？是不是应该再吃着消炎药？
13 不是的，还是第一个问题，帮我问一下，谢谢！
14 学生电脑接入电脑右下角有反应，但是‘我的电脑’里面没磁盘！
15 贴生姜会让脸上毛变长吗？
16 郑州卡西欧zr1000价格四月份会降价吗
17 拥抱春天的罗曼史drama+翻译1到9
18 请问为什么我的触屏电脑触屏功能刚才还能用重启了一次之后再点屏幕就没有反应了？
19 OUTLOOK邮件保存问题，想保存2012年1月到12月的邮件，现在是2013年3月，怎样单独备份出来？
20 我是一名高二的文科女生，地理和数学因为有太多的不懂，面对买来的参考书，不知从何做起。望学霸们教我...
21 飒漫画迷梦绮罗的故事匣子有几期是关于穿越西元3000后的,哪里能看啊
22 如果说想买电子产品什么好呢?是手机,笔记本,直板,哪个更适合女生呢?哪个牌子的好呢?
23 为什么物体在斜面上所受到的支持力有冲量？
24 长城哈弗H6办金融分期贷款首付多少，月供多少？？？
25 电视机开关电源灯不亮了
26 求连锁超市物流成本管理的论文，不要网上一搜就搜到的~
27 我的淘宝小店开了，主营潮流女装，物美价廉。旺旺号：麒麟闯天下，欢迎来看看啊
28 唇没有裂开,硬腭,悬雍垂都裂开了属于哪种类型、几级的腭裂
29 打算8000左右配置游戏电脑
30 17的14次方与31的11次方，有耐心的，请来。。
31 谁玩DNF说怎么打！王者遗迹！
32 求西游降魔录高清下载地址
33 惠州比亚迪实业有限公司员工待遇怎么样应聘条件有什么
34 英语专业考研，华中科技大学或者华师文学方向与翻硕这两个方向，哪个更好考啊？另外二外日语难不？
35 高三了,自己对旁边的女学生有好感
36 绿茶餐厅的打包盒可以重复使用吗?
37 僵尸战争的配置要求和使命召唤8的配置要求那个高
38 我是一名应届生，如何将自己定位，总决定不了该干什么工作...
39 是他伤害了我，还是我贱
40 谁帮我算算，7元股票5次10送5后股价是多少
41 不死同调打圣刻。卡组求改
42 2013年娄底三中的分数线是多少？请各位估算一下。
43 生物竞赛题目求大神!很急
44 连词成句in danger,outdoors,put,the terrible weather,working,the people
45 2013年河南省的公务员考试什么时候开始报名？在哪里可以看到相关信息？有链接吗？
46 奥比岛找女仆，必须是红宝石。
47 三十岁的女的说她喜欢我，我还咋应付？
48 女生解脲脲原体检验是阴性人型支原体检验是阴性备注写着培养出霉菌+ 是什么意思
49 苹果4s无法上无线网
50 炫舞谁知道他手上这个篮圈带的是什么他穿的装扮我都看了没有这个
51 做模具的具体是什么？做模具要什么材料？前途好吗？
52 尼基塔第3季15集今天为何还没出来？？？
53 你好，请问如何把P6800手机中的电影移到SD卡上呢
54 上海韩语辅导班哪家好?
55 今天几号？星期几？
56 numb men 什么意思
57 孤岛危机3刚进入游戏显示继续游戏看一下选项不能显示了
58 牛津版初一下unit3 a blind man and his "eyes" in a fine根据这个课文怎样编写话剧吖？？？？？急用！
59 关于和紫色年华签约的作者韩十三的。
60 CSOL号 QQ1719204921
61 有一首英文歌，有一段叫one，two，one two three four！有点快。有人知道吗？
62 谁知道这是怎么回事? iphone连接itunes就这样了试了几次都这样
63 咋提问？
64 天龙八部极品85护符可以在5173上卖吗？好卖吗？
65 千千静听下载歌曲有没把专辑图片一起下了？像QQ音乐那样
66 山地车很好玩吗？
67 DNF装备上很多魔怎么付的
68 最近大姨妈老是不太准时，请问下张家港有哪家医院治疗月经不调最好，知道的麻烦告诉一下，谢谢~~~
69 mx2防水性能怎么样？
70 能发个迅雷VIP会员账号给我用一个下午吗？谢谢啊
71 镭风速甲蜥 HD6770玩逆战怎么样
72 考公务员什么时候报班？实习怎么办？
73 求《网游之江湖任务行》全本TxT 作者:蝴蝶蓝 ,邮箱[email protected]
74 男青年吃什么能增高，或有什么办法？跪求叩拜大仙出主意～～
75 如果陶渊明跨越到我们面前 ,你想对他说什么?
76 某公司的工作人员每周都工作5天休息2天，而公司要求每周从周一至周日，每天都至少有32人上班，那么该公司
77 问答推广的技巧有哪些，需要注意哪些？
78 求这双搭扣铆钉松糕鞋地址！谢谢亲们啊知道的说一下吧！急急急！
79 律政狂鲨5-8集的英文字幕能发给我么？我找疯了也找不到，急啊！我邮箱[email protected]
80 已知a-b=3,a+c=-5,求代数式ac-bc+a^2-ab的值
81 1+1为什么等于2
82 分解因式36*23-12*9
83 把一块棱长为2厘米的正方体木块,分成形状,大小完全相同的两个木块后,表面积比原来增加了多少
84 e？？e的英文词
85 “情色”与“色情”这两个词的区别
86 想在唐山买架钢琴,去转了转,有个叫美嘉钢琴城的,这家钢琴怎么样呢
87 家庭教师动漫好看吗
88 家里玩英雄联盟lol太卡咋办
89 小说我的黑道男友全文txt下载请发送到邮箱谢谢~苏芮风净尘版本的~
90 40厘米=【】分之【】米 2500千克=【】分之【】吨一个正方体，一个面的面积是49平方厘米他的棱长总和是
91 哪位有《长生不死》txt精校版发我一份，[email protected] ，谢谢！
92 我的三星S5830I刚刚丢了，请问可以定位找回吗？
93 在线坐等！硬盘500G 加外接电源问题
94 求推荐一款日抛隐形眼镜、要低含水的，经常眼干，而且配带时间长
95 求烟草栽培学，和烟草调制学这两本书
96 九江流产哪家好？不打扰，是我的温柔。
97 在贵州有民生银行吗！我也急着贷款。
98 求一部古装武侠电影：大致是要护送什么，半路被百般阻挠，
99 7人同问酷派8070 怎么获取ROOT权限··说的详细点··到底哪个软件能帮酷派8070获得ROOT权限
100 律政狂鲨5-8集的英文字幕能发给我么？我找疯了也找不到，急啊！我邮箱[email protected]