在Visual Basic中，若x是正整数能被3整除，则下列逻辑表达式值一定为真的是___ 。

A．x Mod 3 = 1	B．x Mod 3 = 2
C．x Mod 3 = 0	D．x Mod 3 = 3

（加试题）幸运数。一组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)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________

数组d的初始值如下表所示，则d[d[3]]+d[4]的值是______________。

d[1]	d[2]	d[3]	d[4]	d[5]	d[6]
2	4	6	8	10	12

 

某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是

A．2，True

B．3，True

C．2，False

D．3，False

关于常量和变量，以下叙述正确的是( )

A．遵循“先定义，后使用”的原则，使用变量只需定义变量名

B．字符串常量不能是空字符串

C．变量X的值是1023读取X的值以后，X的值不变

D．逻辑型常量只有两个，分别是Yes和No

在VB中，下列选项能用作变量名的是（  ）

A．x2

B．3y

C．x+2

D．3+y

在VB中，下列选项属于字符串型数据的是（  ）

A．5

B．9.8

C．“abc”

D．False

某Visual Besic 程序如下：
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10

a(i)=i*i

Next i
List1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（  ）

A．下标越界	B．子程序或函数未定义
C．溢出	D．类型不匹配

在文本框Text1中输入十进制数，将其转换为二进制数后在标签Labell上输出。VB程序段如下：
Dim x As Integer，s As String，t As Integer
x=Val(Text1.Text)
Do While x>0

Loop
Labell.Caption= s
方框中的代码由以下三部分组成：
①x=x\2
②s=Str(t)+s
③t=x Mod 2
代码顺序正确的选项是( )

A．②①③

B．①③②

C．③②①

D．①②③

FOR  EACH后的变量必须是（_________）型的。