Private Sub Command1_Click()
Dim i As Integer
Dim a As Double
For i = 0 To Text1.UBound
If Val(Text1(i)) <> 0 Then
a = a + Val(Text1(i).Text)
Else

End Sub

等等  我研究一下

[此贴子已经被作者于2016-8-3 10:43编辑过]

如果仅仅不参与计算，ELSE 后面啥都不写。
你可以计数 参与计算的数据个数，在 求和 语句后面计数就可以了，没必要一定要写到 else后面里去。

如果计数不参与计算的个数，那么 定义一个变量，在 else后面 ，每次 都 +1。

Private Sub Command1_Click()
Dim i As Integer
Dim a As Double
For i = 0 To Text1.UBound
If Val(Text1(i).Text) <> 0 Then   '养成书写控件属性的习惯
a = a + Val(Text1(i).Text)
End If   'IF 语句必须有结束语句
Next i   '循环必须有出口
End Sub

不是很明白你的else有什么用