7,762
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Sub Main()
Dim s As Long, a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, g As Long
s = 569
a = s Mod 10
b = (s \ 10) Mod 10
c = (s \ 100) Mod 10
d = IIf(a >= b, IIf(a >= c, a, c), IIf(b >= c, b, c))
e = IIf(a <= b, IIf(a <= c, a, c), IIf(b <= c, b, c))
f = (a Mod 2) + (b Mod 2) + (c Mod 2)
g = IIf(a >= 5, 1, 0) + IIf(b >= 5, 1, 0) + IIf(c >= 5, 1, 0)
Debug.Print a, b, c, d, e, f, g
End Sub