那位高手可以帮忙翻译下下面的代码？是在不理解。。。是关于公交查询系统的。

[zxlcwj]

Label7.Visible = False
If bcbm = False Then
Label6.Caption = "正在搜索中..."
Form1.MousePointer = 11
Cbm.MousePointer = 11
Frame2.MousePointer = 11
Frame1.MousePointer = 11
Dim strs As String
Dim strm As String
Dim bfirst As Boolean
Dim bsec As Boolean
Dim mrc3 As ADODB.Recordset
Set mrc3 = New ADODB.Recordset
Set mrc3 = Adodc1.Recordset
Dim finishst() As String
Dim finnum As Integer
finnum = 0

mrc3.MoveFirst
MSF1(1).Clear
MSF1(2).Clear
Do While Not mrc3.EOF
For i = 1 To NC
strs = Text2(i).Text
Select Case strs
Case ""
Exit For
Case cbs.Text
With MSF1(1)
.Rows = .Rows + 1
For z = 1 To mrc3.Fields.Count
If mrc3.Fields(z - 1) <> "Null" Then
.TextMatrix(.Row, z - 1) = mrc3.Fields(z - 1)
End If
Next
.Row = .Row + 1
End With
Case Cbe.Text
With MSF1(2)
.Rows = .Rows + 1
For j = 1 To mrc3.Fields.Count
If mrc3.Fields(j - 1) <> "Null" Then
.TextMatrix(.Row, j - 1) = mrc3.Fields(j - 1)
End If
Next
.Row = .Row + 1
End With
End Select
Next
mrc3.MoveNext
Loop

For k = 0 To MSF1(1).Rows - 1
For t = 0 To mrc3.Fields.Count - 1
strs = MSF1(1).TextMatrix(k, t)
If strs = "" Then
Exit For
End If
If finnum = 0 Then
ReDim finishst(finnum)
finishst(0) = strs
Else
For c = 0 To finnum
If strs = finishst(c) Then
Exit For
End If
Next
If c > finnum Then
ReDim Preserve finishst(finnum)
finishst(finnum) = strs
finnum = finnum + 1
Else
Exit For
End If
End If
For m = 0 To MSF1(2).Rows - 1
bfirst = False
bsec = False
For n = 0 To mrc3.Fields.Count - 1
strm = MSF1(2).TextMatrix(m, n)
If strm = "" Then
Exit For
End If
If strm = strs Then
bfirst = True
End If
If strm = Cbe.Text Then
bsec = True
End If
If bfirst And bsec Then
Exit For
End If
Next
If bfirst And bsec Then
For w = 0 To Cbm.ListCount
If Cbm.List(w) = Trim(strs) Then
Exit For
End If
Next
If w > Cbm.ListCount Then
Cbm.AddItem Trim(strs)
End If
Exit For
End If
Next
Next
Next
Set mrc3 = Nothing
MSF1(1).Clear
MSF1(2).Clear
Form1.MousePointer = 0
Cbm.MousePointer = 0
Frame2.MousePointer = 0
Frame1.MousePointer = 0
Label6.Caption = ""
bcbm = True
End If
End Sub

[zxlcwj]

嘿嘿，不好意思。我不太懂bfirst和bsec指代什么？还有finishst和finnum的意思？麻烦了，大概就是这块内容不懂

[xzzy75]

不理解哪里？总不是全部不理解吧？

[hbkjccl]

bfirst和bsec就是判断两内容是否相同的标记 没啥意思啊

finishst就是个数组 放东西的地方 也没啥意思啊

finnum 更没啥意思了