填空题

阅读下面程序，子过程Swap的功能是实现两个数的交换，请将程序填写完整。

Public Sub Swap(x As Integer, y As Integer)

Dim t As Integer

t = x : x = y : y = t

End Sub

Private Sub Command_Click()

Dim a As Integer, b As Integer

a = 0 : b = 0

【】

Print "a = "; a , "b ="; b

End Sub

下列程序中，fac是求n!的递归函数，请将程序填写完整。

Public Function fac(n As Integer)

If n =  Then fac =

Else fac = 【】

End If

End Sub

如下程序，运行的结果是 【】 ，函数过程的功能是 【】 。

Public Function f(ByVal n% , ByVal r%)

If n <> 0 Then

f = f(n ，r)

Print n Mod r；

End If

End Function

Private Sub Command_Click()

Print f(00，)

End Sub

如下程序，运行的结果是 【】 ，函数过程的功能是 【】 。

Public Function f(m% , m%)

Do While m <> n

Do While m > n ：m = m – n ：Loop

Do While m < n ：n = n – m ：Loop

Loop

f = m

End Function

Private Sub Command_Click()

Print f(，)

End Sub

两质数的差为，称此对质数为质数对，下列程序，是找出00以内的质数对，并成对显示结果。其中IsP是判断m是否为质数的函数过程。

Public Function IsP(m%) As Boolean

Dim i%
【】

For i =  to Int(Sqr(m))

If 【】 Then IsP = False

Next i

End Function

Private Sub Command_Click()

Dim i%

p = IsP()

For i =  to 00 step

p = IsP(i)

If 【】 Then Print i-；i

p 【0】

Next i

End Sub

统计输入的文章中单词数，并将出现的定冠词The全部去除，同时统计删除定冠词的个数。假定单词以一个空格间隔。

Public Sub PWord(s% ,CountWord% ,CountThe%)

Dim len%，i%，st$
CountWord = 0 ：CountThe = 0

st = Trim(s)

【】
Do While i > 0

CountWord = CountWord +

st = 【】

i = InStr(st，" ")

Loop

CountWord = CountWord +

st = Trim(s)

【】

Do While i > 0

CountThe = CountThe +

st = 【】

i = InStr(st，"The")

Loop

【】

End Sub

全局变量必须在__【】__模块中定义，所用的语句为__【】__。

设有以下函数过程：
Function Fun (m as Integer) As Integer
Dim k As Integer, Sum As Integer
Sum =0
For k = m To  Step -
Sum =Sum +k
Next k
Fun =Sum
End Function
若在程序中用语句 s =fun(0)调用此函数，则s的值为 【】 。