因为For循环内的if没有end if
改为：
For i = 1 To 100
If isnarc(a(i)) = True Then
sum = sum + a(i)
end if
Next i
或
For i = 1 To 100
If isnarc(a(i)) = True Then sum = sum + a(i)
Next i
楼上正解 就是没有ENDIF
Private Sub Command2_Click()
Dim sum As Long
Dim A(100) As Integer
For i = 1 To 100
If IsNumeric(A(i)) = True Then sum = sum + A(i)
Next i
Text1.Text = sum \ 100
End Sub
isnarc这个写错了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024