100到999的水仙花数vb 水仙花数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所有水仙花数的和 水仙花数，呃，这是一个特定的名称吧？你说明一下，什么样的数是水仙花数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 输出100~999之间的第一个水仙花数 Private Sub Command1_Click()For i=100 To 999If(i Mod 100)^3+(i \\ 10 Mod 10)^3+(i \\ 100)^3=i Then Exit ForNext iPrint\"第一个水仙花数是：;iEnd Sub用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 Subvb 题目 拜托咯 Private Sub form_click()Dim a As Integer,b As Integer,c As Integer Dim i As Integer For i=100 To 999 a=Mid(i,1,1)b=Mid(i,2,1)c=Mid(i,3,1)If i=.水仙花数100到999 VB怎么分行 Private Sub Form_Click()Print\"???é?¨êyóD:;PrintDim t,i,j,k,n As IntegerFor n=100 To 999i=n \\ 100j=n \\ 10-i*10k=n Mod 10If n=i^3+j^3+k^3 ThenPrint n,‘作了更改t=t+1’增加了变量t和此行If t Mod 3=0 Then Print‘控制每行3个数End IfNext nEnd SubVB 算水仙花数 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^3+b^3+c^3=x ThenPrint\"水仙花数Print xEnd IfNext xEnd Sub这样就OK了用VB求3位所有“水仙花数”之和？（求100-999之间所有水仙花数的和）急~ 回答这题目还需要先去百度“水仙花数”亲测可用，如上Private Sub Command1_Click()Dim i,j,m,n,sum As IntegerDim arr(1000)As IntegerDim a,s As Integera=1For n=100 To 999i=n \\ 100j=(n Mod 100)\\ 10m=n Mod 10If i^3+j^3+m^3=n Thensum=sum+narr(a)=na=a+1End IfNext nText1.Text=sumPrint\"100-999间水仙花数有：For s=1 To a-1Print arr(s);If s Mod 5=0 Then PrintNext sEnd Sub用VB求3位所有“水仙花数”之和？（求100-999之间所有水仙花数的和）急~V Private Sub Command1_Click()Dim i,j,m,n,sum As IntegerFor n=100 To 999i=n \\ 100j=(n Mod 100)\\ 10m=n Mod 10If i^百 3+j^3+m^3=n Thensum=sum+nEnd IfNext nPrint\"求度100-999之间知水仙花道数之内和为：容\"&sumEnd Sub

#水仙花数#sub