اعدادی که بر 3 بخش پذیرند؟؟؟؟

[arash020]

سلام

ببین اینو می خواستی؟

Dim i As Integer

i = Val(Text1.Text) / 3

'MsgBox i * 3 '(Val(Text1.Text) - i)

If Val(Text1.Text) - (i * 3) = 0 Or Text1.Text = 1 Then

MsgBox "است"

ElseIf (Val(Text1.Text) - (Val(Text1.Text) / 3)) <> 0 Then

MsgBox ".نیست"

End If