求助:VB中打地鼠点击中了加分的代码过程。要不你教教我怎么做也行。不是很明白●﹏●

2024-10-28 17:54:22
推荐回答(2个)
回答1:

Private Sub Image1_Click()
n = n + 1 '分数。
Image1.Visible = False '点中后隐藏 防止多次点击重复计分。
End Sub

回答2:

Private Sub Image1_Click()
s = s + 10
Form1.Caption = "目前成绩:" & s
Image1.Visible = False
End Sub