⑴将文本框中的字符串保存到变量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

Private Sub strlink_Click( )

Dim a As String, b As String

a = “100”

b = “200”

Text1.Text = a + b

End Sub

下列说法正确的是（   ）

  Dim a(1 To 8) As Integer

  a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

  n = 8: t = 0

  For i = 1 To n - 1

    k = i

    For j = i + 1 To n

      If a(j) < a(k) Then k = j

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

    End If

  Next i

  Text1.Text = Str(t)

该程序段运行后，文本框Text1中显示的内容是（  ）

程序运行界面如下图所示。

i=1

Do While i<=5

    If i = 0 or a(i - 1)<= a(i) Then

        i=i+1

    Else

        t=a(i): a(i)=a(i-1): a(i-1)=t

        i=i-1

    End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（   ）