VB程式設計：利用數組統計文字段落數

運作代碼：

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(<字元串>，[<分割符>]，[傳回個數]，[比較方式])。

傳回一個下标從零開始的一維數組，它包含指定數目的子字元串。