剩下的妳自己補就行了。這很簡單。我只提供壹個簡單的思路，但不壹定是最後壹個。妳可以試試別的。
私人？Sub？Command1_Click()
0代表剪刀，1代表石頭，2代表布。
使不規則化
Label1。標題？=?字(Rnd？*?2)
標簽2。標題？=?字(Rnd？*?2)
暗淡？結果？作為？線
結果？=?""
分為六種情況
如果？Label1。標題？=?“石頭”？然後呢。標簽2。標題？=?那就“剪刀”吧
結果？=?“A贏了”
結束？如果
如果？Label1。標題？=?“剪刀”和？標簽2。標題？=?“石頭”？然後
結果？=?" B贏了"
結束？如果
如果？Label1。標題？=?“布”和？標簽2。標題？=?“石頭”？然後
結果？=?“A贏了”
結束？如果
如果？Label1。標題？=?“石頭”？然後呢。標簽2。標題？=?那就“布”吧
結果？=?" B贏了"
結束？如果
如果？Label1。標題？=?“剪刀”和？標簽2。標題？=?那就“布”吧
結果？=?“A贏了”
結束？如果
如果？Label1。標題？=?“布”和？標簽2。標題？=?那就“剪刀”吧
結果？=?" B贏了"
結束？如果
如果？結果？=?""?然後呢？結果？=?“領帶”
標簽3。標題？=?結果？顯示結果
結束？潛水艇
功能？word(n？作為？整數)？作為？線
選擇？案子？n
案子？0:
詞？=?“剪刀”
案子？1:
詞？=?“石頭”
案子？2:
詞？=?“布”
結束？挑選
結束？該功能界面如下:
可以把文字改成圖片，會更生動。當然，妳可以添加其他功能，自己思考。