以下是一段VB程序：（）
a=1
b=a+1
c=a+b
它的基本结构属于

A．顺序结构

B．选择结构

C．循环结构

D．树型结构

解释程序将某个高级语言编写的程序全部解释为机器语言程序后才由计算机执行该程序。（   ）

某算法的流程图如下所示：
 
依次输入x的值为7、5、0后，该算法的输出结果为（    ）

A．2

B．3

C．5

D．12

有一属于顺序结构的流程图，它不需要以下流程图中的哪个符号（   ）

A. B.     C.    D.

现在很多城市的公交车是无人售票车，车上的投币机具有假币自动识别装置，如果是真币，它就“收取”然后显示数量，如果投入的是假币，就从假币口退回不计数，然后等待下一次投币，下列流程图中能正确描述上述识别过程的是（ ）

A．

B．

C．

D．

有流程图如下所示：

若输入a的值为3，则该算法输出的结果为（  ）

A．-3

B．0

C．3

D．9

在一次电视选秀活动中，有三个评委为每位选手打分。如果三个评委都亮绿灯，则进入下一轮；如果两个评委亮绿灯，则进入待定席；如果红灯数超过两盏则淘汰。最适合用到的程序结构是（   ）

A．循环

B．赋值

C．选择

D．顺序

吴峰同学在信息课中学习了简单的编程知识，他想根据三角形三条边之间的关系来判定该三角形是否为直角三角形，他应该采用的算法结构是（   ）

A．分支结构

B．循环结构

C．顺序结构

D．树形结构

打开并修改考生文件夹下“VB”文件夹中“test.vbp”，使其具有下列功能：在文本框Ｔext1中输入姓名，在性别栏中选择相应的性别，单击“OK”按钮（Command1）后，在标签Ｌabel2上显示“我的名字叫＊＊我＊，是个男孩（女孩）”。
VB界面如图所示：

（1）参照效果图，完善界面，并在属性窗口中完成对添加对象的caption属性的设置。（4分）
（2）为命令按钮选择合适的事件过程，该事件过程的代码可以从“VB”文件夹中的“code.txt”中得到。（4分）
（3）调试并运行程序时有错误提示，修改相关的事件过程代码，使程序实现上述功能。（4分）
Private Sub Command1_Click()
Dim name As String, xb As String
name = Text1.Text
If Option1.Value =" True" Then
xb = "男孩"
Else
xb = "女孩"
Label2.Caption = "我叫" + name + "，我是个" + xb
End Sub
（4）生成可执行程序“test.exe”,保存到“VB”文件夹下。保存窗体文件与工程文件。（4分）

用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