1樓：12345額時代
1、啟動vb6.0，新建一個標準exe工程。
2、在窗體上繪製一個命令按鈕，名稱為command1。
3、雙擊命令按鈕進入**視窗。
4、假設有一個名為a的函式過程進行呼叫，從1到100逐一查詢。可以選擇計數迴圈for....next語句。
5、編寫命令按鈕的單擊事件。
6、按f5執行測試，就完成了。
2樓：
用replace函式即可實現。
例：private sub command1_click()
第一種用法： 無條件全部替換
text2.text = replace(text1.text, "a", "x")
第二種用法：從第一位開始只替換3次
'rcount = 3
'text2.text = replace(text1.text, "a", "x", , rcount)
第三種用法：從前面算起第5位開始全部替換
'startc = 5
'text2.text = left(text1.text, startc - 1) & replace(text1.text, "a", "x", startc)
第四種用法：不分大小寫的替換
'text2.text = replace(text1.text, "a", "x", , , vbtextcompare)
end sub
擴充套件資料
replace的返回值：
如果 replace返回值
expression長度為零 零長度字串("")。
expression為null 一個錯誤。
find長度為零 expression的複本。
replacewith長度為零 expression的複本，其中刪除了所有出現的find 的字串。
start > len(expression) 長度為零的字串。
count is 0 expression.的複本。
3樓：常山大寶
用replace函式，**如下：
dim str, str1
str = "aw在t日dch靠sw上gxc"
str1 = replace(str, "a", "01")
str1 = replace(str1, "c", "02")
msgbox str1
replace函式描述：返回一個字串，該字串中指定的子字串已被替換成另一子字串，並且替換髮生的次數也是指定的。
replace函式語法：replace(expression,find,replace[,start[,count[,compare]]])
replace函式語法有如下命名引數：
部分 描述
expression 必需的。字串表示式，包含要替換的子字串。
find 必需的。要搜尋到的子字串。
replace 必需的。用來替換的子字串。
start 可選的。在表示式中子字串搜尋的開始位置。如果忽略，假定從1開始。
count 可選的。子字串進行替換的次數。如果忽略，進行所有可能的替換。
compare 可選的。數字值，表示判別子字串時所用的比較方式。
4樓：匿名使用者
vb6使用replace函式把特定的字元替換成其他的字串。
replace函式，返回一個字串，該字串中指定的子字串已被替換成另一子字串，並且替換髮生的次數也是指定的。
private sub command1_click()dim a as string
dim b as string
a = "返回一個字串，該字串中指定的子字串已被替換成另一子字串，並且替換髮生的次數也是指定的。"
b = "string"
a = replace(a, "字串", b)debug.print a
end sub
**執行後，立即視窗顯示：
返回一個string，該string中指定的子string已被替換成另一子string，並且替換髮生的次數也是指定的。
5樓：天空天空天空空
給你一組萬能的寫法，就是執行有點慢。。。
dim str1=「aw在t日dch靠sw上gxc」
a=len(str1) '取字串長度b=""
c=""
d=""
for i = 1 to a
b=mid(str1,i,1) '取第i個字元select case b
case "a"
c="01"
case "c"
c="02"
case
...... 『如上，case後面接要替換的字元，第二行寫c=加上要替換的結果
...else
c=b '注意，這句表示不需要替換時，保持原來的字元
end select
d=d+c
next
好了，執行完後，d就是替換後的內容了，隨便你print還是text了。
vb6如何獲取某個字母開頭的所有漢字
改成這樣即可 for x 19218 to 18711 k x and hff if k h40 and k h7f and k hff then text1.text text1.text vbcrlf chr x end if next 漢字的gbk字符集中的內碼是有範圍限制的，其中高位是從 h...
vb6如何快速取得資料夾下的全部檔名
用dirlist和filelist控制元件，很容易實現的。vb怎樣獲取電腦中所有資料夾名稱？vb 獲取目錄所有檔名 1 首先，在電腦上開啟vb6.0屬性視窗，新建一個exe工程視窗。2 然後，就能在這裡看到幫組檔名一欄。這時，就能在這裡按下這個三點進行選擇檔案。3 接下來就可以這個幫組檔案的視窗。4...
怎麼使用 VB6中使用ADODC更新SQL資料庫記錄
1 vb中採用 資料繫結修改控制元件修改資料，基本上不需要 只需要設定 資料繫結控制元件的一些屬性即可實現 2 例如datagrid控制元件，將其繫結到相應的資料來源上，再設定其allowupdate屬性為true，即可實現 中修改的資料及時更新到資料庫中 3 該屬性可返回或設定一個值，指示使用者能...