我使用 vb 代码制作了一个简单的游戏,幸运 7 在 Visual Basic 上。分数计数器无法正常工作,例如,如果我赢了一次游戏(在 3 个插槽之一中获得 7),我得到 10 分,分数标签变为 10。如果我继续按下旋转按钮并获胜同样,分数标签仍然停留在数字 10 上,并没有更改为 20。
这是我编写的旋转按钮的代码:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim rand = New Random
Dim slots = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim score = 0
For i = 0 To 2
slots(i) = rand.Next(10)
Next
Label1.Text = (slots(0).ToString)
Label2.Text = (slots(1).ToString)
Label3.Text = (slots(2).ToString)
If slots(0) = 7 Or slots(1) = 7 Or slots(2) = 7 Then
score = score + 10
Label4.Text = (score.ToString)
PictureBox1.Visible = True
Else
PictureBox1.Visible = False
End If
End Sub
我是否需要添加一个while循环或类似的东西来使分数随着我赢得比赛而改变多次?