VB高手帮忙编写一个小程序

来源：百度知道 编辑：UC知道 时间：2024/06/10 14:51:39
有三个Lable 分别为Lable1 、2 、3 比如有这么一段话“我是中国人。他是日本人。你是哪里人。”这段话是每一段话后面都有一个“。”为结束，我的意思是说编一个小程序能检测出第一个“。”前的为一段话（包括“。”号）显示在LABEL1。然后第二个“。”号前的为一段（不包括第一个“。”号前的那一段话）又显示在LABEL2上。。。这个依此类推下去，每次都检测出当前句号前的一段话不包括前一个句号的任何内容，请问该怎么编？

Private Sub Command1_Click()
t = "我是中国人。他是日本人。你是哪里人。"
tt = Split(t, "。", -1)

Label1.Caption = tt(0) & "。"
Label2.Caption = tt(1) & "。"
Label3.Caption = tt(2) & "。"
End Sub

'方法二：LABEL1复制粘贴为组控件

Private Sub Command1_Click()
t = "我是中国人。他是日本人。你是哪里人。"
tt = Split(t, "。", -1)
For i = 0 To UBound(tt) - 1
Label1(i).Caption = tt(i) & "。"
Next i
End Sub