English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

請問一題關於Visual Basic 程式碼的問題想了好久也不知道錯在哪裡以下是這個題目的問題請問程式碼該如何著手呢?(新手請指教)輸入 " abvcdfsgh "    及     " abvxkjsf " , 輸出  " cdghxkj "

2006-04-24 06:52:32 · 2 個解答 · 發問者 ? 7 in 電腦與網際網路 程式設計

且輸入任何英文字母皆可按照順序排列唷
如輸入 zxcqwebnm 及 zxciopbnm 輸出 qweiop
asdtyjkl 及 asdpoikgh tyjlpoigh

2006-04-24 10:48:46 · update #1

且輸入任何英文字母皆可按照順序排列唷
如輸入 zxcqwebnm 及 zxciopbnm 輸出 qweiop
輸出 asdtyjkl 及 asdpoikgh 輸出 tyjlpoigh

2006-04-24 10:49:36 · update #2

沒錯
就是要輸出不重複的字母

2006-04-24 10:50:33 · update #3

請問它的Form1該怎麼寫啊

2006-04-25 16:09:59 · update #4

2 個解答

'此題應該是要輸出2個字串內不重複的字元吧?Private Sub Command1_Click()Dim S$, S1$, I%'先將2個字串合併S1 = "abvcdfsgh" & "abvxkjsf"'利用Split去分割,檢查以該字元做為分割符號時其陣列大小若為1,就表示該字元在此字串只出現1次,就可把它印出來For I = 1 To Len(S1)    S = Mid(S1, I, 1)    If UBound(Split(S1, S)) = 1 Then Print S;NextEnd Sub

2006-04-26 11:42:40 補充:
整個專案放在以下連結(只能放7天)http://s63.yousendit.com/d.aspx?id=3ENI28OHJBXM50LHSWP11QG8WA

2006-04-24 07:55:35 · answer #1 · answered by W.J.S. 7 · 0 0


a$=" abvcdfsgh "
b$=" abvxkjsf "
c$=mid(a$,4,2)+right(a$,2)+mid(b$,4,3)
print c$
即可

2006-04-24 07:01:37 · answer #2 · answered by 君君 1 · 0 0

fedest.com, questions and answers