Open "E:\gc1\aoe.txt" For Output As #1
For j = 0 To 5
For i = 0 To 48
If CInt(Text1(j)) = CInt(d(i)) Then
e(i) = 1 / (g(i) + 49)
Else
f = (b + 1) / (g(i) + 49)
e(i) = f
If CInt(f) > 1 Then
g(i) = g(i) + 1
End If
End If
Print #1, e(i)
Next i
Next j
Close #1
文本 Text1(0 to 5)是变量d(0 to 48)里面的数字
为什么循环时只有J=0的时候会执行e(i) = 1 / (g(i) + 49)
按道理e(i) = 1 / (g(i) + 49) 应该执行6次才对啊

没有数据不知道……你自己F8单步运行看看……