Question

我想用VB做一个弹球游戏，但是为什么我的计分器不会一直加分？

这是我的代码：Dim dx%, dy%, scores%Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 97 ThenImage2.Left = Image2.Left - 300ElseIf KeyAscii = 100 ThenImage2.Left = Image2.Left + 300Else: KeyAscii = 0End IfEnd SubPrivate Sub Form_Load()Timer1.Interval = 100Timer1.Enabled = FalseTimer2.Enabled = TrueTimer2.Interval = 100dx = 100dy = -100score = 0End SubPrivate Sub Timer1_Timer()Select Case Image1.LeftCase Is <= 0dx = -dxCase Is >= 10322dx = -dxEnd SelectSelect Case Image1.TopCase Is <= 0dy = -dyEnd SelectIf Image1.Left >= Image2.Left _And Image1.Left <= Image2.Left + Image2.Width _And Image1.Top + Image1.Height >= Image2.Top _And Image1.Top + Image1.Height <= Image2.Top + Image2.Height Thendy = -dyscores = socres + 1End IfImage1.Left = Image1.Left + dxImage1.Top = Image1.Top + dyEnd SubPrivate Sub Timer2_Timer()Label1.Caption = "你接住了" + Str(scores) + "个球"End Sub





Answer 1

看你代码 你已经将scores 定义为全局变量 但是你给scores赋值 是不是有条件的 如果没有满足条件 没有执行到 scores = socres + 1 这句代码 自然不会加分 你应该逐个排除你if 条件语句 比如你是用多个条件  你可以先注释掉多个条件的其中一个 或者 多个 逐步排除法 看哪个条件不满足 从而调整你的代码

Answer 2

你说的游戏资源指的是什么？这两款游戏是腾讯比较火热的游戏。游戏时需登录QQ号或者微信号。同一个人的QQ号和微信号数据不相通，各自独立。再者，这是两款不一样的游戏，所以数据上完全不会相通。你说的游戏资源指的是什么？这两款游戏是腾讯比较火热的游戏。游戏时需登录QQ号或者微信号。同一个人的QQ号和微信号数据不相通，各自独立。再者，这是两款不一样的游戏，所以数据上完全不会相通。

Answer 3

众子啊，要听父亲的教训，留心得知聪明。因我所给你们的是好教训；不可离弃我的法则（或译：指教）。我在父亲面前为孝子，在母亲眼中为独一的娇儿。父亲教训我说：你心要存记我的言语，遵守我的命令，便得存活。 (箴言 4:1-4 和合本)

Answer 4

除夕快乐！希望你们在新的一年里~越过越精彩。我之前也是无缘无故的删过一个人，不过不是他的原因，是我当时和他聊天被我妈说了几句，我就把他删了