作者rosemary (原po比较老)
看板Visual_Basic
标题Re: [VB6 ] 回圈计次的问题...
时间Tue Oct 4 00:57:23 2005
※ 引述《KentII (go let it out...)》之铭言：
: Input #2, word(i)
改成Line Input #2, word(i)
: For i = 1 To arrlen - 1
: A = 0
: B = 0
多写一个变数 flag=0
: For j = 1 To arrlen - 1
: If word(i) = word(j) And docid(i) = docid(j) Then
: A = A + 1
: End If
: If word(i) = word(j) And docid(i) <> docid(j) Then--->"错了"
: B = B + 1
: End If
建议以上三行改为
If word(i) = word(j) And docid(j) <> flag Then
b = b + 1
flag = docid(j)
End If
: Next j
: Print #F, word(i), A, B
: Next i
: Close #F
: -----------------------------------------------------------------
: 结果A值可以算出来，但是B值就会出错（我知道逻辑哪里错了）
确实是逻辑错了，原本的做法会少算到同一个档案出现的那一次
而不同档案出现两次，Ｂ值会重复计算
好久没有用vb6.... 这样应该就可以了
--
原po是歪欧巴桑。三十几岁的老人家
http://www.wretch.cc/user/rosemary945
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.223.194.131