Private Sub Form_Load()
Dim B As String, I As Integer, J As Integer, X As Integer, K(100) As Boolean
Dim B1 As String, Uz() As Integer
Form1.AutoRedraw = True
For I = 0 To 100
K(I) = False
Next
Open "f:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, B
Print...
看了一下,你可以定义一个数组,X(100)打开文件和读数先不表了,到处都是代码一行行取数吧,linestr 行dim a() as string set a = splite (linestr,",")for i = 0 to ubound(a)x(a(i))=1next这样你只要if x(i) =...