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
簡單的求VB最大最小值,vb求一組數的最小值和最大值
private sub form click dim a 4 as single,i as integer,j as integer for i 1 to 3 for j i 1 to 4 if a i a j then a 0 a j a j a i a i a 0 next next print...
EXCEL中,如何取一組資料的最多值
應該是3是最多的把 假設這些資料在a1 a13單元格 在a列以外的任意單元格輸入 max countif a1 a14,a1 a14 ctrl shift enter 三鍵結束 1 假設你的資料在a列,從a2單元格開始。你可以在後面新增一個輔助區 如在d1 m1中,每個單元分別輸入0 9十位數。2 ...
請教大俠問題如何計算一組資料相對於資料的離散度
離散bai度,應該就是可以用標準du差來顯示的每個數和平zhi均數的差的平方dao 回相加再除以個數,最後開方 比如答a組59.57446809 61.94690265 61.64383562 60.39031212 60.85002808 61.16504854 61.66982922 61.28...