VB編程：利用數組統計文字段落數-31

運行效果：

 

運行代碼：

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

返回一個下標從零開始的一維數組，它包含指定數目的子字符串。