用VB求3位所有“水仙花数”之和？（求100-999之间所有水仙花数的和）急~V 100到999的水仙花数vb

100到999的水仙花数是多少 dim i，a，b，cfor i=100 to 999a=fix(i/100)b=i mod 10c=i-a*100+b*10if i=a*a*a+b*b*b+c*c*c thenlabel1.caption=i(显示在标签上)end ifnext i随便你想要什么地方显示

VB 算水仙花数 100-999 ^Private Sub Command1_Click()Dim x As Integer，a As Integer，b As Integer，c As IntegerFor x=100 To 999a=Int(x/100)b=(Int(x/10))Mod 10c=x Mod 10If a^2113 3+b^3+c^3=x ThenPrint\"水仙5261花数Print xEnd IfNext xEnd Sub这样4102就1653OK了

用VB写出100到999的水仙花数并且输出到list和text 以下代码可用信息框输出水仙花数，我用的VBA写的，你自己修改一下吧：12345678Sub 水仙花数()For i=1 To 9 For j=0 To 9 For k=1 To 9 If i^3+j^3+k^3=i*100+j*10+k Then s=s&Chr(13)&i&j&k Next k，j，i MsgBox\"100到999有如下数是水仙花数：\"&sEnd Sub

#c语言求100到999的水仙花数#求100到999的水仙花数#100到999的水仙花数vb#100到999的水仙花数有哪些