神马品牌网灌肠器怎么制作:VB 编程 急！！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 08:43:35
请问用Visual Basic 编下面程序的代码
水仙花数是指一个三位数，其各位数的立方和等于该数，如153等于1，5，3的立方和，编写程序，打印出100~1000之间的所有水仙花数。
水仙花数是指一个三位数，其各位数的立方和等于该数，如153等于1，5，3的立方和，编写程序，打印出100~1000之间的所有水仙花数。
Private Sub Form_click()
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
If i ^ 3 + j ^ 3 + k ^ 3 = 100 * i + 10 * j + k Then
m = i ^ 3 + j ^ 3 + k ^ 3
Text1.Text = Text1.Text & Space(4) & m
End If
Next k
Next j
Next i
End Sub
Private Sub Form_Click()
dim i,j,k,m,n as integer
for n=100 to 999
i=n mod 100
m=n\100
j=m mod 10
m=m\10
k=m mod 10
if i^3+j^3+k^3=n then print n & ",";
next
End Sub
printf("'water flower'number is:")
for n=100 to 1000
{ i=n/100;/*分解出百位*/
j=n/10%10;/*分解出十位*/
k=n%10;/*分解出个位*/
ifi*100+j*10+k==i*i*i+j*j*j+k*k*k then
print n
}