在编程中经常要交换两个非零变量的值，以下方法中，能实现a、b两个数值型变量交换的是（ ）。（“：”号作用为分隔2句语句）

A．T="a" ：  a="b" ：  b=T

B．a="b" ：  b=a

C．a="a+b" ：   b="a-b" ：   a=a-b

D．a="c" ：  c="b" ：  b=a

关于以下流程图的描述中，正确的是（ ）。

A．执行后变量s的值一定小于20

B．循环体共计被执行了20次

C．该循环结构的类型为直到型循环

D．该算法的功能是：求2+5+8+11的和

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如下图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While '（1）  

i <=" n" - 1 Or flag = True

flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop

Str(i)

Label3.Caption = "排序过程的加工遍数为" +    '（2）

For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub

对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
N=Len(s)
K=0:j=n
For i =" 1" To  n/2

Nexti
If k =" 0" Then Label1.Caption =”对称” Else Label1.Caption=”不对称”
方框中的代码由以下三部分组成：
①j=j-1
②If cl <>c2 Then k =" k" + 1
③c1=" Mid(s,i,1)" : c2 = Mid(s,j,1)
代码顺序正确的选项是

A．①③②

B．②③①

C．③②①

D．②①③

某VB程序段如下：
a="“Visual" Basic 6.0”
b=Mid(a,1,6)
c=“C++”
Text1.text=b+c
该程序段运行后在文本框Text1中显未的内容是(   )

A．“Visual Basic 6.0C++”	B．b+c
C．“VisualC++”	D．“IC++”

完全数又称完美数或完备数，指它所有的真因子(即除了自身以外的约数)的和恰好等于它本身，例如6=1+2+3。完成下列程序，查找并输出1000以内的完全数。

程序中划线处应填入的语句是(1)____________ ___ (2)__________________
Private sub command1_click
Dim  n as integer
Dim  i as integer
Dim  s as integer
For n="2" to 1000
S=0
For i="1" to n\2
If ____(1)_____   then s=s+i
Next i
If s=n  then  list.AddItem  str(n)
__(2)______
End sub

小贝对街机中的”打手掌”游戏很感谢兴趣，于是也用VB做了个打手游戏，界面如图。点击开始按钮command1，标签label1开始从3秒倒计时，倒计时结束开打，如果打中手掌，label1显示”打中了”,如果超过去3.1秒，则显示”没打中”,游戏结束。点开始按钮可以重来。请根据题意将下列程序补充完整。

Dim   t  As Integer   ‘t用来计时
Private Sub Command1_click( )
Image1.left=64
Label1.caption=””
t=0
Timer1.interval=100
（1）______________
Image1.Enabled=False
End sub
Private Sub Image1_click( )
Timer1.Enabled=False
Image1. Enadled=False
Label1.caption=”打中了”
End Sub
Private Sub Timer1.Timer( )
t =" t" +1
if t<="30" then label1.caption=3-int(t/10)
if t>32 then
label1.caption=”没打中”
For i="1" to 10   ‘手迅速移开的动画
Image1.left=Image1.left-20
For j="1" to 10000
Doevents
Nextj
Next i
Timer1.Enabled=False
Image1.Enabled=False
End if
If t="30" then
‘当t=30时，即倒计时3秒结束，允许开打，对象image1开始允许响应事件
­­­­（2）_____________
End if
End sub

某Visual Basic工程的相关视图如下图所示：

从图中信息可知，下列说法不正确的是(  )

A．窗体中有一个按钮对象，名称为Command1

B．该程序中用到了Timer控件

C．当前代码窗口中显示的事件处理过程名为“Command1_Click”

D．该工程的窗体文件名“snow.vbp”

小庄编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的数据序列，其 “升序段”的个数等于3)的VB程序。部分程序如下：

k = 0 ： s = 0
For i =" 2" To n
If a(i) > a(i - 1) Then

Else
If k =" 1" then
s=s+1
k=0
end if
End If
Next i
Textl.Text = Str(s)
方框中的正确语句是(    )

A．k =" k" - 1	B．k =___1___
C．k = -1	D．k =" k" + 1

某VB程序的一个事件过程如下:
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem   str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是 （ ）

A．溢出	B．下标越界
C．类型不匹配	D．无效的过程调用或参数