VBA代码判断两数各除10余数相等,或一数加5除10余数相等

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/14 10:10:41

VBA代码判断两数各除10余数相等,或一数加5除10余数相等
如两数分别是：9和24,各除10余数是9和4不相等,
或一数加5除10余数相等,9加5等14,14和24各除10余数是4和4相等
如下是函数判断,现要求编写VBA代码.
=IF(OR(MOD(A1,10)=MOD(B1,10),MOD(A1+5,10)=MOD(B1,10)),"真","假")

写了两个方法,第一个方法取巧了
Public Sub 痒痒养羊1()
Cells(1,3) = "=IF(OR(MOD(A1,10)=MOD(B1,10),MOD(A1+5,10)=MOD(B1,10))," & Chr(34) & "真" & Chr(34) & "," & Chr(34) & "假" & Chr(34) & ")"
End Sub
Public Sub 痒痒养羊2()
If (Cells(1,1) Mod 10) = (Cells(1,2) Mod 10) Or ((Cells(1,1) + 5) Mod 10) = (Cells(1,2) Mod 10) Then
Cells(1,3) = "真"
Else
Cells(1,3) = "假"
End If
End Su

69,90,与125被自然数除时,余数相等,试求81被这个自然数除的余数是多少 10的100次方被7除的余数是多少. 求10的100次方被7除的余数. 一个自然数被10除余4,这个自然数的3倍再被10除余数是在大于2009的自然数中，被57除后，商和余数相等的数共有______个．在大于2012的自然数中,被57除后,商与余数相等数共有( )个. 在大于1000的整数中,找出所有被35除后商和余数相等的数在大于2009的自然数中,被57除后商与余数相等的数共有几个在大于2003的自然数中,被66除所得的商与余数相等的自然数共有多少个 1、在大于2009的自然数中,被56除后,商与余数相等的数共有多少个? 在大于2012的自然数中,被53除后商与余数相等的数共有个. 有一些自然数,他们被6除余5,被7除余4,被10除余1,则这些自然数除以210的余数是