用VB语言求水仙花数怎么求啊？ Private Sub Form1_Click()Dim a As Integer，b As Integer，c As IntegerFor a=1 To 9For b=0 To 9For c=0 To 9If a^3+b^3+c^3=a*100+b*10+c ThenForm1.Print a*100+b*10+。
VB编程水仙花数 1、首先2113双击桌面图标启动 visual basic 6.0。2、然后新建工程，选5261择标准EXE。3、选择完工程后，4102点击打开，就可以新建一个exe工程了1653。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click()事件中。5、代码：If a*100+b*10+c=a^3+b^3+c^3 Thenn=n+1If(n Mod 5)=0 ThenPrint a&b&cElsePrint a&b&c，End IfEnd IfNext cNext bNext aPrint Chr(13)&Chr(13)&\"三位数中水仙花数个数为\"&n。最后运行这样就完成了。
vb水仙花数是求什么？？？急 不会
VB编程实现求出所有的“水仙花数” dim i as integer，m as integerfor i=100 to 999m=(i mod 10)^3+(i \\10 mod 10)^3+(i\\100)^3if m=i then print inext i运行结果：153 370 371 407
vb 求水仙花数 for i=100 to 999x=right(cstr(i)，1)y=left(cstr(i)，1)z=mid(cstr(i)，2，1)if i=x^3+y^3+z^3 then print inext i
vb 中求100到1000之间的水仙花数. Private Sub Form_Load()1，装载窗体时不能运行Print应改为form_click Dim a，b，c，i As Integer For i=100 To 1000 a=i/100 '百位上的数 2，你把整除符号记错了，此处应将\"/。
VB如何求水仙花数 水仙花数是指一个 n 位数zhidao(n≥3)，它的每个位上的数字的 n 次幂之和等于它本身。（专例如：1^3+5^3+3^3=153）可以属运用将一个 For.Next 循环放置在另一个 For.Next 循环中，组成嵌套循环来解决水仙花求解问题。以3位10进制数100-999为例，代码如下：Private Sub Command1_Click()Dim i As Long，j As Long，k As LongDim s As LongFor i=1 To 9For j=0 To 9For k=0 To 9s=i*100+j*10+kIf((i^3)+(j^3)+(k^3))=s ThenDebug.Print sEnd IfNext kNext jNext iEnd Sub
用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身 Option ExplicitPrivate Sub command1_click()Dim I As Integer，a As Integer，b As Integer，c As IntegerDim st As StringFor a=1 To 9For b=0 To 9For c=0 To 9I=a*100+b*10+cIf I=a^3+b^3+c^3 Thenst=I&\"=\"&a&\"^3+\"&b&\"^3+\"&c&\"^3List1.AddItem stEnd IfNext cNext bNext aEnd Sub
求vb水仙花数问题 改为 题目：设计程序，找出所有水仙花数。所谓水仙花数，是指一个3位数，其各位数字的立方和等于该数字本身。例如，153是一个水仙花数，因为153=13+53+33。。
