代碼如下：
請在程序目錄下放上三個jpg圖片名為“剪刀”、“石頭”、“布”picture123的圖片請自己在屬性列表中設置，pictue4 有電腦加載
Option Explicit'全局變量聲明
Dim YouChoose'記錄妳的選擇
Dim ComputerChoose'記錄電腦選擇
'0 石頭 1剪刀 2布
Private Sub Picture1_Click()'選了石頭
YouChoose = 0'記錄下石頭
Randomize'隨機數生成函數
ComputerChoose = Int(Rnd() * 3)'電腦選擇，並記錄下載
display'顯示電腦的選擇（這是個用戶函數）
ToGo'判斷勝負（這是個用戶函數）
End Sub
Private Sub Picture2_Click()'基本同上，選擇剪刀
Randomize
YouChoose = 1
ComputerChoose = Int(Rnd() * 3)
display
ToGo
End Sub
Private Sub Picture3_Click()'基本同上，選擇石頭
Randomize
YouChoose = 2
ComputerChoose = Int(Rnd() * 3)
display
ToGo
End Sub
Sub ToGo()'判斷勝負函數
If YouChoose = ComputerChoose Then'壹樣就平
MsgBox "平"
ElseIf (YouChoose = 0 And ComputerChoose = 1) Or (YouChoose = 1 And ComputerChoose = 2) Or (YouChoose = 2 And ComputerChoose = 0) Then'出現三種獲勝可能之壹就判定獲勝
MsgBox "妳贏"
Else'其他則輸
MsgBox "電腦贏"
End If
End Sub
Sub display()'顯示電腦的選擇
On Error Resume Next'碰到錯誤則繼續
If ComputerChoose = 0 Then'如果電腦選石頭
Picture4.Picture = LoadPicture(App.Path + "石頭.jpg")'加載石頭圖片
MsgBox "石頭"'對話框彈出石頭
ElseIf ComputerChoose = 1 Then'同上
Picture4.Picture = LoadPicture(App.Path + "剪刀.jpg")
MsgBox "剪刀"
ElseIf ComputerChoose = 2 Then
Picture4.Picture = LoadPicture(App.Path + "布.jpg")
MsgBox "布"
End If
End Sub