您所在位置：主题：[讨论]这个问题我是越算越糊涂，只好请教了，多谢大家了
lisir2116
[专家分：0] 发布于 2010-08-25 22:21:00
要求：
大体意思是从1到10000这么多数中，如果有一个数是2，那么
读一个文件，从第1个字节到第10000个字节，查找其中数值是2的那个字节的位置，如果找到了，验证这个2这个数的位置加1，加2，一直加到100，是否为0或者是255，如果是就写出2个数的位置，如果不符合这个条件，就从1到10000这个数中继续找。我写的如下
Open nn For Binary As #1
For i = 1To 10000 Step 1
Get #1, i, x1
If x1 = 2 Then GoTo shi
shi: For r = 0 To 100
Get #1, i + r, x2
If x2 = 0 Or x2 = 255 Then Next r
Text5.Text = i
Else: Next i
大体意思是从1到10000这么多数中，如果有一个数是2，那么
读一个文件，从第1个字节到第10000个字节，查找其中数值是2的那个字节的位置，如果找到了，验证这个2这个数的位置加1，加2，一直加到100，是否为0或者是255，如果是就写出2个数的位置，如果不符合这个条件，就从1到10000这个数中继续找。我写的如下
Open nn For Binary As #1
For i = 1To 10000 Step 1
Get #1, i, x1
If x1 = 2 Then GoTo shi
shi: For r = 0 To 100
Get #1, i + r, x2
If x2 = 0 Or x2 = 255 Then Next r
Text5.Text = i
Else: Next i
