请大神指错 用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
随机阅读
- 水内冷发电机原理图 双水冷汽轮发电机的优点
- 谁知道赣州不锈钢厨具哪家公司做的好? 赣州章贡不锈钢加工店
- 大件运输为什么控制加速度 在座的老司机!有谁懂,大件运输有什么运输服务项目?
- 济源到郑州龙湖开车怎么走 漯河绿野电脑学校
- 世纪明珠物资批发市场怎么样 文化产业股票有哪些?
- 师大新村怎么样?好不好?值不值得买? 上海师大新村对口中学
- 有没有祥细的介绍电子贴片机原理的书没有。推荐下 现代贴片机
- 重庆韩式隆鼻价格贵不贵?重庆做韩式隆鼻最好的整形医院? 重庆韩式隆鼻整形医院6征询-星宸
- 水菜丽地狱之眼图片 如何评价《陀地驱魔人》?
- 汉城路到李家村万达坐什么车 仙踪林(西安万达广场店)到西安城西客运站怎么走
- 备孕须做女性激素测定吗 备孕女性,月经第三天做了生殖激素测定,
- 汉字转草书字转换器 请问
- 去水上乐园玩要自己带泳衣吗,还是乐园有泳衣买的, 汇雅水乐园
- 水浒传中武松在血溅鸳鸯楼,杀死西门庆等人后,在墙上写下哪八个字 水浒传武松打死蒋门神后在墙上写了什么
- 试乘试驾专员干什么工作 试乘驾驶员
- 圣经中关于不要害怕的经文 圣经中说闲话的失败见证
- 如何查询涉及饮用水卫生安全产品卫生许可批件 涉水产品批件查询
- 课文在讲武松打虎这个故事前 还讲了 景阳冈这篇课文里武松打虎的部分,用自己的话细讲,可以加上适当的语气表情和动作?
- 氟化工上市公司一路狂飙 求朋友给说下国际涂料品牌排行榜
- 淄博增瑞化工有限公司怎么样? 淄博丙酰氯