→ MOONRAKER:學用select case先. 02/01 19:18
→ Berger927:何不用關鍵字替換就好? 02/01 20:50
→ KCVO:謝謝大家提供的方法 我會努力學習的@@ 02/01 22:02
最近想寫一個查詢代碼的程式
大概程式碼如下:
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
因為代碼還蠻多的...感覺用這方法寫很笨...
想請問有沒有更精簡的寫法
感謝各位
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.70.159.245