输入一个数，判断它能否同时被2，3，5整除的问题

[xiaoyungua]

如题，我写了下面的程序：
Option Explicit

Private Sub Form_click()
Dim x!, y!
x = InputBox("enter x")
y = x Mod 30
If y = 0 Then
MsgBox "此数可以同时被2，3，5整除", "提示框"
Else
MsgBox "此数不可以同时被2，3，5整除", "提示框"
End If
End Sub
不能通过，可能我想法太简单了，大家帮帮忙

[fvflove]

Private Sub Form_click()
Dim x!, y!
x = InputBox("enter x")
y = x Mod 30
If y mod 2 =0 and y mod 3=0 and y mod 5 = 0 Then
MsgBox "此数可以同时被2，3，5整除", "提示框"
Else
MsgBox "此数不可以同时被2，3，5整除", "提示框"
End If
End Sub

这样也行.

[fvflove]

Option Explicit
Private Sub Form_click()
    Dim x!, y!
    x = InputBox("enter x")
    y = x Mod 30
    If y Mod 2 = 0 And y Mod 3 = 0 And y Mod 5 = 0 Then
        MsgBox "此数可以同时被2，3，5整除", , "提示框"
    Else
        MsgBox "此数不可以同时被2，3，5整除", , "提示框"
    End If
End Sub


'应该是这样.
'注意msgbox 语句. 中间是二个, 号
'

[xiaoyungua]

我接着做了一个判断一个数是否是完全平方数的题
Option Explicit

Private Sub Form_click()
Dim x!, y!
x = InputBox("enter x")
y = Sqr(x)
If y = Int(y) + 1 Then
MsgBox "该数是完全平方数", , "提示框"
Else
MsgBox "该数不是完全平方数", , "提示框"
End If
End Sub
结果输入9，16等是完全平方数的，它也提示对话框说该数不是完全平方数，怎么回事呢？

[fvflove]

Option Explicit


Private Sub Form_click()
    Dim x!, y!
    x = InputBox("enter x")
    y = Sqr(x)
    If y = Int(Sqr(x)) Then '如果Y没有小数位.就是完全平方数了,
        MsgBox "该数是完全平方数", , "提示框"
    Else
        MsgBox "该数不是完全平方数", , "提示框"
    End If
End Sub

[xiaoyungua]

谢谢你的帮助，呵呵