【正文】
個(gè)小游戲,加深對(duì) VB 的相關(guān)了解,熟練掌握其操作過(guò)程。 通過(guò) 單擊鼠標(biāo)來(lái)移動(dòng)數(shù)字, 直到 數(shù)字按首行1,2,3,次行4,5,6,第三行排列 7,8時(shí),游戲者勝利 。共有控件如下: 控件名稱 Form Label Shape 數(shù)量 1 11 1 設(shè)計(jì)界面如下圖所示: 浙江林學(xué)院信息工程學(xué)院課程 大作業(yè) 報(bào)告 2 設(shè)計(jì)好界面后,打開(kāi)“代碼”窗口,編寫(xiě)如下代碼: Private Sub Form_Load() End Sub Private Sub lbl_DragDrop(Index As Integer, Source As Control, x As Single, Y As Single) If (Abs( Index) = 1 Or Abs( Index) = 3) And lbl(Index) = Then term = = lbl(Index).Caption 浙江林學(xué)院信息工程學(xué)院課程 大作業(yè) 報(bào)告 3 lbl(Index) = term flag = True For i = 0 To 7 If Val(lbl(i)) i + 1 Then flag = False Next If flag