20.用VB編寫一個字符串分行程序,功能如下:單擊“分行”按鈕Command1將文本框Text1中的英文文本在列表框List1中分行顯示(分行時單詞不得跨行,每行字符盡可能多但不超過40個)并在標簽Label1中輸出總行數,運行效果如圖所示.分行算法如下: (1)將文本框中的字符串保存到變量s中; (2)當s中字符個數超過40時,循環執行下列①、②、③步,否則跳轉到(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.