变量a 中存储了一个字符,能够正确判断该字符为数字字符“0”~ “9”的VB 表达式是(  )

A．Asc(a)>=0 Or Asc(a)<=9	B．“0”<=a<=“9”
C．a<=“0”Or a>=“9”	D．a>=“0”and a<=“9”

下列能作为赋值语句的是（ ）

A．15=j

B．a+b=65

C．t=True

D．i=100-j And j=2

某算法的流程图如下所示,该算法实现的功能是（  ）

A．求a，b的和

B．求a，b的差

C．交换a，b的值

D．求a，b的较小值

将文本框 Text1 内输入的数据送到字符型变量 n 中，则应使用的语句是（   ）

A．n=Text1

B．n=Text1.Text

C．n=Val(Text1.name)

D．n=Val(Text1.Text)

对于 Visual Basic 语句 If b=2 Then s=s*2 Else s=s/2，下列说法正确的是（   ）

A．b=2 为赋值语句

B．s=s*2 和 s=s/2 均为赋值语句

C．s=s*2 和 s=s/2 均为关系表达式

D．s=s*2 为关系表达式，s=s/2 为赋值语句

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ①   Else  ②   
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写(    )

A．①s=Str(2*n-i)    ②s=Str(i)	B．①s=s+Str(2*n-i)  ②s=s+Str(i)
C．①s=s+Str(2*n-1)  ②s=s+Str(2*n)	D．①s= Str(2*n-1)   ②s= Str(2*n)

小刘编写了一个求序列所有子序列和的程序。程序能够输 出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素 a(1)，a(2)，a(3)，其子序列包括“a(1)，a(2)”，“ a(1)，a(2)，a(3)”，“ a(2)，a(3)”。 程序运行界面如图所示。

实现上述功能的VB程序如下（数组每一项的值都为［-100,100］内的随机整数），请将程序代码补充完整。
Private Sub Command1_Click()
Dim  a(1 To 10) As Integer
Dim b(10) As Integer
Dim i As Integer, j As Integer
Dim k As Integer, max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)= 0
For i=1 To 10
a(i)=___________    '(1)
b(i)=b(i-1)+a(i)
List1.AddItem  Str(a(i))
Next i
For  I = 1 To 10
For  j=i+1  To  10
s="a("+Str(i)+")"+"至"+"a("+Str(j)+")"+"的和为"
k=_______________     '(2)
If  k>max Then  max=k
List2.AddItem s+Str(k)
Next j
Next i
Label3.Caption="子序列最大和为："+___________ '(3)
End Sub

已知a=5、b=6，则执行如下语句后
a = a + b
b = a + b
a和b的值分别为（  ）

A．11、17

B．11、11

C．17、11

D．5、6

在VB中，已知a=3，b=5，运行下列程序段后，a和b的值为（  ）
a = a * b
b = a / b
a = a / b

A．a=3  b=5	B．a=15  b=3
C．a=5  b=5	D．a=5  b=3

下列赋值语句正确的是（  ）

A．x+3=y－2	B．d=d+2
C．0=a	D．x－y=1