有如下VB程序段:
Dim a(1 To 5)  As  Integer
Pos=-1
i=1
Do While i<=10
If  i Mod 2=0  Then  a(i)=i*2  Else  a(i)=i
i=i+1
Loop
i=10
Do While  i>=1
If  a(i)=12  Then  Pos=i
i=i-1
Loop
该程序段运行后,变量Pos值是(  )

A．1

B．2

C．6

D．10

小徐编写程序计算1+2+3+4+...+100的和。但是发现他的程序不能给出正确答案。请你帮他查找程序中错误的地方，并予以改正。

 

第___句存在错误，
该句应该改为________________（完整书写）

.某程序代码如下：（  ） Dim count As Integer
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（ ）

A．13

B．2

C．3

D．4

求2+4+6+8+10+12+14+……100
PRIVATE   SUB    FORM-------CLICK（ ）
S=0
DIM   I   AS  INTEGER，S   AS  INTEGER
FOR  I= 2  TO  100 ________1
S=S+________2
NEXT  I
PRINT   S
END   SUB

有如下 VB 程序段：
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
For i = 1 To 2
For j = 1 To 5 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.text=a(j)
Next i
执行该程序段后，文本框Text1显示的内容为（   ）

A．34	B．123
C．231	D．234