小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（    ）。

A．①a = n Mod 2    ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2  ③ s = Str(a) + s

C．①a = n Mod 2    ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2  ③  s = s +Str(a)

一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long    '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______

Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环

已知a=-2，b=5，c=8，下列表达式的值为False的是（   ）

A．a+b>b-c And a-c<a-b

B．a+c>b-c or Not b<c

C．a<c\b Or b>c And a<c

D．c mod a<a-b

有如下的程序段：
x=5:y=9
If  Not(x>y) then
x= x+y
else
x=x-y
End if
执行结束后，变量x的值为（  ）

A．-4

B．4

C．14

D．5

在Visual Basic中，若a=4，b=3，c=10，则执行完下列语句后，变量c的值为(    )
If a+b>c Then
c=a+1
Else
c=b-1
End If

A．2

B．10

C．5

D．4