作者yauhh (哟)
看板Visual_Basic
标题Re: [VB6 ] 代码查询的问题
时间Wed Feb 1 20:37:41 2012
※ 引述《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
1F:推 KCVO:原来是用逗号隔开...之前用or一直错误...耍笨了= = 02/01 22:11
2F:→ KCVO:谢谢大大^^ 02/01 22:11