推 KCVO:原來是用逗號隔開...之前用or一直錯誤...耍笨了= = 02/01 22:11
→ KCVO:謝謝大大^^ 02/01 22:11
※ 引述《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