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

誰能用字串函數
1.CHR 2.ASC 3.STR 4.VAL 5.LEN 6.REPALACE 7.INSTR 8.LEET 9.RIGHT 10.MID 11.STRING 12.SPACE 13.OCT 14.HEX 15.TI,E 16.DATE 17.TRIM 18.LTRIM 19.LTRIM 20.RTRIM 21.LCASE 22.UCASE 23.MSGBOX 24.INPUTBOX 25 SPLIT
在這之中任選幾個
做出一個『有主題有意義』的VB程式
能的話告訴我要畫什麼物件..
並說明這ㄍ程式是在做些什麼
麻煩各位大大了...
幫忙我滴程式語言作業
看到的同學勿偷 (大師)

2005-12-23 18:19:09 · 3 個解答 · 發問者 Anonymous in 電腦與網際網路 程式設計

不懂ㄝ......請先說明他的主題...具有什麼意義
還要話什麼物件...說明說明巴..
剛入門看不大董....

2005-12-24 14:35:44 · update #1

3 個解答

Private Sub Command1_Click()
Dim S As String, S1() As String, I As Integer, S2 As String

'S變成A+10個空格+A的字串
S = "A" + String(10, Space(1)) + "A"
MsgBox S '看一下結果
'移除S裡面的A字
S = Replace(S, "A", "")
MsgBox S '看一下結果
'S變成下一個字串
S = S & "逍乙顎星抄丫綱跨判儿啕盂" & S
MsgBox S '看一下結果
'移除S左右空格
S = Trim(S)
MsgBox S '看一下結果
X = 97: S2 = S: S = ""
'用Asc把每個字轉成ASCII碼,並加些小寫英文字母上去
For I = 1 To Len(S2)
S = S & Chr(X) & Asc(Mid(S2, I, 1)) & ","
X = X + 1
Next
S = Left(S, Len(S) - 1)
MsgBox S '看一下結果
'S裡面所有小寫英文字變成大寫
S = UCase(S)
MsgBox S '看一下結果
'移除S裡面英文字
For I = 65 To 90
If InStr(S, Chr(I)) Then S = Replace(S, Chr(I), "")
Next
MsgBox S '看一下結果
'用Split函數以","標識子字串邊界分割S字串傳到S1陣列
S1 = Split(S, ",")
MsgBox "分割成" & UBound(S1) & "個" '看一下分割成幾個
'用Chr變成中文字再組合起來
S = ""
For I = 0 To UBound(S1)
S = S & Chr(S1(I) - 1)
Next
MsgBox S '看一下結果

2005-12-24 12:03:52 · answer #1 · answered by W.J.S. 7 · 0 0

這個回答好亂..看不太懂ㄟ~!!
主要的事阿~我想問~第十三ㄍOCT到底是什麼意思呢!?

2006-01-11 20:02:30 · answer #2 · answered by 黃桃桃 1 · 0 0

根本就是沒有主題沒有意義的東西

2005-12-29 14:48:26 · answer #3 · answered by Anonymous · 0 0

fedest.com, questions and answers