有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（  ）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub

A．3	B．6
C．10	D．18

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

A．对象名

B．属性名

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________

下列选项中，正确的赋值语句是_____。

A．20=X=Y=Z

B．A+B=C+D

C．S=3.14*R^2

D．-X=X

数组的维数由（_______）的个数决定，数组的最小下标从1开始，要在声明段中用（___________________）语句说明.

将数学表达式写成Visual Basic表达式，正确的是(   )。

A．Sqr(b*b-4a*c)

B．Sqr(b*b-4*a*c)

C．Str(b*b-4*a*c)

D．Sqr(b*b-4ac)