一些VB题目，求大神解答

编写sub过程f2,可返回一维single数组各元素中的最大值和最小值
编写事件过程command-click，计算text1.text中所有字符的ascll码之和并表示

---

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

---

bu zhidao

---