两质数（素数）的差为2，称此对质数为质数对。下列程序是找出n以内的质数对，并成对显示结果。其中，函数s判断参数m是否为质数。请完成以下问题： Function s(m) As Boolean Dim i As Integer ______1_______ For i = 2 To Int(Sqr(m)) If m / i = 0 Then s = false ‘3...

题型：综合题题类：常考题难易度：困难

浙江省绍兴市诸暨中学2015-2016学年高二上学期期中考试信息技术试卷

两质数（素数）的差为2，称此对质数为质数对。下列程序是找出n以内的质数对，并成对显示结果。其中，函数s判断参数m是否为质数。请完成以下问题：

Function s(m) As Boolean

Dim i As Integer

______1_______

For i = 2 To Int(Sqr(m))

If m / i = 0 Then s = false ‘3

Next i

End Function

Private Sub Command1_click()

Dim i, n As Integer

Dim p1, p2 As Boolean

n = Val(Text1.Text)

p1 = s(3)

List1.Clear

For i = ______2_____

p2 = s(i)

If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i) ‘4

p1 = p2

Next i

End Sub

（1）、在设计界面时，将窗体标题设置为“寻找质数对”，应该修改的属性是

（2）、代码中画线处1应填入，画线处2应填入

（3）、代码中3和4画线处的代码有误，3处应改为,4处应该为

举一反三

【加试题】找出100到1 000之间满足以下条件的整数：该数和冥半万数合开后组成的数字串中不存在重复的数字。例如209，其平方数为43 681，209和43 681合并后的数字串“20943681”中无重复数字，209就是符合条件的数。运行界面加图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim x As Integer，Y As Long，st

As String

For x=100 To 1 000

y=x^2

st=x&y ‘将数字x和y合并成不含空格的数字串st

If Then ‘①

List1. AddItem Str(x)&" "& Str(y)&" "&st

EndIf

Next x

End Sub

Function judge(s As String)As Boolean

Dim a(1 To 100)As String，i As Integer，j As Integer

judge=False

For i=1 To Len(s)

a(i)=Mid(s，i，1)

Next i

For i=1 To Len(s)-1

For j=i+1 To Len(s)

If Then Exit Function ‘②

Next j

Next i

judge=True

End Function

某VB程序段代码如下：

Private Sub Command1_Click()

a = Text1

For i = 1 To Len(a)

b = Mid(a, i, 1)

c = Chr(Asc(b) )

d = d + c

Next i

Text2 = d

End Sub

如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：（）

某VB程序的一个事件处理过程如下：

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Text1.Text = Str(Sqr(a))

End Sub

程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因可能是（）

普源为晚上的班级联欢会设计了一个抽奖程序，将所有同学的编号和对应的姓名分别保存在数组a（全班共50个同学，编号为1到50）和数组b中，程序会随机产生一个1到50的正整数（同时包括1和50），作为中奖编号。

程序界面如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。

解决此问题的程序段如下，请在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

Dim a(1 To 50) As Integer

Dim b(1 To 50) As String

Function search(m As Integer) As Integer

search = 0

For i = 1 To 50

If m = a(i) Then

search = a(i)

End If

Next i

End Function

Private Sub Command1_Click()

Dim c As Integer,t as integer

Randomize

{#blank#}1{#/blank#}

Label3.Caption = Str(c)

t = search(c)

If t <> 0 Then

Label4.Caption = "恭喜" + {#blank#}2{#/blank#} + "同学"

End If

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

待入栈的序列 a 有多种出栈序列，以下函数用于判断序列 b 是否是 a 的出栈序列，代码如下：

def judge(a, b):

n=len(a) ;st=[- 1]*n

top-= 1; i=j=0

while i<n:

top+= 1

①

i+= 1

while top> - 1 and ② :

top-= 1

j+= 1

return top==- 1

from random import shuffle

a=[1,2,3,4, 5]

b=[1,2, 3, 4, 5]

shuffle (b) #将序列 b 的元素随机排序

if judge(a, b):

print (b,'是' ,a,' 的出栈序列')

else:

print (b,'不是' ,a,' 的出栈序列')

程序运行结果如图所示。划线处应填写的语句是（）

Python语言中用来定义函数的关键字是（）。

相关试卷

公司介绍

服务介绍

帮助中心