Private Sub CommandButton1_Click()
    n = Int(Rnd * 3)
    If n = 0 Then
       MsgBox "電腦出剪刀"
    End If
    
    If n = 1 Then
        MsgBox "電腦出石頭"
    End If
    
    If n = 2 Then
        MsgBox "電腦出布"
    End If
End Sub