UC知道VB 寻找大于0的数 然后加和，再显示。急急，在线等！
来源：百度知道 编辑：UC知道 时间：2024/06/30 04:09:35
VB 我有一组数如下，寻找大于0的数 然后加和，再显示。急急，在线等！
第一列是y轴 第2，3 列式是数
分别为A[] B[] C[]
我现在想实现这个
行数分别为i = 0 to Num
if B[i]>0 then 把>0的数都加和，然后在后面上 （和）%
0的地方不写 高手请帮帮吗？
我的qq 249967843
1185.170 0.000 0.000
1187.170 0.000 0.000
1189.170 0.742 5.027
1191.170 4.014 11.688
1193.170 0.958 5.711
1195.170 0.763 5.097
1197.170 0.330 3.353
1199.170 2.617 9.438
1201.170 0.348 3.441
1203.170 0.868 5.436
1205.170 3.243 10.50
1207.170 0.787 5.176
1209.170 0.587 4.471
1211.170 0.000 0.000
1213.170 0.000 0.000
1215.170 0.000 0.000
1217.170 0.000 0.000
1219.170 0.846 5.367
1221.170 1.060 6.006
1223.170 1.109 6.145
1225.170 4.151 1.887
1227.170 0.953 5.696
1229.170 0.330 3.354
1231.170 0.847 5.369
1233.170 4.563 12.462
1235.170 0.926 5.613
1237.170 0.729 4.980
1239.170 0.000 0.000
第一列是y轴 第2，3 列式是数
分别为A[] B[] C[]
我现在想实现这个
行数分别为i = 0 to Num
if B[i]>0 then 把>0的数都加和，然后在后面上 （和）%
0的地方不写 高手请帮帮吗？
我的qq 249967843
1185.170 0.000 0.000
1187.170 0.000 0.000
1189.170 0.742 5.027
1191.170 4.014 11.688
1193.170 0.958 5.711
1195.170 0.763 5.097
1197.170 0.330 3.353
1199.170 2.617 9.438
1201.170 0.348 3.441
1203.170 0.868 5.436
1205.170 3.243 10.50
1207.170 0.787 5.176
1209.170 0.587 4.471
1211.170 0.000 0.000
1213.170 0.000 0.000
1215.170 0.000 0.000
1217.170 0.000 0.000
1219.170 0.846 5.367
1221.170 1.060 6.006
1223.170 1.109 6.145
1225.170 4.151 1.887
1227.170 0.953 5.696
1229.170 0.330 3.354
1231.170 0.847 5.369
1233.170 4.563 12.462
1235.170 0.926 5.613
1237.170 0.729 4.980
1239.170 0.000 0.000
发给你了
Private Sub Form_Load()
Dim a(100), b(100), c(100), he(100)
Open "C:\Documents and Settings\Administrator\桌面\文件.txt" For Input As #1 '打开文件，用你自己的地址
i = 0
Do Until EOF(1) '循环读取
i = i + 1 '记录行数
Line Input #1, strLine '读取一行
str1 = Split(strLine, " ") ' 按空格分开
l = UBound(str1) '数组str1的长度3
a(i) = Val(str1(0)) '字符串转化为数字
b(i) = Val(str1(1))
c(i) = Val(str1(2))
Loop
Close #1
k = 0
h = -1
For j = 0 To i
If b(j) <> 0 Then
k = k + b(j)
Else
If k <> 0 Then
h = h + 1
he(h) = k
Print he(h)
k = 0
End If
End If
Next j
End Sub