用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()
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

在算法执行流程中，对于循环模式下列说法正确的是（  ）

A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二；

B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推，直到条件为假时结束；

C．仅用循环模式就可以用来判断某个输入的数是不是整数；

D．循环模式中，可以嵌套选择模式，而选择模式不能嵌套循环模式；

下面的流程图

运行结果：______________

下列程序的运行结果是（ ）
PRIVATE  SUB   FORM CLICK(  )
STATIC  B   AS  INTEGER
DIM   A  AS  INTEGER 
A=A+1
B=B+1
PRINT   A,B
END  SUB
要求运行程序时单击窗体三次，给出第三次单击的结果

A．3    3

B．1   3

C．3    1

D．1    1

下面的流程图

运行结果：______________