VB 6.0 講義 　- 補充 : 用控制項陣列來做猜拳

步驟

1. 先將一個 Label 和 一個 command 準備好(如下圖), 再用複製貼上來產生command控制項陣列

2. 在命令鈕下撰寫程式碼

Private Sub Command1_Click(Index As Integer)
  Randomize
  x = Array("剪刀", "石頭", "布")
  c = Int(3 * Rnd)    ' 產生 0 到 2 之間的亂數值, 再轉成整數, 0、1、2 分別代表剪刀、石頭、布
  y = Index
  If c = y Then
    Label1.Caption = "電腦和你都是出" & x(c) & ", 平手"
  ElseIf (y = 1 And c = 0) Or (y = 2 And c = 1) Or (y = 0 And c = 2) Then
    Label1.Caption = "電腦出" & x(c) & ",你出" & x(y) & ", 你贏"
  Else
    Label1.Caption = "電腦出" & x(c) & ",你出" & x(y) & ", 你輸"
  End If
End Sub