Question

编写VB程序,输入一个数,能否被2,3,5整除

编写VB程序,输入一个数,能否被2,3,5整除

Answer 1

Option Explicit

Private Sub Command1_Click()
    Dim inputStr As String
    Dim inputValue As Double
    
    inputStr = InputBox("请输入一个数", "等待输入")
    If Len(inputStr) = 0 Then Exit Sub
    
    inputValue = Val(inputStr)
    If inputValue Mod 2 = 0 And inputValue Mod 3 = 0 And inputValue Mod 5 = 0 Then
        MsgBox "输入的数为：" & CStr(inputValue) & "，可以被2、3、5整除", vbInformation
    Else
        MsgBox "输入的数为：" & CStr(inputValue) & "，不可以被2、3、5整除", vbInformation
    End If
End Sub

Answer 2

'需求不够严谨，以下请参考
Sub test()
    Dim a As Integer
    a = Int(InputBox("输入一个整数", "输入"))
    If a Mod 2 = 0 Then
        MsgBox ("能被2整除")
    End If
    If a Mod 3 = 0 Then
        MsgBox ("能被3整除")
    End If
    If a Mod 5 = 0 Then
        MsgBox ("能被5整除")
    End If
    
End Sub