汽车零部件查询系统设计说明书(17)

VB的课程设计题

Form12.List1(5).List(i)

End If End If

If Text1 <> "" And Text2 <> "" Then If

Trim(Form12.List1(0).List(i))

=

Trim(Text1)

And

Trim(Form12.List1(1).List(i)) = Trim(Text2) Then

List1.AddItem

Form12.List1(0).List(i)

&

Form12.List1(1).List(i)

&

Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)

End If End If Next i End Sub

（5）主界面三如图8所示

图8 主界面 主要代码如下:

Dim cars As qiche ‘通用代码 Dim a(5)

（1）修改零件代码如下：

Private Sub Command1_Click()