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

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