下图所示的流程图实现的功能是求三角形的面积，回答以下问题：（共12分）
（1）判断①条件为? （2分）
（2）②处应填入的VB表达式是？（2分）
（3）③处应填入的VB表达式是？（2分）
（4）④处应填入的内容？（2分）
（5）⑤处应填入的内容？（2分）
（6）该算法采用的结构是？（2分）

将以下计算50以内奇数和S的值（s=1+3+5+…+49）的程序段补充完整.
private sub form_click( )
dim i as integer, s as integer
s=(1)_________
for i="1" to 50 (2)____________
（3)____________
Next i
print “50以内奇数和="”;" s
end sub

以下程序段执行后整型变量n的值为（  ）。
n=0
for i="1" to_____step 5
n=n+i
next i

A．50

B．34

C．15

D．210

以下程序段执行后，整型变量a的值为（  ）。
a = 3
b = 5
b =" b" + a
a =" a" + b

A．3

B．5

C．11

D．13

执行下面的Visual Basic程序段后，变量a，b的值是( )

A．a=5，b=6	B．a=6，b=5
C．a=1，b=11	D．a=11，b=1

当a=5，b=7，c=－2，d=1时，逻辑表达式：A+b>c+d AND a>="5" OR NOT c>0 OR D<0的运算结果为True。（   ）

按下列公式计算银行贷款等额还款的月偿还金额S：

现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框架中输入贷款本金、贷款期限、年利率，单击计算机按钮，在每月偿还本息额文本框中显示S的值。按此要求编写的程序如下，请把带下划线部分所缺的程序段补齐

Private Sub Command1_Click()
Dim x As Long
Dim y As Single
Dim n As Integer
Dim s As Single
x =" Val(Text1.Text)" *     
n =" 12" * Val(Text2.Text)
y =" Val(Combo1.Text)" / 12 / 100 ′月利率为年利率除12
s = 1
For i =" 1" To n
s =" (1" + y) * s
Next
s =
Text4.Text = Str(s)
End Sub
其中，“等额还款”是 (Form/Text/Combo/Command)控件的Caption属性。

有7个人坐在一起，问第七个人多少岁？他说是第6个人年龄2倍小4岁 。问第6个人岁数，他说是第5个人年龄也是2倍小4岁。问第5个人，还说是第4个人年龄2倍小4岁。问第4个人，又说是第3个人年龄2倍小4岁，以此类推。最后问第一个人，他说是5岁。请问第7个人多大？以下是小王同学编写的解决该问题的VB，请把程序补充完整。

Private Sub Command1_Click()
Dim i, year As Integer
Dim a(1 To 8) As Integer
a(1) = 5
For i =  To 7

List1.AddItem"第"+ Str(i)+"个人的年龄为"+Str(a(i))
Next i
End Sub

PM2.5能较长时间悬浮于空气中，其在空气中含量浓度越高，就代表空气污染越严重.当PM2.5值达到178时，输出的P的值为（    ）

A．优良

B．轻度污染

C．中度污染

D．严重污染

有如下Visual Basic程序段，用于计算前n个自然数之和。程序划线处应填写的语句是（  ）
s =" 0:" i = 1
n = Val(Text1.Text)
Do While i < n
s =" s" + i
i =" i" + 1
 
Label1.Caption = Str(s)

A．Loop	B．Next i
C．End If	D．End Sub