运行效果：

VB编程：利用数组统计文字段落数-31_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(<字符串>，[<分割符>]，[返回个数]，[比较方式])。

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