vb 代码1000以内的水仙花数 找出1000以内的所以水仙花数显示在文本框中vb？

请大神指错 用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

#sub#水仙花数