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