【正文】
9) If Val(lbl(k)) = 0 Then lbl(k) = i Else For j = 0 To 8 If Val(lbl(j)) = 0 Then lbl(j) = i Exit For End If Next j End If Next i End Sub Private Sub Mreplay_Click() Dim i% For i = 0 To 7 lbl(i) = Next Mnew_Click 浙江林學(xué)院信息工程學(xué)院課程 大作業(yè) 報告 5 End Sub 編寫好代碼后,執(zhí)行操作,結(jié)果如下: 窗口內(nèi)設(shè)有游戲、幫助兩個菜單項。 課程設(shè)計小游戲要求 要在對游戲的原理進行深入分析的基礎(chǔ)上,利用標(biāo)簽控件數(shù)組和鼠標(biāo)事件來設(shè)計該款游戲。 大作業(yè) 題目描述和要求 課程設(shè)計該小游戲的描述 游戲者 打開以設(shè)計好的該款 exe 格式的游戲,會彈出一個游戲界面。 課 程 大 作 業(yè) 報 告 課程名稱: vb 程序設(shè)計 ( 自學(xué) ) 課程編號: 0533006