1、Private Function jxm As IntegerAs Boolean Dim x As Integer，y As Integer，z As Integer x = Intm \ 100z = m Mod 10y = Intm Mod 100\ 10If x yAnd y zThen...