Question

vb输入1个整数 判断能否被3和7整除，若能输出A 不能输出B

我需要正确的代码。

Answer 1

pravite sub command1_Click()
dim n%
n=inputbox("请输入一个整数","输入整数")
if n mod 3=0 and n mod 7=0 then
print "A"
else
print "B"
end if
end sub

Answer 2

'添加一个按钮
Dim T
Private Sub Command1_Click()
T = InputBox("请输入一个整数")
If Not IsNumeric(T) Then
MsgBox "不是整数"
Exit Sub
End If
If Int(T) <> Val(T) Then
MsgBox "不是整数"
Exit Sub
End If
If (T Mod 3) = 0 And (T Mod 7) = 0 Then
Print "A"
Else
Print "B"
End If
End Sub

Answer 3

MSGBOX IIF((Parameter1 mod 7) + ((Parameter1 mod 3)>0,"B","A")