求VB编写中国象棋的源代码。急求。必有重谢
2024-07-16 13:27:11作者：饭克斯
贴保存棋局和读取棋局部分的，你先看看：
Rem读取棋局
PrivateSubmnuRead_Click()
DimsAsString,iAsInteger,t
IfDir(App.Path&\cchess.che)=ThenMsgBox没有棋局文件可以读入！请先保存棋局！,,中国象棋:ExitSub
OpenApp.Path&\cchess.cheForInputAs#1
Input#1,s
Close#1
s=Replace(s,vbCrLf,)
s=Trim(s)
t=Split(s,)
IfUBound(t)89ThenMsgBox棋局文件已遭到破坏！请重新保存棋局！,,中国象棋:ExitSub
Fori=0To89
a(i)=Val(t(i))
Next
MsgBox棋局文件已成功读入！,,中国象棋
EndSub
Rem保存棋局
PrivateSubmnuSave_Click()
DimsAsString,iAsInteger
s=
Fori=0To89
s=s&&a(i)
Next
s=Trim(s)
OpenApp.Path&\cchess.cheForOutputAs#1
Print#1,s;
Close#1
MsgBox当前棋局已成功保存！,,中国象棋
EndSub
展开全文
