[求救]Visual Basic 讓電腦變聰明

我有一個程式

是關於取球遊戲的

就是有16顆球

我最多能點4顆球

而電腦也是

然而最後一個點到的玩家就輸了

而我有程式碼了

但是我要把他修改聰明一點

可是我完全找不到方向

......可不可以請各位大大能夠給我一些方向來完成這個作業



要把他改聰明,我想應該是電腦要贏

我的想法是在總球數剩下5顆的時候電腦要取4顆
總球數剩下4顆的時候電腦要取3顆
總球數剩下3顆的時候電腦要取2顆
總球數剩下2顆的時候電腦要取1顆



可是一直想不到方法來處理.....><



這是取球遊戲的程式碼



Dim i, j, n, sel As Integer
Dim ending As Boolean
Option Explicit

Private Sub Command1_Click()
If sel > 0 Then
Randomize
n = Int((Rnd * 4) + 1)
Label1 = n
For j = 1 To n
For i = 0 To 15
If Image1( i ).Visible = True Then
Image1( i ).Visible = False
Call result
If ending = True Then
Label2 = "Computer Lose !"
End If
Exit For
End If
Next i, j
sel = 0
End If
End Sub

Private Sub Form_Load()
For i = 0 To 15
Image1( i ).Picture = LoadPicture(App.Path + "\pinball.jpg")
Next i
End Sub

Private Sub Image1_Click(Index As Integer)
Image1(Index).Visible = False
Call result
If ending = True Then
Label2 = "You Lose !"
End If
sel = sel + 1
If sel = 4 Then
Randomize
n = Int((Rnd * 4) + 1)
Label1 = n
For j = 1 To n
For i = 0 To 15
If Image1( i ).Visible = True Then
Image1( i ).Visible = False
Call result
If ending = True Then
Label2 = "Computer Lose !"
End If
Exit For
End If
Next i, j
sel = 0
End If
End Sub
Public Sub result()
ending = True
For i = 0 To 15
If Image1( i ).Visible = True Then
ending = False
End If
Next i
End Sub