数组a中的数据存放情况如下表，以下关系表达式成立的是（  ）。

a1	a2	a3	a4	a5	a6	a7	a8
1	3	4	12	8	6	5	7

 

A．aa3= 4

B．aa8= 8

C．a6>a5-aa1+1

D．aa2+a1<>a4

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT   A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

A．6

B．7

C．8

D．9

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

算法流程图如下：

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

A．x≤100

B．x≥4

C．x≤4

D．x>100

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。
（1）若想要在程序启动时清空文本框Text4中显示的内容，需要在Form_Load()中添加________（单选，选填字母：

A．Text4.Caption=""

B．Text4.Text=""

C．Text4.Clear）语句。

（2）相应的Visual Basic程序如下，在①、②、③划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text2.Text)

 ①______

    If ch = "+" Then
Text4.Text = Str(a + b)
ElseIf ch = "*" Then
Text4.Text = Str(a * b)
ElseIf ch = "-" Then
Text4.Text = Str(a - b)
ElseIf ch = "/" Then
If ②__________Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能为零"
Else

③____

    End If
End Sub