對了忘了告訴你, 寫程式盡量不要用 Case 指令, 通常為了可讀性較好才用,因 Case 的指令處理速度較慢, 用if 的巢狀結構速度快很多.不過現在電腦的運算速度已經很快(比起XP時代), 所以也無所謂了.不過你下面類似這種程式碼,寫得有點長了, 大概 2,3 行指令就可解決. 用字串搭配 1 個類似Copy 函數就好. 既簡單又清楚. 你參考看看. 祝你寫程式愉快. Bye, Wawa



例:(我用 Delphi 示範一下, 用 VB 也一樣, 換個函數就可)



var A:String;//此行為變數宣告,用VB連這行都可省略,故用VB只要2行指令就可

A:="坤震坎兌艮離巽乾";

ga_down:=Copy(A,myvalue*2+1,2);



是不是2,3行程式碼就解決了呢!!



在 Delphi 有下列函數,VB也有類似函數,我想你應該知道.

function Copy(S; Index, Count: Integer): string;



Select Case myvalue

Case 0

ga_down = "坤"

Case 1

ga_down = "震"

Case 2

ga_down = "坎"

Case 3

ga_down = "兌"

Case 4

ga_down = "艮"

Case 5

ga_down = "離"

Case 6

ga_down = "巽"

Case 7

ga_down = "乾"

End Select