⑴将文本框中的字符串保存到变量s中；

⑵当s中字符个数超过40时，循环执行下列①、②、③步，否则跳转到（3）：

①如果第41个字符不是英文字母，则分行位置p = 40;否则，向左逐个查找，直至找到第一个非英文字母，将其位置作为分行位置p;

②截取s的前p个字符，作为新增行显示在列表框List1中，同时总行数加1 ;

③将s中未分行部分重新赋值给变量s。

⑶将s作为新增行显示在列表框List1中，同时总行数加1。

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Commandl_Click()

Dim s As String，c As String

Dim r As Integer, total As Integer，p As Integer

total = 0

s ={#blank#}1{#/blank#}

Do While Len(s) > 40

r = 41

c = Mid(s，r，1)

If  Not((c>= "a"And c<="z" ) Or (c>="A"Andc<="Z")) Then

p = 40

Else

’从第41个字符幵始向左找到第1个非英文字母，并将其位置值赋给p

     Do While (c >= "a" And c <= "z") Or (c >= "A"  

                 And c <= "Z")

r ={#blank#}2{#/blank#}

c = Mid(s，r，1)

Loop

p = r

End If

List1. Addltem  Mid(s，1，p)

total = total + 1

s ={#blank#}3{#/blank#}

Loop

List1. AddItem  s

total = total + 1

Labell. Caption ="共"+ Str(total) + "行"

End Sub

①所选对象名称是Circle，属于Shape类；②该窗体所存储的文件名是“草图．frm”；③该VB工程名是工程1；④所选对象运行时不可见。

例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

实现上述功能的VB程序如下，请回答下列问题：