NEED HELP WITH ROCK PAPER SCISSORS GAME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

• • Reply

  12 years ago

  by sudin

  pawan Kumar Bhattarai

  , New Caledonia

  Joined 13 years ago
  123
  
  Report abuse
• • Reply

  12 years ago

  by Jugatsu

  Jugatsu

  , United Kingdom

  Joined 15 years ago

  The error is because you are passing an integer to the command button

  Private Sub cmdPaper_Click(Index As Integer)

  change to

  Private Sub cmdPaper_Click()

  Second problem:

  You are declaring Dim Wins As Integer in each of the subs

  Therefore blanking the vakue each time.

   To stop this declare them outside the sub

   Option Explicit
  Dim Wins As Integer
  Dim Ties As Integer
  Dim Losses As Integer
  

  And remove the  

  Dim Wins As Integer
  Dim Ties As Integer
  Dim Losses As Integer

  from each of the subs.

   

  Report abuse