VB小游戲石頭剪刀布設(shè)置代碼？沒有圖片，用文字代替！很簡單。創(chuàng)建三個命令按鈕來復(fù)制代碼“1 stone”2 scissors“3 cloth private sub form_uuLoad（）comm

VB小游戲石頭剪刀布設(shè)置代碼？

沒有圖片，用文字代替！很簡單。創(chuàng)建三個命令按鈕來復(fù)制代碼“1 stone”2 scissors“3 cloth private sub form_uuLoad（）command1。Caption=“stone”“更改每個按鈕命令的名稱2。Caption=“剪刀”命令3。Caption=“cloth”End Sub Private Sub command1 Click（）“stone dim CPU as Integer dim a as string CPU=int（RND*3）1”RND生成大于0小于1的隨機數(shù)。這是1-3的隨機數(shù)。如果CPU=1，則a=“石頭，畫”如果CPU=2，則a=“剪刀，玩家贏”如果CPU=3，則a=“布，計算機贏”msgbox“石頭，計算機出”&a End Sub Private Sub命令2uClick（）“剪刀，將CPU變暗為整數(shù)，將a變暗為字符串CPU=int（RND*3）1如果CPU=1，則a=”石頭，電腦贏“如果CPU=2那么a=”剪刀，畫“如果CPU=3那么a=”布，玩家贏“msgbox”，玩家給剪刀，電腦給“&a End Sub Private Sub command3”uuuClick（）”布調(diào)CPU為整數(shù)調(diào)a為字符串CPU=int（RND*3）1如果CPU=1那么a=”石頭，玩家贏“如果CPU=2那么a=”剪刀，電腦贏“如果CPU=3那么a=”cloth，draw“msgbox”玩家給布，電腦給“&a end”石頭、剪刀和布是孩子們經(jīng)常玩的游戲，在這里贏或輸。輸了的人就得給對方一些東西，或者給對方一些補償。我們的方言叫錘擊。

現(xiàn)在，成人在宴會上玩這個游戲很常見。他們更有可能有好朋友一起玩。他們將通過敲打決定勝負。他們會和他們一起喝酒，輸了的人會喝一杯或更多的酒。