[VB6 ] 代碼查詢的問題
最近想寫一個查詢代碼的程式
大概程式碼如下:
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
→
02/01 19:18, , 1F
02/01 19:18, 1F
→
02/01 20:50, , 2F
02/01 20:50, 2F
→
02/01 22:02, , 3F
02/01 22:02, 3F
討論串 (同標題文章)
以下文章回應了本文 (最舊先)：
完整討論串 (本文為第 1 之 4 篇)：