on error resume next dim [棋局](30,30),a,b,c,d,e,f,g,h,m,x,y,black,white [棋盘] f=0 do until m=vbno do while cdbl(f/2)=int(f/2) f=f+1 [显示]="" [显示画面] black=inputbox([显示],"轮黑棋出手"):[下黑棋] if black=false or m=vbno then wscript.quit if black="" or [棋局](b,c)="○" then black=inputbox([显示]&"输入错误,请重新输入","输入错误 下黑棋"):[下黑棋] loop do while cdbl(f/2)<>int(f/2) f=f+1 [显示]="" [显示画面] white=inputbox([显示],"轮白棋出手"):[下白棋] if white=false or m=vbno then wscript.quit if white="" or [棋局](d,e)="●" then white=inputbox([显示]&"输入错误,请重新输入","输入错误 下白棋"):[下白棋] loop loop sub [显示画面] for i=0 to 18 for j=0 to 18 [显示]=[显示]&[棋局](i,j) next [显示]=[显示]&vbcrlf next [显示]=[显示]&"输入棋子坐标 X,Y ,例如:"&vbcrlf&"2行 D列,输入D2 "&vbcrlf&"若要退出,请按 取消 "&vbcrlf end sub sub [下黑棋] g=len(black) b=mid(black,1,1) select case b case "A" b=1 case "B" b=2 case "C" b=3 case "D" b=4 case "E" b=5 case "F" b=6 case "G" b=7 case "H" b=8 case "I" b=9 case "J" b=10 case "K" b=11 case "L" b=12 case "M" b=13 case "N" b=14 case "O" b=15 case "P" b=16 case "Q" b=17 case "R" b