ＶＢ該如何寫暗棋讓它亂數呈現在棋盤上呢？

Question

我需要用ＶＢ寫一個暗棋當作期末成績

可是我現在遇到大問題耶！

我可能會出現兩之帥　將　　

或者　７．８之　兵或卒！！

我該怎樣讓它出現的次數根正常的棋子一樣呢？

好困擾喔！！

Answer 1

Private Sub Form_Activate()        Dim X%, Y%, W%                '格子大小        W = 600        '畫格子        For Y = 0 To 7            For X = 0 To 3                Line (X * W, Y * W)-(X * W + W, Y * W + W), 0, B            Next        Next        '設定一些參數        FillColor = vbWhite: FillStyle = 0        FontSize = 14: FontName = "標楷體": FontBold = True        Height = (Height - ScaleHeight + 30) + W * 8        Width = (Width - ScaleWidth + 30) + W * 4        Picture = Image        ReSet '擺棋End SubPrivate Sub Form_Click()        ReSet '擺棋End SubSub ReSet() '擺棋副程式    Dim S$, S1$, I%, N%, X%, Y%, W%        'VB無法顯示俥故只好用陣取代    S = "將士士象象車車馬馬包包卒卒卒卒卒帥仕仕相相陣陣傌傌炮炮兵兵兵兵兵"    Cls    W = 600 '格子大小    Randomize    For I = 0 To 31        '隨機尋找S字串任1字,此字若不是" "就離開迴圈        Do          N = Int(Rnd * 32 + 1)        Loop Until Mid$(S, N, 1) <> " "        'S1=S字串第N個字        S1 = Mid$(S, N, 1)        '令S字串第N個字=" "        Mid$(S, N, 1) = " "        '畫外圈        Circle (X + W / 2, Y + W / 2), W / 2 - 60, 0        '設定內圈及文字的顏色,N>16=紅色,否則=黑色        ForeColor = Int(N > 16) * -255        Circle (X + W / 2, Y + W / 2), W / 2 - 90        CurrentX = CurrentX - Me.TextWidth(S1) \ 2        CurrentY = CurrentY - Me.TextHeight(S1) \ 2        '輸出        Print S1        '改變座標        X = (X + W) Mod 4 * W        If X = 0 Then Y = Y + W    NextEnd Sub

Answer 2

＊ ***** http://***** ＊

[電子遊戲]
拉霸、水果盤、7PK、5PK

[運彩遊戲]
棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]
百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]
台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]
香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]
1. 新舊會員儲值就送500點
2. 真人百家樂彩金等你拿
***** http://*****
歡迎免費體驗試玩!!

線上影片直播、正妹圖、討論區免費註冊 ~

Answer 3

推薦您前往黃金俱樂部遊戲網！

提供您詳盡的說明

您可以先進行遊戲下載：
網址：http://99點5888th點net

誠心服務！會員溫馨！永久服務！
第一：全程直播遊戲的公平與公正性【亞洲唯一直屬會員代理】
第二：點數儲值和託售皆在十分鐘之內完成【全台娛樂城速度最快24小時不分周末】
第三：二十四小時專業客服務線上服務全年無休【大大小小問題都可以馬上做詳細解答喔】
電子機台．真人遊戲和你一同玩樂
麻將 百家樂 5PK 德州撲克 水果盤 賓果
輪盤 21點 10點半 骰盅 牌九 鬥地主 13支

全年網站優惠活動不間斷！
快去註冊會員！免費：http://99點5888th點net

Answer 4

我想用vb判定他吃棋子的那些步驟
可是卻一點頭緒也沒有～～

馬不需要走斜的　只需要包＆炮　要飛天吃！！

而且　翻開的棋子不能吃掉還沒翻開的棋子＞＜

我該怎麼下筆呢？？