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

看板Visual_Basic作者yauhh (喲)時間14年前 (2012/02/01 20:37)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串4/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 : 因為代碼還蠻多的...感覺用這方法寫很笨... : 想請問有沒有更精簡的寫法 : 感謝各位基本上 Select Case 可以寫一列case,像這樣: Select Case n Case "HUN", "HNU", "UHN", "UNH", "NHU", "NUH" .... Case "TWO", "TOW", "WTO", 'WOT", "OTW", "OWT" .... Case Else .... End Select -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.231.66.73

推

KCVO

02/01 22:11, , 1^F

02/01 22:11, 1^F

→

KCVO

02/01 22:11, , 2^F

02/01 22:11, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 yauhh 的文章

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