汽車零部件查詢系統(tǒng)設(shè)計(jì)-wenkub.com
2025-06-27 07:09 本頁面
【正文】 我在以后的學(xué)習(xí)和生活中一定再接再厲，繼續(xù)發(fā)揚(yáng)艱苦奮斗的優(yōu)良作風(fēng)，努力學(xué)習(xí)，刻苦鉆研，積極工作。所以今后我的學(xué)習(xí)道路還是很漫長(zhǎng)的。 (5).List(i)End IfEnd IfNext iEnd Sub（11） Form11：Dim cars As qicheDim a(5)Private Sub Form_Load()Open + \ For Random As 2Do While Not EOF(2)i = i + 1Get 2, i, carsList1(0).AddItem List1(1).AddItem List1(2).AddItem List1(3).AddItem List1(4).AddItem List1(5).AddItem LoopCloseEnd SubPrivate Sub List1_Click(Index As Integer)Select Case Index Case 0List1(5).ListIndex = List1(0).ListIndexList1(4).ListIndex = List1(0).ListIndexList1(3).ListIndex = List1(0).ListIndexList1(2).ListIndex = List1(0).ListIndexList1(1).ListIndex = List1(0).ListIndexCase 1List1(5).ListIndex = List1(1).ListIndexList1(4).ListIndex = List1(1).ListIndexList1(3).ListIndex = List1(1).ListIndexList1(2).ListIndex = List1(1).ListIndexList1(0).ListIndex = List1(1).ListIndexCase 2List1(5).ListIndex = List1(2).ListIndexList1(4).ListIndex = List1(2).ListIndexList1(3).ListIndex = List1(2).ListIndexList1(0).ListIndex = List1(2).ListIndexList1(1).ListIndex = List1(2).ListIndexCase 3List1(5).ListIndex = List1(3).ListIndexList1(4).ListIndex = List1(3).ListIndexList1(0).ListIndex = List1(3).ListIndexList1(2).ListIndex = List1(3).ListIndexList1(1).ListIndex = List1(3).ListIndexCase 4List1(5).ListIndex = List1(4).ListIndexList1(0).ListIndex = List1(4).ListIndexList1(3).ListIndex = List1(4).ListIndexList1(2).ListIndex = List1(4).ListIndexList1(1).ListIndex = List1(4).ListIndexCase 5List1(0).ListIndex = List1(5).ListIndexList1(4).ListIndex = List1(5).ListIndexList1(3).ListIndex = List1(5).ListIndexList1(2).ListIndex = List1(5).ListIndexList1(1).ListIndex = List1(5).ListIndexEnd SelectEnd Sub(12) Form12:Dim cars As qicheDim a(5)Private Sub Command1_Click()If List1(0).Text = ThenMsgBox 請(qǐng)選擇要修改的零件Else = List1(0).Text = List1(1).Text = List1(2).Text = List1(3).Text = List1(4).Text = List1(5).TextList1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(5).ListIndexEnd IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()List1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(5).ListIndexEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Open + \ For Random As 2Do While Not EOF(2)i = i + 1Get 2, i, carsList1(0).AddItem List1(1).AddItem List1(2).AddItem List1(3).AddItem List1(4).AddItem List1(5).AddItem LoopCloseEnd SubPrivat
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1