救苦救难的大神们小白求教啊

sclx88 发布于 2016-08-03 10:33， 1543 次点击

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编辑过]

3 回复

风吹过b2016-08-03 10:45

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

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

ZHRXJR2016-08-06 12:06

程序代码：

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

陌上过客2016-08-13 19:36

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