※ 引述《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 : 因为代码还蛮多的...感觉用这方法写很笨... : 想请问有没有更精简的写法 : 感谢各位 原本想说写简洁一点没想到还是co了50 lines orz 基本的想法是 要比对TWO的所有排列组合(TWO TOW OWT...) 跟 输入的字串 只要统计每个字母出现的次数是不是相等就好 不过这对三个字的感觉没什麽用 长一点比较有用 http://nopaste.csie.org/603e2 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.32.105.249