老师帮忙看看这个

[okok588]

s=一个3为数的数，如：569
那么现在要求出：
a=？个位上的数
b=? 十位上的数
c=? 百位上的数
d=? 三个数的最大数
e=? 三个数的最小数
f=? 三个数当中有几个奇数（1，3，5，7，9）为奇数，如s=569,那么f=2,因为569中有两个奇数，如550，也一样f=2
g=？三个数中有几个大数（5，6，7，8，9）为大数，如s=569，那么g=3,因为569中3三个数全都是大数，如099那么g=2
f=?和g=？最好用
Case 1, 3, 5, 7, 9
f=?
Case 5, 6, 7, 8, 9
g=?
谢谢

[jhone99]

一大堆就20分？

[okok588]

分数的我也没看，电脑直接显示的是20分，这样吧，再加一块糖，这样行了吧

[Tiger_Zhao]

分是少了点

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

[Smallvbbird]

老鸟好厉害啊