​运行效果：​



​运行代码：​

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

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。