象棋达人残局第十五关怎么过

1、首先打开手机，点击进入4399中国象棋残局的第15关。

2、其次玩家衫哪在游戏困塌枝关卡内进行炮九平六，士5进4，炮六平三。

3、最后卒2平3，炮三进一汪敏即可通过第15关。

你是要交作洞悉空业吗？是要原创的吗？网上的可能很多陆轮人都有，但我自己写的还没有发表，哈哈。这里贴不了全的，我可以写一段给你看看，你觉得可以，就找我要吧，完全free的，能帮到你最好。

贴保存棋局和读取棋局部分的，你先看看：

Rem 读取棋局

Private Sub mnuRead_Click()

Dim s As String, i As Integer, t

If Dir(App.Path &"\cchess.che") = "" Then MsgBox "没有棋局文件可以读入！请先保存棋局！", , "中国象棋": Exit Sub

Open App.Path &"\cchess.che" For Input As #1

Input #1, s

Close #1

s = Replace(s, vbCrLf, "")

s = Trim(s)

t = Split(s, " ")

If UBound(t) <>89 Then MsgBox "棋局文件已遭到破坏！请重新保存棋局！纳瞎", , "中国象棋": Exit Sub

For i = 0 To 89

a(i) = Val(t(i))

Next

MsgBox "棋局文件已成功读入！", , "中国象棋"

End Sub

Rem 保存棋局

Private Sub mnuSave_Click()

Dim s As String, i As Integer

s = ""

For i = 0 To 89

s = s &" " &a(i)

Next

s = Trim(s)

Open App.Path &"\cchess.che" For Output As #1

Print #1, s

Close #1

MsgBox "当前棋局已成功保存！", , "中国象棋"

End Sub

---