输入任意一个三位数,判断是否是“水仙花数”,即三位数的立方和等于自身,如13+53+33=153,如果用户输入的不是一个三位数,给出错误提示。界面自定。
输入任意一个三位数,判断是否是“水仙花数”,即三位数的立方和等于自身,如13+53+33=153,如果用户输入的不是一个三位数,给出错误提示。界面自定。Private Sub form_Click()n = Val(Text1.Text)If n999 Then Msgbox“输入的不是三位数,请重新输入!” Exit subElse a=n\100 b=(n mod 100)\10 ‘或