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

A．1个

B．2个

C．3个

D．4个

如果要保持上程序的算法（输出结果）不变，下面说法正确的是(    )

A．这行If x < y Then t =" x:" x =" y:" y = t可去掉；

B．这行a =" x:" b = y可去掉，MsgBox (Str(a * b / s))改成MsgBox (Str(x * y / s))就可以了；

C．输出结果是a,b的最大公约数；

D．上面说法都错；

设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________  then
s = s+n
end if
n = n + 1
loop
print  s

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（   ）

程序1： If m<n Then t=m：m=n：n=t End If Do While m Mod n＜＞0 r=m Mod n m=n n=r Loop Text1.Text=Str（n）

程序： 2n2 Do Whife m 程序2 Do While m＜＞n Do While m＞n m=m-n Loop Do While n>m n=n-m Loop Loop Textl.Text=Str（n）

 

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

国际标准书号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
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________