17．用VB編寫一個字符串分行程序，功能如下：單擊“分行”按鈕Command1將文本框Text1中的英文文本在列表框List1中分行顯示（分行時單詞不得跨行，每行字符盡可能多但不超過40個）并在標簽Label1中輸出總行數，運行效果如圖所示．分行算法如下：
（1）將文本框中的字符串保存到變量s中；
（2）當s中字符個數超過40時，循環(huán)執(zhí)行下列①、②、③步，否則跳轉到（3）：
①如果第41個字符不是英文字母，則分行位置p=40；否則，向左逐個查找，直至找到第一個非英文字母，將其位置作為分行位置p；
②截取s的前p個字符，作為新增行顯示在列表框List1中，同時總行數加1；
③將s中未分行部分重新賦值給變量s.
（3）將s作為新增行顯示在列表框List1中，同時總行數加1．
實現上述功能的VB程序如下，請在空格處填入合適代碼．
Private Sub Commandl_Click （ ?。?br />Dim s As String,c As String
Dim r As Integer,total As Integer,p As Integer
total=0
s=①
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=②
c=Mid（s,r,1）
Loop
p=r
End If
List1．Addltem Mid（s,1，p）
total=total+1
s=③
Loop
List1．AddItem s
total=total+1
Labell.Caption=“共“+Str（total）+“行“
End Sub.
