全国计算机等级考试VB语言考试试题答案（21）
|
填空题 阅读下面程序，子过程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$ st = Trim(s) 【】 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 全局变量必须在__【】__模块中定义，所用的语句为__【】__。 设有以下函数过程： |
