【正文】
= 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 Then MsgBox 你贏(yíng)了 !, 48, 排排看 End If End Sub Private Sub Mabout_Click() MsgBox 程序設(shè)計(jì) : amp。 。 2020 年 6 月 , 48, 排排看 End Sub Private Sub Mexit_Click() Dim x% x = MsgBox(結(jié)束游戲嗎? , vbYesNo + 48, 排排看 ) If x = vbYes Then Unload GameForm End Sub Private Sub Mnew_Click() Dim i%, j%, k% Randomize Timer For i = 0 To 8