试题 试卷
题型：单选题 题类：模拟题 难易度：困难
浙江省杭州市2015年高考模拟命题比赛信息技术 (2)
Function f(n As Integer) As Integer
If n < = 1 Then
f = 1
Else
f = n * f(n - 1)
End If
End Function
该模块采用的算法是（ ）
请根据算法将下列程序补充完整。
Function prime（a As Integer） As Boolean
Dim j As Integer
prime = True
j = 2
Do While prime And j <= a \ 2
If a Mod j = 0 Then
prime = False
Exit Do
{#blank#}1{#/blank#}
Loop
Private Sub Command1_Click（ ）
Dim i As Integer, a As Integer, b As Integer
Dim count As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i = a To b
If {#blank#}2{#/blank#} = True Then
List1.AddItem Str（i）
count = count + 1
Next i
Label1.Caption = "素数共有" + Str（count） + "个!"
End Sub
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1个正整数
y=Val(Text2.Text) ‘第2个正整数
‘调用函数gcd
Text3.Text=Str(z)
Function gcd(a As Integer, b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
gcd=b
方框中的正确语句是（ ）
实现上述功能的程序如下，请在划线处填入合适的代码。
def isprime(x):
for i in range(2,x):
if {#blank#}1{#/blank#} :
return False
return True
n=int(input("请输入一个正整数 n:"))
c=0
k=3
while k<=n-2:
if isprime(k) and {#blank#}2{#/blank#} :
print(k,k+2)
{#blank#}3{#/blank#}
k=k+1
print("共有"+str(c)+"对双胞胎数")
1)查找相邻两个非降序数据段：在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后面没有元素，则本轮处理完毕：否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。
2)合并两个数据段：借助数组tmp．将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。
3)若数组中还有未处理的数据，则重复(1)(2)步骤。每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据已构成非降序数据段，数据处理结束。
一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。
n！＝ 现求n！。
def f（n）： #定义递归函数f（n）
if n＝＝0 or n＝＝1：
return 1 #定义当n为0时函数返回值为1
else：
return {#blank#}1{#/blank#} #递归定义n≥1时的通项公式
{#blank#}2{#/blank#}＝int（input（"请输入n："）） #从键盘上输入n的值
print（"n！的值为：", {#blank#}3{#/blank#}） #输出结果
试题篮
‘调用函数gcd
现求n！。