VB编程，找出所有的“水仙花数”。 这个程序在VB中与VC中是有些些不同的，因为VC中当定义每位为整型时，它不会有四舍五入规则的，而VB中则不同。比如：VC中（153/100）%10=1，而VB中它算出来的为2，所以注意这个就可以了。在VB中就先从个位判断，是否.
用VB编写：找出所有的“水仙花数”。 “水仙花数”是指一个三位数，其各位数字的立方和等于该数本身 代码为：using System；using System.Collections.Generic；using System.Text；namespace_{class Program{static void Main(string[]args){Console.WriteLine(\"一重循环判断：\")；Console.WriteLine(\"水仙花数有：\")；int i，j，k，l；for(i=100；i；i+){j=i/100；k=i%100/10；l=i%10；int n=j*j*j+k*k*k+l*l*l；if(n=i)Console.WriteLine(n)；}Console.WriteLine(\"三重循环判断：\")；Console.WriteLine(\"水仙花数有：\")；int q，w，e，r；for(q=1；q；q++)for(w=0；w；w+)for(e=0；e；e+){int s=q*100+w*10+e；int t=q*q*q+w*w*w+e*e*e；if(s=t)Console.WriteLine(s)；}}}}扩展资料：注意事项自定义函数is(number)判断number的各位数字立方和是否等于它本身，如is(121)返回值0，is(153)返回值1。主函数输入两个正整数m和n(m>；=1，n)，输出m-n之间的所有满足各位数字和等于它本身的数。Input多组测试数据，每组输入两个正整数m和n(m>；=1，n)。Output输出m-n之间的所有满足各位数字立方和等于它本身的数，空格隔开（最后一个数后无空格）。Sample Input1 10050 20050 500Sample Output1153153 370 371 407includeincludeint is(int number){int s，sum=0；while(number。
用VB编程。水仙花数，是指这样的三位数，其各位数的立方和等于该数本身，求100至500范围内有多少个水仙花数 Private Sub Command1_Click()Dim i As Integer，j As IntegerDim m As Integer，n As IntegerFor i=100 To 500For j=1 To Len(CStr(i))m=m+Mid(i，j，1)^3NextIf i=m Then n=n+1：Print i；m=0NextMsgBox nEnd Sub
