vb 中输入一个数字,如果是5的倍数但不是7的倍数,输出yes,否则输出no 的...
发布网友
发布时间：2024-10-23 22:26
共2个回答
热心网友
时间：2024-11-05 18:33
x = Val(InputBox("请输入一个数字"))
MsgBox IIf(x Mod 5 = 0 And x Mod 7 <> 0, "Yes", "No")
热心网友
时间：2024-11-05 18:35
Dim s As String
Dim i As Long
s = InputBox("请输入一个大于0的整数")
i = Int(Val(s))
If i Mod 5 = 0 And i Mod 7 <> 0 Then
MsgBox "Yes"
Else
MsgBox "No"
End If
