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

A．64

B．13

C．61

D．62

Sub test1()
a=320
a1="a\100"
a2=(a-100*a1)\10
a3="(a-100*a1-10*a2)"
B=100*a3+10*a2+a1
MsgBox B、
End sub
该程序的运行结果是 （  ）

A．320

B．32

C．230

D．23

下面是一段关于计算变量S的算法，下列能正确描述S的算式是（  ）
①变量S的初值是0，变量T的初值是1，循环变量A的初值为1；
②循环变量A从1循环到100，且步长为2，做第③步中的2个语句；
③ T="-T:" S=S+A*T
④输出变量S的值

A．1+3+5+7…+100	B．1+3+5+7…+99
C．1-3+5-7…-99	D．-1+3-5+7…+99

下列运算结果中，值最大的是(    )

A．3\4

B．3/4

C．4 mod 3

D．3 mod 4

TEXT1.TEXT=C和C=" TEXT1.TEXT" 都没有语法错误；（   ）

Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i  *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（   ）

A．126

B．-126

C．-42

D．42

Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（   ）

A．2

B．120

C．30

D．60

在数组变量A中，A（1）、A（2）、…、A(10依次放了1号、2号、…、10号同学的成绩，下面一段程序的功能是实现反次序在列表框list1中输出这10个同学成绩，即输出次序为： A（10）、A（9）、…、A(1)， 程序段如下：
Dim A(-20 To 20) As Integer
for i=① to ② step ③
List1.AddItem A( ④ )
Next i
上程序中的①,②,③,④依次填入有下面几个可能答案：
（1）、 10，  1，  -1， i
（2）、  1， 10，  1， 11-i
（3）、 -5，  4,    1,  5-i
（4）、0.2,   2,  0.2,  11-i/0.2
上面答案中，正确的有（  ）

A．1个

B．2个

C．3个

D．4个

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
      
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？

A．1个

B．2个

C．3个

D．4个

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

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