VB 求出45 . 21 . -4 . -7 . 5 . -77 . 64 . 32 . 89 . -85 . 53数据中的正数之和......请问要怎么编呢?

来源：百度知道 编辑：UC知道 时间：2024/05/27 10:43:48
.我很菜菜的..请大家帮帮我写个我参考,学习.谢谢拉.

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim a
a = Array(45, 21, -4, -7, 5, -77, 64, 32, 89, -85, 53)
For i = 0 To 10
If a(i) > 0 Then
j = j + a(i)
End If
Next i
Print j
End Sub

然后单击窗体就好