请大神指错 用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
随机阅读
- 合肥租房网在哪?
- 《辐射4》居里怎么变成合成人?居里变人任务的攻略是什么? 辐射4居里找学院变人
- 为什么建国后,北方的省份大多更改了名称,而南方却没有? 青岛武昌路右拐香港西路
- 中国工商银行上海市分行地址 中国工商银行上海分行的英文怎么写
- 汉语言文学专业的毕业论文选什么方面的比较好下手? 论郭沫若屈原诗性特征
- 一氧化碳二级能源
- 武汉武昌区批发街 香槟杯 无比想念广式早茶。谁知道武汉早茶在哪儿有???
- 当有人对你说无聊你该怎么损他 当一个人非常无聊、而又没事做的时候你应该说什么话来激励他?
- 可靠性工程师具体工作内容是什么?可靠性分析 ,管理, 做寿命试验?常用什么工具软件啥的 模拟长寿命试验可以替代
- 益阳喜糖铺子 十字路喜铺
- 才买没多久的虎皮鹦鹉,最近发现越来越瘦,拉的屎有时水状,有时正常。看了它的屁屁才发现好大一片没毛了 鹦鹉越来越瘦
- 南充金鱼岭151号在哪里,从营门口坐哪路车去? 南充金鱼岭路有钢材吗
- 新生儿不小心吃点氟冰霜吗 如果宝宝不小心吃了弗冰霜怎么办
- 饭后多久可以运动? 吃饭多久可以运动
- 丁香西饼屋 开门时间 谁有丁香西饼屋的优惠券或者卡啊?
- 海军里,为什么军官和士兵的军装不一样? 65水兵服
- 做核磁注射钆喷酸葡胺注射夜,多久能... 钆喷酸葡胺注射过敏性高不高
- 南平电视台 历年获奖 将来会有6A级景区吗
- 请问有没有中午或者晚上经过洛阳到汉中的过路火车? 洛阳到汉中高速
- 现在西安碑林区人才服务中心的具体地址、电话 西安市碑林区老年综合服务中心