Private Sub cmdGameStart_Click()
Dim x As String

'Check Connect Status
'If False (Not Net Batter) Input Game Number
'   Then Check Number Error,If No Error Then Reset All the Game Data,Game Start
'If Connect Status True(Net Batter)
'   If ConnectType = CLIENT then Exit
'   Else Input Game Number,Send Message to Client ,Disable Menu and Command Button
'   Wait Client Response
   

If ConnectStatus = False Then
   x = InputBox("請輸入你要讓對方猜的" & Format$(GAME_NUMBER, "0") & "位數字", Me.Caption)
Else
   If ConnectType = CONNECT_CLIENT Then
      MsgBox "User端不能主動開始遊戲！請由Server端開始新遊戲", , Me.Caption
      Exit Sub
   End If

   x = InputBox("請輸入你要讓電腦猜的" & Format$(GAME_NUMBER, "0") & "位數字", Me.Caption)
End If

先請使用者輸入要讓對方(電腦)猜的數字，和剛才的難度設定一樣，如果連線狀態時，
一切都要等連線主機的回應，因此非連線主機的話，必需要跳離程式，不能繼續執行


接者要判斷使用者輸入的數字格式是否正確
1.長度對不對

If Len(x) <> GAME_NUMBER Then
   MsgBox "長度錯誤，請重新輸入", , Me.Caption
   Exit Sub
End If



2.是不是數字?是數字的話,有沒有小於0

If IsNumeric(x) = False Then
   MsgBox "輸入錯誤", , Me.Caption
   x = ""
   Exit Sub
ElseIf CLng(x) < 0 Then
   MsgBox "輸入錯誤", , Me.Caption
   x = ""
   Exit Sub
End If




3.輸入的數字有沒有重覆?CheckSameNumber是個很簡單的比較式，將
  字串一個一個取出來與其它數字比對，應該不用我講了吧！

If CheckSameNumber(x) = True Then
   MsgBox "數字重覆，請重新輸入", , Me.Caption
   Exit Sub
End If


假設一切都沒有問題的話，就將這個數字存到UserNumber
UserNumber = x


如果是在進行連線對戰的話，接者就必需要將進行遊戲的要求送給對方
接下來的情形比較複雜，等後面一點會寫一篇專門解釋連線的流程
If ConnectStatus = True Then
   SendMsgToUser GAME_MSG & MSG_GAME_START & Format$(GAME_NUMBER, "0") & UserNumber
   GameSetUP.Enabled = False
   cmdGameStart.Enabled = False
   Me.Caption = "請稍候...傳送資料中....正在等待對方回應....."
   Exit Sub
End If


接下來我們要來產生電腦要讓我們猜的數字，以及電腦要用來
判斷我們數字的亂數陣列


Dim i%, j%
ReDim ArrayTemp(1 To (10 ^ GAME_NUMBER) - 1) As Integer

先設定一個陣列,大小是10的N次方-1，N=要猜的數字數
等一下要用來放置電腦要猜我們數字用的
2 - 1~99
3 - 1~999
4 - 1~9999

On Error GoTo CheckInputError

CPUNumber = ""
CPUArraySUM = 0
lstCPURecord.Clear
lstUserRecord.Clear
txtUserInput.Text = ""
txtCPUInput.Text = ""

先將一些相關物件，變數清除



Call GetRandomArray(10, 10)
For i% = 1 To GAME_NUMBER
    CPUNumber = CPUNumber & Format$(rndFlag(i) - 1, "0")
Next i%

利用GetRandomArray()將1~10亂數排列存放進rndFlag這個陣列中，
我們再依遊戲的需求取出自己需要的數目就是電腦要讓我們猜的
數字囉！GetRandomArray是作者用來產生不重覆的亂數的副程式，
等一下再分析給你們看


For i% = 1 To (10 ^ GAME_NUMBER) - 1
    If CheckSameNumber(Format$(i%, FormatString)) <> True Then
       CPUArraySUM = CPUArraySUM + 1
       ArrayTemp(CPUArraySUM) = i%
    End If
Next i%

ReDim CPUArray(1 To CPUArraySUM)
For i% = 1 To CPUArraySUM
    CPUArray(i%) = ArrayTemp(i%)
Next i%
接下來我們要整理一下電腦猜數字的陣列，將絕對不可能的數字剃掉
(就是數字重覆的部份啦)，將所有有可能的數字存到CPUArray陣列中
接下來把一些該秀的Message秀出來，遊戲就可以進行囉！

lblUserNumber = UserNumber
lblCPUNumber = CPUNumber
txtUserInput.Enabled = True
GameSetUP.Enabled = False
NetButter.Enabled = False

With cmdGameStart
    If .Caption = "遊戲開始" Then
       .Caption = "重開新局"
    Else
       .Caption = "遊戲開始"
    End If
End With

MsgBox "遊戲開始", , Me.Caption
txtUserInput.SetFocus
Exit Sub

CheckInputError:
    If Err = 13 Then
          MsgBox "輸入錯誤", , Me.Caption
    End If
    Resume QuitError
    
QuitError:
    Exit Sub
End Sub