下列递归算法的功能是计算正整数n阶乘的值，则划线处应填为______________
Function f(n As Integer) As Long
If n < = 1 Then
f = 1
Else
f = _________________
End If
End Function

程序修改题，每小题①②③④处有1处错误，找出并改正

（1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。 a = 1：b = 2 ① If a > b Then ②   c = a Else ③ c = b End If ④ Text1.Caption = Str(c) 错误在______处，改为_______________。

（2）下列程序的功能是标签Label1中显示1+2+3+…+10值。 Dim s As Integer Dim i As Integer ① s = 0 ② For i =" 1" To 10 ③   s = i Next i ④ Label1.Caption = Str(s) 错误在______处，改为_______________。

 

有如下VB程序段：   

该程序段运行后，变量y的值是（   ）。

A．4

B．6

C．9

D．12

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

写出算法执行结果