vb課程設(shè)-02--070453--中國象棋復(fù)盤(編輯修改稿)
2025-09-12 23:56 本頁面
【文章內(nèi)容簡介】 ==============================對聲音進(jìn)行設(shè)置 = close = WaveAudio = amp。 \source\ 39。開局聲音 = Open = playEnd SubPrivate Sub Form_Load()39。======================================================加載qipan = RGB(200, 500, 100) = 5 = 0 = 0 = 9 = 10 39。======================================================賦值 A = Array(車, 馬, 象, 士, 將, 炮, 卒, 車, 馬, 相, 仕, 帥, 炮, 兵) 39。======================================================給數(shù)組盤賦值 For i = 0 To 8 盤(i, 0) = 17 + i 盤(i, 9) = 9 i Next i 盤(1, 2) = 26 盤(7, 2) = 27 盤(1, 7) = 11 盤(7, 7) = 10 For i = 0 To 8 Step 2 盤(i, 3) = i / 2 + 28 盤(i, 6) = 16 i / 2 Next 39。======================================================加載棋子控件 A = Array(一, 二., 三, 四, 五, 六, 七
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1