一些VB题目,求大神解答

2025-02-24 15:32:56
推荐回答(2个)
回答1:

1题:

private sub f2(a() as single , max as single, min as single)
    max = a(lbound(a))
    min = a(lbound(a))
    for i = lbound(a)+1 to ubound(a)
        if a(i)> max then max = a(i)
        if a(i) < min then min =a(i)
    next i
end sub

回答2:

bu zhidao