Question

vb中从键盘上输入x的值,判断能否被5和7同时整除

Answer 1

 Sub Main()
        Console.WriteLine("请输入X的值")

        Dim x As Integer
        x = Console.ReadLine()

        If ((x Mod 7 = 0) And (x Mod 5 = 0)) Then
            Console.WriteLine("x能被5和7同时整除")
        Else
            Console.WriteLine("x不能被5和7同时整除")
        End If


    End Sub

结果：

Answer 2

Private Sub Command1_Click()
   Dim x As Long
   x = Val(InputBox("请输入x的值!"))
   If x Mod 5 = 0 And x Mod 7 = 0 Then
      MsgBox x & "能同时被5和7整除！"
   Else
      MsgBox x & "不能同时被5和7整除！"
   End If
End Sub