Question

VB上石头剪刀布游戏的程序代码要全哦

Answer 1

Private Sub Command1_Click()
Randomize
x = "●×□"
a = Mid(x, Int(Rnd() * 3 + 1), 1)
b = Mid(x, Int(Rnd() * 3 + 1), 1)
If a = "●" And b = "×" Then c = "A胜"
If a = "●" And b = "□" Then c = "B胜"
If a = "×" And b = "□" Then c = "A胜"
If a = "×" And b = "●" Then c = "B胜"
If a = "□" And b = "●" Then c = "A胜"
If a = "□" And b = "×" Then c = "B胜"
If a = b Then c = "平局"
Print a, b, c
End Sub

Answer 2

http://zhidao.baidu.com/question/290899570.html
http://zhidao.baidu.com/question/81851468.html