執行效果：
執行**：
private sub command1_click()
dim myrows '定義段落數
dim myarray() as string '宣告陣列，儲存文字
with text1
myarray = split(.text, vbcrlf)
if text1.text <> "" then
myrows = ubound(myarray) + 1 '返回段落數
else
msgbox "請輸入文字內容", , "錯誤提示"
exit sub
end if
msgbox "段落數：" & myrows, , "段落統計"
end with
end sub
學習總結：
1、with語句：在乙個單一物件或乙個使用者定義型別上執行一系列的語句
例如，要改變乙個物件的多個屬性，可以在 with 控制結構中加上屬性的賦值語句，這時候只是引用物件一次而不是在每個屬性賦值時都要引用它。下面的例子顯示了如何使用 with 語句來給同乙個物件的幾個屬性賦值。
with mylabel
.height = 2000
.width = 2000
.caption = "this is mylabel"
end with
注意：當程式一旦進入 with 塊，object 就不能改變。因此不能用乙個 with 語句來設定多個不同的物件。
2、split**，常用語法結構：
split(expression[, delimiter[, count[, compare]]])
split(《字串》，[《分割符》]，[返回個數]，[比較方式])。
返回乙個下標從零開始的一維陣列，它包含指定數目的子字串。
Shell 程式設計 利用字典統計文字次數
csdn 問答上看到的乙個問題，有乙個 test.log 內容如下 a,e a,b,e b,c,e c,ec,d,ed,e統計規則是這樣的 每一行以逗號分割，如果第二個欄位為 e 就統計該行，否則將第乙個字段相同且第二個欄位不為 e 的行數累加。為了換換腦子 調節一下大腦思維，所以就花了點時間寫了下...
python利用dict統計每個文字的出現次數
在乙個群裡看到有個群友有個需求 有八門課的名單，每行名單為每門課的名單，想統計每個人選課的次數 資料形式如下 思路 讀取所有名單，利用set集合建立不重複的list,然後建立字典，再利用字典的key對名單進行遍歷 知識點 coding utf 8 author fff zrx filepath te...
VB程式設計 陣列中刪除陣列元素 27
執行效果 程式 dim a private sub form load redim preserve a 1 to 5 for i 1 to 5 a i i next i for i 1 to 5 text1.text text1.text a i a i next i for i 2 to 4 a...