摘要:
Sub 方法1() m = 14 n = 6 If m < n Then t = m: m = n: n = t '使得m>n r = m Mod n Do While (r <> 0) m = n n = r r = m Mod n Loop Debug.Print "最大约数为" & nEnd 阅读全文
摘要:
Function 对象是否打开(查询名 As String, Optional 对象类型 As Integer) 对象是否打开 = (SysCmd(acSysCmdGetObjectState, 对象类型, 查询名) <> 0) End Function'SysCmd方法:acSysCmdGetOb 阅读全文