Gambas3來做一個剪刀石頭布遊戲玩玩

微軟Visual Basic 是一個以視覺化為主的程式語言，而Gambas 也是一個以視覺化為主的程式語言,除了視覺化外，Gambas本身也會利用物件來處理事物，我們可以隨意的控制物件的擺置，完全都是很隨意,因此Gambas也可以說是很直覺化程式語言。

把 Label物件拉二個到Form中，在來Button三個也拉進去，排列如圖

點Form二下到進入程式編輯區

程式碼

Public Sub Form_Open()

 Label1.text = "剪刀  石頭  布"

 Button1.text = "剪刀"

 Button2.text = "石頭"

 Button3.text = "布"

End

 Public Sub Button1_Click() ‘剪刀

Dim cCol As Byte   ‘宣告陣列

 cCol = Int(Rnd * 3) ‘隨機抽三個變數0~2

Select Case cCol

Case 0

Label2.text = "你出剪刀，電腦出剪刀，平手"

Case 1

Label2.text = "你出剪刀，電腦出石頭，你輸"

Case 2

Label2.text = "你出剪刀，電腦出布，你贏"

End Select

End

 Public Sub Button2_Click()’石頭

  Dim cCol As Byte

 cCol = Int(Rnd * 3)

Select Case cCol

Case 0

Label2.text = "你出石頭，電腦出剪刀，你贏"

Case 1

Label2.text = "你出石頭，電腦出石頭，平手"

Case 2

Label2.text = "你出石頭，電腦出布，你輸"

End Select

End

 Public Sub Button3_Click() ‘布

  Dim cCol As Byte

 cCol = Int(Rnd * 3)

Select Case cCol

Case 0

Label2.text = "你出布，電腦出剪刀，你輸"

Case 1

Label2.text = "你出布，電腦出石頭，你贏"

Case 2

Label2.text = "你出布，電腦出布，平手"

End Select

End

按F5 運行看看