vb语言.docx

1、vb语言5 程序代码（1）Form1:Private Sub Form_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Form2.ShowUnload MeEnd SubPrivate Sub Image1_Click()End Sub（2）Form2:Do While Not EOF(1)Get #1, , persIf Trim(Text2.Text) = Trim(pers.bh) Thenf = TrueForm3.ShowUnload Form2Exit DoEnd IfL

2、oopCloseIf f = False Thent = t + 1If t 3 ThenMsgBox 用户不存在,请重新输入！, vbOKOnly + vbInformation, 用户名错误ElseMsgBox 重试次数已到，即将退出本系统!, vbOKOnly + vbExclamation, 用户名错误EndExit SubEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（3）Form3:Dim cars As qicheDim a(5)Private Sub bz_Click()Form9.ShowEnd

3、SubPrivate Sub Command1_Click()For i = 0 To 4If Combo1(i).Text = ThenFor j = 0 To Form12.List1(i).ListCount - 1List3(i).AddItem Form12.List1(i).List(j)Next jElset = iCall hunt(t)End IfNext iIf Text1 And Text2 ThenCall hunt2ElseIf Text1 = And Text2 Then Text1 = 0: Call hunt2ElseIf Text1 And Text2 = T

4、hen Text2 = 10 10: Call hunt2ElseFor j = 0 To Form12.List1(5).ListCount - 1List3(5).AddItem Form12.List1(5).List(j)Next jEnd IfFor k = 0 To 5 m = List3(k).ListCount For j = 0 To m If List3(k).List(j) Then a(k) = a(k) + 1 End If Next jNext kMax = a(0)For i = 1 To 5If a(i) Max ThenMax = a(i)End IfNext

5、 iFor k = 0 To Val(Max)If List3(0).List(k) And List3(1).List(k) And List3(2).List(k) And List3(3).List(k) And List3(4).List(k) And List3(5).List(k) ThenList2.AddItem List3(0).List(k) & List3(1).List(k) & List3(2).List(k) & List3(3).List(k) & List3(4).List(k) & List3(5).List(k)End IfNext kFrame1.Visi

6、ble = FalseList2.Visible = TrueEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseEnd SubPrivate Sub Form_Load() Frame1.Visible = FalseList2.Visible = FalseEnd SubPrivate Sub glsj_Click()Form4.ShowEnd SubPrivate Sub bk_Click()Form10.ShowForm10.Frame1.Visible = TrueEnd SubPrivate Sub kp_Click()

7、Form10.ShowForm10.Frame2.Visible = TrueEnd SubPrivate Sub ljgl_Click()Form12.ShowEnd SubPrivate Sub ss_Click() List2.Visible = TrueFrame1.Visible = True List2.Visible = Not List2.VisibleList2.ClearEnd SubSub hunt(t)For i = 0 To Form12.List1(t).ListCount - 1If Trim(Combo1(t).Text) = Trim(Form12.List1

8、(t).List(i) ThenList3(t).AddItem Form12.List1(t).List(i), iElseList3(t).AddItem , iEnd IfNext iEnd SubSub hunt2()For i = 0 To List1(5).ListCount - 1If Val(Text1) Val(List1(5).List(i) ThenList3(5).AddItem List1(5).List(i), iElseList3(5).AddItem , iEnd IfNext iEnd SubPrivate Sub tc_Click()EndEnd Sub（4

9、）Form4：Dim pers As managerPrivate Sub Command1_Click()Form5.ShowEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexList2.RemoveItem List2.ListIndexList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexCall saveEnd SubPrivate Sub Command3_Click()If List1.Text = ThenMsgBox 请选

10、择修改对象ElseForm6.ShowForm6.Text1 = List1.TextForm6.Text2 = List3.TextForm6.Combo1.Text = List2.TextList1.RemoveItem List1.ListIndexList2.RemoveItem List2.ListIndexList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexEnd IfEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate

11、Sub Form_Load()i = 0Open App.Path + mag.dat For Random As #1Do While Not EOF(1)i = i + 1Get #1, i, persList1.AddItem pers.bh, i - 1List2.AddItem pers.xb, i - 1List3.AddItem pers.xm, i - 1List4.AddItem pers.mm, i - 1LoopCloseEnd SubPrivate Sub List1_Click()List2.ListIndex = List1.ListIndexList3.ListI

12、ndex = List1.ListIndexList4.ListIndex = List1.ListIndexEnd SubPrivate Sub List2_Click()List1.ListIndex = List2.ListIndexList3.ListIndex = List2.ListIndexList4.ListIndex = List2.ListIndexEnd SubPrivate Sub List3_Click()List1.ListIndex = List3.ListIndexList2.ListIndex = List3.ListIndexList4.ListIndex

13、= List3.ListIndexEnd SubPrivate Sub List4_Click()List1.ListIndex = List4.ListIndexList2.ListIndex = List4.ListIndexList3.ListIndex = List4.ListIndexEnd Sub（5）Form5：Dim pers As managerPrivate Sub Command1_Click()If Text1 = Or Text2 = Or Text3 = Or Combo1.Text = ThenMsgBox 请输入完整的信息Text1.SetFocusExit S

14、ubEnd IfIf Text1 And Text2 And Text3 And Combo1.Text ThenForm4.List1.AddItem Text1Form4.List2.AddItem Combo1.TextForm4.List3.AddItem Text2Form4.List4.AddItem Text3Call saveEnd IfForm4.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form4.ShowUnload MeEnd SubPrivate Sub Form_Load()Text3 = End Sub（6）F

15、orm6：Private Sub Command1_Click()Form4.List1.AddItem Text1, 0Form4.List2.AddItem Combo1.Text, 0Form4.List3.AddItem Text2, 0Form4.List4.AddItem Text4, 0Call saveForm3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(7)Form7:Private Sub Command1_Click()Form12.List1(0).AddItem Text1, 0Form12.List1(1)

16、.AddItem Text2, 0Form12.List1(2).AddItem Text3, 0Form12.List1(3).AddItem Text4, 0Form12.List1(4).AddItem Text5, 0Form12.List1(5).AddItem Text6, 0Form3.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form3.List1(0).AddItem Text1, 0Form3.List1(1).AddItem Text2, 0Form3.List1(2).AddItem Text3, 0Form3.Li

17、st1(3).AddItem Text4, 0Form3.List1(4).AddItem Text5, 0Form3.List1(5).AddItem Text6, 0Call save2Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(8)Form8:Private Sub Command1_Click()If Combo1(0).Text And Combo1(1).Text And Combo1(2).Text And Combo1(3).Text And Combo1(4).Text And Text1 ThenForm

18、12.List1(0).AddItem Combo1(0).TextForm12.List1(1).AddItem Combo1(1).TextForm12.List1(2).AddItem Combo1(2).TextForm12.List1(3).AddItem Combo1(3).TextForm12.List1(4).AddItem Combo1(4).TextForm12.List1(5).AddItem Text1Form3.ShowUnload MeElseMsgBox 请写入完整的信息！End IfEnd SubPrivate Sub Command2_Click()Form3

19、.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(9)Form9:Private Sub Text2_Change()End SubPrivate Sub Text1_Change()End SubPrivate Sub Timer1_Timer()Text2 = TimeEnd Sub(10)Form10:Dim qPrivate Sub Command1_Click()Static q As IntegerIf q = -1 Then q = List2.ListCount - 1p = Val(List2.List(q)Call xi

20、shi(p)q = q - 1End SubPrivate Sub Command2_Click()Static q As IntegerIf q List2.ListCount - 1 Then q = 0p = Val(List2.List(q)Call xishi(p)q = q + 1Command1.Enabled = TrueEnd SubPrivate Sub Command3_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command4_Click()p = Val(List2.List(0)Call xishi(p)End Sub

21、Private Sub Command5_Click()p = Val(List2.List(List2.ListCount - 1)Call xishi(p)End SubPrivate Sub Form_Load()End SubPrivate Sub Text3_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text3 And Text4 = ThenIf Trim(Text3) = Trim(Form12.List1(0).List(i) ThenList2.AddItem iEnd IfEnd IfIf

22、 Text3 And Text4 ThenIf Trim(Form12.List1(0).List(i) = Trim(Text3) And Trim(Form12.List1(1).List(i) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call xishi(p)ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End

23、 IfIf List2.ListCount 1 Then Command2.Enabled = TrueEnd SubPrivate Sub Text4_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text4 And Text3 = ThenIf Trim(Text4) = Trim(Form12.List1(1).List(i) ThenList2.AddItem iEnd IfEnd IfIf Text3 And Text4 ThenIf Trim(Form12.List1(0).List(i) = Tri

24、m(Text3) And Trim(Form12.List1(1).List(i) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call xishi(p)ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End IfIf List2.ListCount 1 Then Command2.Enabled = TrueEnd Su

25、bPrivate Sub Text1_Change()List1.ClearList1.AddItem 配件 & & & 零件型号 & & & 适用车型 & & & & & 发布日期 & & & & 单位 & & & & & & 价格For i = 0 To Form12.List1(0).ListCount - 1If Text1 And Text2 = ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) &

26、Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfIf Text1 And Text2 ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1) And Trim(Form12.List1(1).List(i) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & F

27、orm12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfNext iEnd SubPrivate Sub Text2_Change()List1.ClearList1.AddItem 配件 & & & 零件型号 & & & 适用车型 & & & & & 发布日期 & & & & 单位 & & & & & & 价格For i = 0 To Form12.List1(0).ListCount - 1If Text1 = And Te

28、xt2 ThenIf Trim(Form12.List1(1).List(i) = Trim(Text2) ThenList1.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 IfEnd IfIf Text1 And Text2 ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1) And Trim(Form12.List1(1).List(i) = Trim(Text2) ThenList1.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 IfEnd IfNext iEnd Sub（11）Form11：Dim cars