【正确答案】Public Sub p2()
     Dim x As Integer
     Dim g As Integer,s As Integer,b As Integer
     x=InputBox("请输入一个3位整数：")
     b=x\100
     s=(x-b*100)\10
     g=(x-b*100)Mod 10
     If x=b^3+s^3+g^3 Then
       MsgBox x&"是水仙花数!",vbExclamation
     ElSe
       MsgBox x&"不是水仙花数!",vbCritical
     End If
   End Sub

【答案解析】本题考查的知识点是顺序结构和选择结构的使用。难点是用运算符“\”和“Mod”将一个3位整数的百位、十位、个位分别取出。答案中首先输入的3位整数保存在变量X中，然后应用“\”和“Mod”运算分别取出x的百位b、十位s、个位g，最后代入If语句的条件判断并输出结果。