执行下面的程序段后，x的值为（   ）
x=5
For i="1" To 20 Step 2
x=x+i\5
Next i

A．21

B．22

C．23

D．24

下Visual Basic程序段：
s = 0
For i =" 1" To 5
s =" s" + i * i
Next i
Label1.Caption = Str(s)
该程序段运行后，在标签Label1上显示的是____________。

如右图所示流程图片断，该流程图中循环部分结束后，变量S的值是(    )

A．5	B．15
C．25	D．36

写出下列程序的输出结果
Sub test3()
For i =" 0" To___1___step 1
s = ""
For j =" 1" To 2 * i + 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （  ）

A．123

B．321

C．12345

D．54321

写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（   ）

A．39

B．15

C．17

D．13

下列程序在调试时，文本框Text2不能输出最后的结果，已知①和②处存在唯一错误，请问错误出在 （填①或②）处，该处正确的语句应该为 。
Dim x As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
x = Val(Text1.Text)    ' ①
a =" x" \ 100
b =" x" \ 10 Mod 10
c =" x" Mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max =" a" * 100 + b * 10 + c
Text2.Text =max    ' ②

下面程序执行的结果是（  ）
Private Sub Form_Load()
A="123":B="456"
C=Val(A)+Val(B)
Print C\100
End Sub

A．123

B．3

C．5

D．579

有如下Visual Basic程序段：
a="2"
b=5
c=4
If a>b or c<b Then m="a-b" Else m=b-c
该程序段运行后,变量m的值为_______。

由于月球上没有大气，嫦娥三号无法依靠降落伞着陆，只能靠变推力发动机，才能完成中途修正、近月制动、动力下降、悬停段等软着陆任务，物体在月球上的重力加速度g=1.63m/s²，m为嫦娥三号的自身质量，N表示嫦娥三号产生的推力，并且推力会随着距离x的变化而改变，恒月运动数率具体公式如下：

算法流程图如下：

图中判断框②处应填入的是（   ）

A．x≤100

B．x≥4

C．x≤4

D．x>100

某算法的流程图如下所示：

下列说法错误的是（   ）

A．该流程图中包含的算法模式有：顺序模式、分支模式和循环模式

B．当输入x的值为-100时，输出的n的值为1

C．只要输入的x的值不小于0，该程序就不会结束

D．当输入 x的值依次为1、2、3、－1时，输出的结果为4