请大神指错 用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
随机阅读
- 如何拆装通用柯喜佳汽车空调系统的膨胀阀? 汽车空调h膨胀阀怎么调节螺栓
- . 水准测量中,同一测站,当后尺读数大于前尺读数时说明后尺点 水准测量时上点的尺不是同一把
- 盛夏晚晴天之美女如云全本阅读 盛夏晚晴天晚晴和乔津凡船上床
- 汽车冷却系统负压是什么原因 冷却水出口防空头负压
- 毛衫织补培训石家庄 谁知道石家庄市区哪里有织补?
- 请问您所在的地方属于温州地区的多大城市呢?它的什么指标一定全部排在温州地区的第一位吧!如题 谢谢了 温州主要指标
- 综合管网的审批 一个工程的建设需要那几个部门的审批?具体步骤是怎么样的?
- 在网上买的火车票还没有到窗口取票,可以直接在网上退票吗?求解答 新聚丰圆大酒店 上门
- 为什么人血白蛋白很难买到? 贵州民博会志愿者
- 炒股软件哪个好 哪款炒股软件好
- 战锤全面战争2混沌勇士开局 全面战争战锤2新手攻略
- 观音灵签18签 抽签383诸葛神算
- 最近听到一个词,叫 房价对家庭收入比
- 娜塔莎·金斯基的个人生活 娜塔莎 金斯基后宫
- 环氧氯丙烷 的分子式 环氧氯丙烷的用途
- 宁德市皇品水产有限公司怎么样? 塔山村富田路21号位置宁德
- 豌豆田 孟德尔
- 北京科力安监测技术有限公司 北京科力赛克科技有限公司怎么样?
- 超白玻璃和普通超白区别 超白玻璃和普通玻璃的区别有哪些?急急急
- 赏析下面这首诗歌,重点解析最后一句,如何体会野草闲花满地愁? 风度高闲 水仙花露香吐解析