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过程完成，粘贴提交修改后的程序代码。

  有人会么？？急急急急急急急急急急急急急急急！～