遊戲人生 人生遊戲

用1-52數字表示撲克牌的每一張牌
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a() As Integer = {1, 6, 9, 15, 14, 19, 52, 18, 33, 11, 18}
For i As Integer = 0 To a.Length - 1
Me.count(a(i))
Next
End Sub
Private card(13) As Integer
Private Sub count(ByVal number As Integer)
Dim i As Integer = (number - 1) \ 4 + 1
Me.card(i) += 1
End Sub


重點如下
在VB中運算符''/''和''\''都是除法運算符。
當被除數和除數有一個是浮點數時二者沒有什麼差別。
當二者都為整型時，''\''是商取整，''/''是商有小數也有整數。