计算 s=1+3+5+…+99的部分算法流程图如下图所示，其中①、②这两处应补充的内容是

A．①i←i+2  ②s←s+i	B．①i←i+1   ②s←s+i
C．①s←s+i  ②i←i+2	D．①s←s+i   ②i←i+1

有如下 Visual Basic 程序段： 
S = 0
For i = 1 To 5

s = s + i  

Next i
If i <= 5 Then
Text1.Text = Str(s)
Else
Text1.Text = Str(s + i)
End If
该程序段运行后，在文本框Text1中显示的是

A．5

B．6

C．15

D．21

小王编写了一个统计多选题分数的VB程序。得分规则是：多选题共有6个候选项（A、B、C、D、E、F），全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案（输入时必须按字母从小到大顺序输入）。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如题图所示：
（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是______（单选，填字母）

A．将窗体的Text属性改为“评分”

B．在Form_Load()事件中输入代码 Form1.Caption="评分"

C．在Form1_Load()事件中输入代码

Form．Name="评分"
（2）实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________     
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c  = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是________。

若输入站数a为11，人数b为2，则运行的结果为_______

A．10

B．8

C．6

D．22

若输入28，运行结果是    。
Dim x as long
x=inputbox(“输入x的值”)
if  x mod 3=0  then
x=x/3
else
x=x mod 3
end if
print  x

A．2

B．2.25

C．9

D．以上答案都错

代数式   在VB表达式中表示为（    ）。

A．（a+b）^2/ab

B．（a+b）^2/(ab)

C．（a+b）^2/(a*b)

D．（a+b）/(a*b)

若输入2、-3、5、-1、7则输出结果为_______

A．14

B．11

C．13

D．10

以下流程图的运行结果为______

A．2 4 6 8 10 12

B．2 4 8 16 32

C．2 4 8 16

D．2 4 8 16 32 64

数组a的数据存放情况如下表，则当i=2时，a[6/i-1]的值是（    ）。

a[1]	a[2]	a[3]	a[4]	a[5]	a[6]	a[7]	a[8]
48	52	98	26	47	22	82	33

 

A．98

B．26

C．52

D．22

下列逻辑表达式的值为“False”的是（ ）。

A．3 + 5 > 10

B．4 + 12 <> 15

C．4 / 2 = 2

D．5 < 2 * 3