| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1396 人关注过本帖
标题:救苦救难的大神们小白求教啊
只看楼主 加入收藏
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
结帖率:100%
收藏
 问题点数:0 回复次数:3 
救苦救难的大神们小白求教啊
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编辑过]

搜索更多相关主题的帖子: Text1 
2016-08-03 10:33
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
如果仅仅不参与计算,ELSE 后面啥都不写。
你可以计数 参与计算的数据个数,在 求和 语句后面计数就可以了,没必要一定要写到 else后面里去。

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

授人于鱼,不如授人于渔
早已停用QQ了
2016-08-03 10:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
程序代码:
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-06 12:06
陌上过客
Rank: 2
等 级:论坛游民
威 望:4
帖 子:36
专家分:25
注 册:2015-12-27
收藏
得分:0 
不是很明白你的else有什么用

你成了我用尽一生去纪念的过客。。。。
2016-08-13 19:36
快速回复:救苦救难的大神们小白求教啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042131 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved