看板 [ Visual_Basic ]
討論串[VB6 ] 代碼查詢的問題
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [VB6 ] 代碼查詢的問題
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者yauhh (喲)時間14年前 (2012/02/01 20:37), 編輯資訊
0
0
0
內容預覽:
基本上 Select Case 可以寫一列case,像這樣:. Select Case n. Case "HUN", "HNU", "UHN", "UNH", "NHU", "NUH". ..... Case "TWO", "TOW", "WTO", 'WOT", "OTW", "OWT". ...
#3
Re: [VB6 ] 代碼查詢的問題
推噓2(2推 0噓 0→)留言2則，0人參與, 最新作者JacobTai (不想跟世界說話)時間14年前 (2012/02/01 14:50), 編輯資訊
0
0
0
內容預覽:
n = UCase(Text1.Text). If instr(n, "H") * instr(n, "N") * instr(n, "U") > 0 then. Print "100". ElseIf instr(n, "T") * instr(n, "W") * instr(n, "O") >
#2
Re: [VB6 ] 代碼查詢的問題
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者Y78 (Y78)時間14年前 (2012/02/01 13:04), 編輯資訊
0
0
1
內容預覽:
原本想說寫簡潔一點沒想到還是co了50 lines orz. 基本的想法是. 要比對TWO的所有排列組合(TWO TOW OWT...) 跟 輸入的字串. 只要統計每個字母出現的次數是不是相等就好. 不過這對三個字的感覺沒什麼用 長一點比較有用. http://nopaste.csie.org/60
#1
[VB6 ] 代碼查詢的問題
推噓0(0推 0噓 3→)留言3則，0人參與, 最新作者KCVO (KCVO)時間14年前 (2012/02/01 11:41), 編輯資訊
0
0
0
內容預覽:
最近想寫一個查詢代碼的程式. 大概程式碼如下:. 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 =
(還有80個字)
首頁
上一頁
1
下一頁
尾頁