Private Sub Image1_Click()n = n + 1 '分数。Image1.Visible = False '点中后隐藏 防止多次点击重复计分。End Sub
Private Sub Image1_Click() s = s + 10 Form1.Caption = "目前成绩:" & s Image1.Visible = FalseEnd Sub