请大神指错 用VB编写求1000以内的水仙花数 Public sub fx()cresult=space(0)For i=100 To 999a=Mid(i,1,1)b=Mid(i,2,1)c=Mid(i,3,1)If a^3+b^3+c^3=i Thencresult=iDebug.Print\"1000以内的水仙花数是:\"&cresultEnd IfNext iEnd Sub打印放到循环里面帮忙解决这个VB问题:编写程序求1000以内的水仙花数,水仙花数是指一个3位正整数,其各位数字的立方之和等于该数。如153=13+53+33 Private Sub Command1_Click()'我放到了一个按钮点击事件里 Dim i%,n%,f%,g%,s%,b%For i=100 To 999 g=i Mod 10 s=i \\ 10 Mod 10 b=i \\ 100 If i=g*g*g+s*s*s+b*b*b Then 。VB程序里,1000以内水仙花数的代码,next应该在哪里呢?我写的只能出来一个水仙花数,剩下的三个出不来啊 dim i,sumfor i=100 to 999a=i\\100b=(i mod 100)\\10c=i mod 10if i=a^3+b^3+c^3 thensum=imsgbox sum '这句话的位置你放错了end ifnext这就是正确代码了用vb求1到1000水仙花数的编程方法 所谓的水仙花数(梅花数)是指在三位整数(100到999之间)中,百位数、十位数、个位数的立方和等于它本身,如153=1^3+5^3+3^3。程序代码如下:Private Sub Command1_Click()Dim i As Integer,s As IntegerDim a As Integer,b As Integer,c As IntegerPrint\"100到999所有水仙花数(也叫梅花数):;For i=100 To 999a=i \\ 100 '取百位数b=i \\10 Mod 10 '或 b=i Mod 100 \\10 取十位数c=i Mod 10‘取个位数s=a^3+b^3+c^3 '水仙花数的判断依据If s=i ThenPrint i;End IfNext iEnd Sub运行结果:100到999所有水仙花数(也叫梅花数):153 370 371 407
随机阅读
- 普通话水平测试报名去哪? 国家普通话水平测试报名
- 社会主义核心价值观与中华民族精神的关系是怎样的 学习《中华民族文化的当代价值观》
- 山东省郓城县水堡乡赵楼村 山东省菏泽市郓城县水堡乡生活在饥饿边缘的家庭大人不能动,小孩子还很小,怎样吃饱饭?
- 厄瓜多尔比尔卡班巴人的长寿秘诀是什么? 比尔卡班巴 意为神圣
- 2图碧水云涧 江苏溧阳有哪些好玩的地方值得推荐呢?
- 梁模板架设时为什么要起拱 什么情况下对模板需要起拱
- 去水上乐园玩要自己带泳衣吗,还是乐园有泳衣买的, 汇雅水乐园
- 父亲欠银行太多账没有,以后孩子长大成人会不会要孩子来还 爸爸欠孩子太多了
- 石家庄桥西区槐安东路28号仁和嘉园在哪公交怎么做 槐安路仁和家园
- 水位传感器3根线昨接 两线制超声波水位仪传感器接线图
- 三水白坭五人龙舟赛在那举行 佛山周边10月份哪里有五人龙舟赛吗?
- 油酸酰胺和芥酸酰胺外观是什么样子的? 油酸酰胺芥酸酰胺
- 电磁炉风扇不转动是怎么说 电磁炉通电后发出嘀嘀声,散热风扇不转动。咩问题?
- 促黄体生成素、促卵细胞生成素多少为正常? 促黄体素与催卵
- 汇仁肾宝片,可以和前列康一起吃吗 同普堂汇仁金戈怎么样
- 年终公司发放的购物卡要缴纳个人所得税吗? 给员工发购物卡如何不交个税
- 三大试验区建设指的是什么 实验中心建设目标
- 疫情期间,公司想制作一个二维码扫码进入,请问怎么制作? 商超货物的二维码是如何标价的
- 东大桥路二手房均价是多少?需要关注哪些点 东大桥路71号楼怎么样
- 求歌词:就让我喝了干了再来一杯 歌词就再来一杯