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

運行效果：   運行代碼： Private Sub Command1_Click()     Dim myrows                '定義段落數     Dim myarray() As String   '聲明數組，保存文本     With Text1         myarray = Split(.Text, vbCrLf)         If Text1.Text <>

>>阅读原文<<