以下程序，单击按钮 Command1后，其结果是（    ）
Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 5: b = 3

Print work(a, b)

End Sub
Function work(x As Integer, y As Integer) As Integer

If (x < y) Then

work = 0

Exit Function

End If

If (y = 0) Then

work = 1

Exit Function

End If

work = work(x - 1, y - 1) + work(x - 1, y)

End Function

A．8

B．9

C．10

D．11

问题：在“1390773”号段的 11 位手机号码中，统计出最后两位数字相同的号码个数。如 13907735200、13907738366 是符合条件的两个号码。
算法描述如下图所示。请将程序补充完整。

Private Sub Form_Click() 
Dim a As Integer, b As Integer
Dim i As Integer, s As Integer

s=0

For i=10000 To 19999

a=①_____

b=(i Mod 100)\10

    If a=b Then
s=②____
End If
Next i

Print "最后两位数字相同的号码个数有：" ;③_____ 

End Sub

下列Visual Basic程序段运行后，变量x的值为（    ）
x="3:" y=50
Do while x < sqr(y)
x=x+2
Loop

A．7

B．8

C．9

D．10

有如下Visual Basic程序段，用于计算前n个自然数之和。程序划线处应填写的语句是（  ）
s =" 0:" i = 1
n = Val(Text1.Text)
Do While i < n
s =" s" + i
i =" i" + 1
 
Label1.Caption = Str(s)

A．Loop	B．Next i
C．End If	D．End Sub

对一段字符（仅包含大小写字母和数字）加密，加密规则为：①字母和数字都往后循环顺移3位，如“a”变为“d”，“y”变为“b”；“0”变为“3”，“7”变为“0”②加密后字母在前，数字在后③字母按逆序排列，数字按顺序排列，如输入明文“ab7Z8x3”，这密文为“aCed4016”。
小王利用VB程序实现这一加密功能，程序界面和代码如下所示：
（1）根据程序代码分析，“加密”按钮的名称是_____________________________。
（2）根据加密规则，明文“9G78fbY5”，则密文为__________________________。
（3）请在画线处填入合适的代码：

Private Sub Com_ jm_ Click()
Dim x As String, ch As String, cl As String
Dim sl As String, s2 As String, s As String
Dim i As Integer, n As Integer, y As Integer
x= Text1. Text
n=Len(x)
For i=1 To n
ch= Mid(x, i, 1)
If ch >= "0" And ch <= "9" Then
①_____________
s2=s2 & y
Elself ch >="a" And ch<="z" Then
y=(Asc(ch)-Asc("a")+3)Mod 26
②_______________
s1=c1+s1
Else
y=(Asc(ch)- Asc("A")+3) Mod 26
c2=Chr(Asc("A")+y)
s1=c2+s1
End If
Next i
③________
Text2 Text=s
End sub