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

看板Visual_Basic作者JacobTai (不想跟世界說話)時間14年前 (2012/02/01 14:50)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串3/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 : 因為代碼還蠻多的...感覺用這方法寫很笨... : 想請問有沒有更精簡的寫法 : 感謝各位 n = UCase(Text1.Text) If instr(n, "H") * instr(n, "N") * instr(n, "U") > 0 then Print "100" ElseIf instr(n, "T") * instr(n, "W") * instr(n, "O") > 0 then Print "200" . . end if 睡覺前寫的有錯不負責 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 207.216.90.49

推

Y78

02/01 16:37, , 1^F

02/01 16:37, 1^F

推

KCVO

02/01 22:06, , 2^F

02/01 22:06, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 JacobTai 的文章

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