“如果a,b中任意一个为0，那么y=y+1”，能实现该功能的VB语句是(   )

A．If a=0 And b=0 Then y=y+1	B．If a*b=0 Then y=y+1
C．If a=0,b=0 Then y=y+1	D．If a∙b=0 Then y=y+1

现要求编写 VB 程序实现如下功能：在文本框 Textl 中输入正整数 n (n 为奇数），单击 “生成” 命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为"1 3 …n-2 n n-2 3 1" 。例如 n=9 时，显示的数字串为 “1 3 5 7 9 7 5 3 1”

（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If   i<= n \2 + 1   Then
s = s + Str (2*i-1)
Else
s = s + ②__________ 
End If
Next  i
③__________
End Sub

（加试题）有如下VB程序段：
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
EIse
a(i)=a(i)/2
End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

在VB中，下列选项不能实现交换变量a和b的值的是_______。

A．a=a+b:b=a-b:a=a-b

B．t=b:b=a:a=t

C．t=a:a=b:b=t

D．a=b:b=a-b:b=a

二进制数存储在字符串变量s中，使用“位权累加”法将二进制转换成十进制。结果存在整数变量ans中，整型变量ans初值为0。例如将二进制数“1001”存储在变量s中，下列能表示将最高位的“1”转换结果的VB语句是（   ）

A．ans=ans+2^(len(s)-1)

B．ans=ans+2^(len(s)-2)

C．ans=ans+2^(len(s)-3)

D．ans=ans+2^(len(s)-4)