用户

输入任意一个三位数,判断是否是“水仙花数”,即三位数的立方和等于自身,如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 ‘或