Re: [VB6 ] 代碼查詢的問題

看板Visual_Basic作者Y78 (Y78)時間14年前 (2012/02/01 13:04)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/4 (看更多)

※ 引述《KCVO (KCVO)》之銘言： : 最近想寫一個查詢代碼的程式 : 大概程式碼如下: : Private Sub Command1_Click() : n = UCase(Text1.Text) : If n = "HUN" Or n = "HNU" Or n = "UHN" Or n = "UNH" Or n = "NHU" Or n = "NUH" Then : Print "100" : ElseIf n = "TWO" Or n = "TOW" Or n = "WTO" Or n = "WOT" Or n = "OTW" Or n = "OWT" Then : Print "200" : . : . : end if : 因為代碼還蠻多的...感覺用這方法寫很笨... : 想請問有沒有更精簡的寫法 : 感謝各位原本想說寫簡潔一點沒想到還是co了50 lines orz 基本的想法是要比對TWO的所有排列組合(TWO TOW OWT...) 跟輸入的字串只要統計每個字母出現的次數是不是相等就好不過這對三個字的感覺沒什麼用長一點比較有用 http://nopaste.csie.org/603e2 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.32.105.249

推

KCVO

02/01 14:06, , 1^F

02/01 14:06, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 Y78 的文章

文章代碼(AID): #1FACVuI7 (Visual_Basic)