1樓：匿名使用者
怎麼這幾天那麼多類似問題？
多行變單行只能把他放到另一個單行的textbox了，因為textbox的multiline屬性執行時候不能改。
private sub command1_click()
text1.text = trim(text1.text) '去掉兩端空格
do until instr(text1.text, " ") = 0 '直到沒有兩個連續空格
text1.text = replace(text1.text, " ", " ") '將兩個連續空格替換為一個空格
loop
end sub
單行顯示，當然text2的multiline屬性設定為false，否則textbox寬度不夠一樣會自動換行。
private sub command1_click()
b = trim(text1.text) '去掉兩端空格
'b = replace(b, vbcrlf, " ") '去掉回車換行符,如果text2的multiline屬性為false可以省略這句
do until instr(b, " ") = 0 '直到沒有兩個連續空格
b = replace(b, " ", " ") '將兩個連續空格替換為一個空格
loop
text2.text = b
end sub
2樓：匿名使用者
'工程》引用》microsoft vbscript regular expressions 5.5
'假設你的資料在text1
'通過下面過程將text1資料整理後再存回text1private sub command1_click()dim oreg as regexp
dim stmp as string
stmp=text1.text
oreg.pattern="\d+"
stmp=oreg.replace(stmp," ")stmp=replace(stmp,vbcrlf,"")stmp=replace(stmp,vbcr,"")text1.text=stmp
set oreg=nothing
end sub
一組資料5的眾數是,一組資料122333445的眾數是,中位數是
一組資料1 2 3 4 5的平均數是 3 眾數是 沒有 中位數是 3 先對這組資料按從小到大的順序重新排序 1,2,2,3,3,3,4,4,5.這組資料有9個,所以位於最中間的數就是這組數的中位數是3,這組數出現次數最多的是3,故這組數的眾數是3.故答案為 3,3.一組資料5 3 2 4 4,2 3...
依次填入下列空格處的詞語,最恰當的一組是各級黨組織
c考察 實地觀察調查,有時也指細緻深刻的觀察 考查 用一定的標準衡量檢查。協調 彼此配合適當 諧調 事先商量使事情辦妥。神智 精神智慧 神志 知覺理智。黨的組織建設的主要內容和任務?黨的組織建設是黨的建設主要內容之一,主要包括黨的幹部隊伍建設 黨員隊伍建設和民主集中制建設等主要內容和任務。黨的幹部隊...
一組資料的和除以這組資料的個數所得上叫做什麼
答 叫做 平均數 你好，本題已解答,如果滿意 請點右下角 採納答案 第一題 一組資料中，各資料之和除以資料的個數，所得的數叫做這組資料的 數。第二題 解下列方程 1 第一題 平均數 第二題 2又5分之1即是5分之11，減去5分之19為 5分之8 負的5分之8 第三題 7分之4 5分之3 1 35分之...