考题,拆分字符串

Question

一个显示屏一幕最多可以显示20个字节的字，请将一篇中英文混合的文章顺序显示出来，每幕要尽可能的显示最多的字。（注意，汉字占两个字节，拆分时不能使最后一个汉字出现半个字，幕号顺续加一）
如：中华人民共和国abcd中华人民共和国efghijklabcdefg中国人中华人民共和国“中华人民共和国abcd中”  20个字节
“华人民共和国efghijkl”   20字节
“abcdefg中国人中华人”    19个字节
“民共和国”          最后一幕sub show(message)end结果是“中华人民共和国abcd中，华人民共和国efghijkl，abcdefg中国人中华人，民共和国”的这样一个字符串也可

Answer 1

Dim str As String
Dim max As Integer
Dim tou As Integer
Private Sub Command1_Click()
    For i = 1 To Len(str)        keycode = Asc(Mid(str, i, 1))
        If (keycode < 0 And max = 19) Or max = 20 Then
            Print Mid(str, tou, i - tou)
            tou = i
            max = 0
        ElseIf i = Len(str) Then
            Print Mid(str, tou, i - tou + 1)
        End If        If keycode < 0 Then
            max = max + 2
        Else
            max = max + 1
        End If    Next
End SubPrivate Sub Form_Load()
max = 0
tou = 1
str = "中华人民共和国abcd中华人民共和国efghijklabcdefg中国人中华人民共和国"
End Sub

Answer 2

用len函数
Private Sub Form_Click()
Dim zifu As String
Dim s As Integer
zifu = "中华人民共和国abcd中华人民共和国efghijklabcdefg中国人中华人民共和国"
s = Len(zifu)
Do While s > 20
Print Left$(zifu, 20)
s = s - 20
zifu = Mid(zifu, 21, s)
Loop
End Sub

Answer 3

"如何操作Excel文件   
  全面控制   Excel   
  首先创建   Excel   对象，使用ComObj: "
  这句话中的使用Comobj是什么?
   这个Comobj到底是什么啊?
      请说的具体点,好吗?

Answer 4

如何操作Excel文件   
  全面控制   Excel   
  首先创建   Excel   对象，使用ComObj: 
这当中的Comobj具体是什么啊,请告诉我,好吗?
   我急求!!!