1樓：匿名使用者
資料庫你應該會連線了。
dim l as integer
do until rs.eof
if len(rs.fields("專有名詞") > l then l = rs.fields("專有名詞") '假設你的欄位是專有名詞
rs.movenext
loop '這段用來獲取專有名詞的最大長度dim i%,j%,k%
dim str as string
j=1for i = 1 to l
rs.movefirst
do until rs.eof
if rs.fields("專有名詞")=a thenrichtextbox1.selstart = jrichtextbox1.
sellength = iform1.value=true
loop
j=j+1
next '這段判斷是否是專有名詞然後加上一段加下劃線的**：
private sub form_click()richtextbox1.selunderline = trueend sub
2樓：
遍歷這段話斷成二字詞，三字詞，四字詞...的所有可能性的詞，放在一個字串集合裡，這個集合就包含了這段話裡所有可能的詞，然後把每一個集合中的詞在資料庫中查詢。查到了，用replace 語句，把段中的這個詞替換成下劃線形式。
就完了。
順便說一句，
textbox 不能標出某一個詞是否加下劃線，要加上就都變成下劃線了，要用richtextbox。
textbox 不是超文字顯示框,它只能設定一種字型用richtextbox 代替textbox
VB編寫程式實現以下功能 設有二維陣列A 4，4 ，每個陣列元素為兩位的隨機正整數
private sub command1 click 交換第二列和第四列 text1.text text2.text label1.caption dim aa 1 to 4,1 to 4 as integer,bb 1 to 4,1 to 4 as integer text1.text 交換前的資...
vb6 0中，如何實現讀取檔案中的內容並在vb上顯示出
option explicitprivate sub form load dim fileno as integer dim pathname as string,filename as string dim tmp as string me.show pathname environ userpr...
VB6 0怎麼做登入框
on error resume next if me.combo1.text then msgbox 請選擇登陸使用者！48,錯誤提示 exit sub end if adodc1.recordsource select from myuser where 名稱 combo1.text adodc1...