作者KCVO (KCVO)
看板Visual_Basic
标题[VB6 ] 代码查询的问题
时间Wed Feb 1 11:41:22 2012
最近想写一个查询代码的程式
大概程式码如下:
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
1F：→ MOONRAKER:学用select case先. 02/01 19:18
2F：→ Berger927:何不用关键字替换就好? 02/01 20:50
3F：→ KCVO:谢谢大家提供的方法 我会努力学习的@@ 02/01 22:02