|
[PHP]Dim random As Integer
Dim Rock, Paper, Scissor, P1, P2 As Integer
Rock = 1
Paper = 2
Scissor = 3
Randomize()
random = Int(3 * Rnd())
Select Case Rock
Case 1
Select Case P2
Case 1
lstbox.Items.Add("Rock" & Rock)
Case 2
lstbox.Items.Add("Paper" & Paper)
Case 3
lstbox.Items.Add("Scissor" & Scissor)
Select Case Paper
Case 2
Select Case P2
Case 1
lstbox.Items.Add("Rock" & Rock)
Case 2
lstbox.Items.Add("Paper" & Paper)
Case 3
lstbox.Items.Add("Scissor" & Scissor)
Select Case P1
Case 3
Select Case Scissor
Case 1
lstbox.Items.Add("Rock" & Rock)
Case 2
lstbox.Items.Add("Paper" & Paper)
Case 3
lstbox.Items.Add("Scissor" & Scissor)
End Select
End Select
End Select
End Select
End Select
End Select
End Sub
End Class[/PHP]
|