国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
　Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer
　Dim jy As Integer
　s＝Text1.Text
　t＝0：sum＝0
　For i＝1 To Len(s)
s1＝Mid(s，i，1)
If s1>＝”0” And s1<＝”9” Then
　′①
　If t<10 Then
sum＝sum＋Val(s1)*(11－t)
　ElseIf t＝10 Then
　　　　′②
　 End If
End If
　Next i
　sum＝11－sum Mod 11
　If  Then′③
Text2.Text＝”该校验码中数字不是10位数！”
　Else
　If　jy＝“X”　and sum＝10 Then
Text2.Text＝”校验通过”
　ElseIf　val(jy)＝sum then
Text2.Text＝”校验通过”
　Else
Text2.Text＝”校验不通过”
　End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：


(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub

小陈同学编写了一个VB程序，其功能是：比较两个数a和b的大小，然后输出其中较大的数。以下是他的程序段，在划线处应填写 (   )
If     Then
max=a
Else
max=b
End If
Print “较大的数是”;max

A．a>b

B．a<b

C．max<a

D．max<b

输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
      
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？

A．1个

B．2个

C．3个

D．4个