表示x是5或7的倍数（用vb 表示）

Private Sub command1_click()
Dim n As Integer
n = 0
x = InputBox("请输入")
If x Mod 5 = 0 Then n = 1
If x Mod 7 = 0 Then n = n + 2
If n = 1 Then
MsgBox (x & "是5的倍数")
ElseIf n = 2 Then
MsgBox (x & "是7的倍数")
ElseIf n = 3 Then
MsgBox (x & "是5的倍数也是7的倍数")
Else
MsgBox (x & "不是5的倍数也不是7的倍数")
End If
End Sub

if x mod 5=0 or x mod 7= 0 then
mod是取余计算，余数为零表示能整除，也就判断了是否是倍数。

x mod 5=0 or x mod 7= 0

ddfdfd