VB考试一题目？谁能帮解答下。

Function sum%(b%())
 Dim i%
 For i = LBound(b) To UBound(b)
  If b(i) < 0 Then
     sum = sum + b(i)
  End If
 Next i
End Function
Private Sub Form_Click()
 Dim a%(10), s%, i%
 For i = 1 To 10
     a(i) = Int(Rnd * 100) - 50
     Print a(i);
 Next i
 Print
     s = sum(a())
 Print "数组中的负元素之和为："; s
End Sub
怎么用SUB过程完成，粘贴提交修改后的程序代码。
修改程序，不需要参数或函数名传递数据，也能完成其功能。