素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。请根据算法将下列程序补充完整。 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 End If Loop End Function 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=True Then List1.AddItem Str(i) count=count + 1 End If Next i Label1.Caption=“素数共有” + Str(count) + “个!” End Sub

0 返回首页

1. 素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。

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

End If

Loop

End Function

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=True Then

List1.AddItem Str(i)

count=count + 1

End If

Next i

Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

【考点】

过程与自定义函数;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

基础巩固

能力提升

变式训练

拓展培优

换一批

1. 在过程调用中，参数的传递可分为传递和传递两种方式。

填空题容易

1. 校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：

(1) 若要使程序运行时，命令按钮Command1上显示为“计算”，可以在事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：A .Form_Load/B .Form1_Load/C .Command1_Click/D .Form1_Start）

(2) 实现上述功能的VB程序如下，请在划线处填入合适代码。

Const maxn = 500005

Dim n As Long， a As Long， b As Long

Dim f(1 To maxn) As Long

Dim i As Long， tby As Long

Private Sub Command1_Click()

tby = 1

n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)

For i = 1 To n

f(i) = Getin()

Next i

Dim l As Long， r As Long， m As Long

l = 0: r = n

Do While l <= r

m = (l + r) / 2

If Then

r = m - 1

Else

l = m + 1

End If

Loop

Label1.Caption = Str(r + 1)

End Sub

Function check(x As Long)

Dim y As Long

y = x

For i = 1 To n

Dim tmp As Long

If tmp > 0 Then

If y < 0 Then

check = True

Exit Function

End If

Next i

check = False

End Function

Function Getin() As Long

Dim aaa As String

aaa = Mid(Text4.Text， tby， 1)

If aaa = " " Then tby = tby + 1

aaa = Mid(Text4.Text， tby， 1)

Dim bbb As Long

bbb = 0

Do While aaa <> " " And tby <= Len(Text4.Text)

bbb = bbb * 10 + Val(aaa) : tby = tby + 1

aaa = Mid(Text4.Text， tby， 1)

Loop

Getin = bbb

End Function

(3) 程序中加框处代码有错，请改正。

综合题困难

1. 有如下程序段：

def cal(n):

if n <= 1:

return 1

if n % 2 == 0:

return 2*cal(n-1)

return 1+cal(n-1)

执行语句k=cal(5)，则k的值为（）

A. 6 B. 7 C. 10 D. 11

单选题普通

2. 以下关于函数过程的叙述中，正确的是（）

A. 函数过程形参的类型与函数返回值的类型没有关系 B. 在函数过程中，过程的返回值可以有多个 C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D. 如果不指明函数过程参数的类型，则该参数没有数据类型

单选题普通

3. 在VB中，设已定义函数过程f，它有三个整型参数。设a，b，c为整型变量，则下列能调用该函数的正确语句是（）

A. f B. f（a，b+c） C. f（a，b+c，c-a） D. f a，b+c，c-a

单选题普通

1. 在计算机的操作系统中，经常需要给应用程序“分配内存”和“释放内存”。若有大小为1024B的内存，如1图所示：

使用列表["+",5]表示申请连续5B的内存，使用列表[2,2]表示回收位置2开始连续2B的内存。若指令集表示为：order=[["+",5],[2,2],["+",8],[8,3]]。随着指令集被执行，1024B连续的内存块会被分割成若干个占用内存和空闲内存。为方便起见，“占用内存”用1表示，“空闲内存”用0表示，故执行上述指令集后，内存占用情况如2图所示：

若将空闲块用链表组织起来，就可以快速查找空闲块和删除空闲块。把连续的空闲块定义为一个节点，每个节点由[空闲块起点, 空闲块长度, 下一个空闲块位置]三部分内容构成。根据2图内存占用情况，创建的空闲块链表如3图所示：

(1) 根据2图所示的内存占用情况，执行指令[4,4]后（连续空闲块要合并），内存中“空闲块”的数量变为个。

(2) 根据内存占用情况列表allot，创建空闲块链表代码如下：

def linkList(allot): #linkList函数功能：根据内存占用0/1列表allot，创建空闲块链表link

link = [ [-1,-1,-1] ] #链表包含一个空头节点

head = tail = 0 ; n = len( allot ) ; i = 0

while i < n :

if allot[ i ] == 0 :

j = i + 1

while j<n and allot[ j ] == 0:

j = j + 1

link.append( [ i , j – i , -1 ] )

link[ tail ][ 2 ] = ▲

tail = len( link ) - 1

else:

i += 1

return head , link

请在▲处填入合适的代码。

若将加框处的代码修改为i = j，是否影响程序的执行结果(选填：是/否)。

(3) 模拟上述内存操作的Python程序如下，请在划线处填入合适的代码。

#通过文件读入内存分配表allot和指令集order，其代码略。

head , link = linkList ( allot )

for i in range( len( order ) ):

if order[ i ][ 0 ] == " + ": #必须分配连续的空闲块，且由第一个满足空间大小的节点分配

p = head ; q = link[ head ][ 2 ]

while :

p = q ; q = link[ q ][ 2 ]

if q == -1:

print( "内存不足！" )

else:

if link[q][1] == order[i][1]:

else:

link[ q ][ 0 ] = link[ q ][ 0 ] + order[ i ][ 1 ]

link[ q ][ 1 ] = link[ q ][ 1 ] - order[ i ][ 1 ]

else:

p = head ; q = link[ head ][ 2 ]

while q != -1 and link[ q ][ 0 ]<order[ i ][ 0 ]:

p = q ; q = link[ q ][ 2 ]

if link[ p ][ 0 ] + link[ p ][ 1 ] == order[ i ][ 0 ]: #前面节点合并

link[ p ][ 1 ] = link[ p ][ 1 ] + order[ i ][ 1 ]

else:

link.append([ order[ i ][ 0 ] , order[ i ][ 1 ] , q]) #添加节点

link[ p ][ 2 ] = len( link ) - 1

p = link[ p ][ 2 ]

if q != -1 and : #后面节点合并

link[ p ][ 1 ] = link[ p ][ 1 ] + link[ q ][ 1 ]

link[ p ][ 2 ] = link[ q ][ 2 ]

综合题困难

2. 某网约旅游小巴士，核载乘客m人（不算司机），途径n个景点（编号从1到n），小巴士从1号景点向n号景点行驶，中途不改变方向。游客提供订单号，由3个数字组成分别是：乘客人数、上车景点编号、下车景点编号。如订单“2,1,5,”（数字之间用逗号“,”分隔，并以逗号结尾）表示2位乘客从1号景点上车5号景点下车。编写python程序，读取已经预约成功的订单信息，并判断新提交的订单能否预约成功。

设m=12，n=10，如图a所示，是已经预约成功的5个订单对应的各景点车上人数。当输入新的订单号：“4,5,8,”，程序提示预约不成功，如图b所示。


图a	图b

(1) 结合题意与图a，若输入订单号为“3,6,9,”，（选填：能/不能）预约成功。

(2) 实现上述功能的python程序如下，请在划线处填写合适的代码。

#定义函数，读取订单中的人数和上下车景点编号

def order(s):

num,start,end=0,0,0

j,k=0,1

for i in range(len(s)):

if ch==",":

tmp=int(s[j:i])

j=i+1

if k==1:

num=tmp

elif k==2:

start=tmp

elif k==3:

end=tmp

return num,start,end

#主程序

#读取已预约成功订单，存入列表 lst，数据元素为订单号

# 如 lst=["2,1,5,","1,3,7,","3,2,8,","2,4,7,","3,5,10,"]

n=10 #站点数

m=12 #巴士空座位总数

count=[0]*(n+1)

for i in lst: #处理预约成功订单

num,start,end=order(i)

for i in range():

count[i]+=num

s=input("请输入订单号：")#处理新订单

a,b,c=order(s)

if a*b*c!=0:

if :

print("预约不成功，请重新输入！")

else:

print("预约成功！")

else:

print("订单格式输入错误，请重新输入！")

#更新预约成功订单，再次等待新订单，代码略

综合题困难

3. 某学生编写了一个程序来模拟答题卡中单项选择题的判分过程。实现方法是：使用“0”和“1”的组合来分别编码ABCD的填涂情况，具体方式如图a所示，例如，填涂结果“A”用“1000”编码。12道选择题以图b的方式进行排列。

图 a

图 b

图 c

编写程序：对给定的标准答案，生成并输出每道题的填涂信息，对应的选项、分值（答对得2分，答错或不答得0分），以及最后的总得分，输出结果如图c所示。请回答下列问题：

(1) 若生成的填涂信息如下图所示，输入的标准答案为“ABCDCADCABAD”，则获得的总分为（填数值）。

(2) 实现上述功能的程序如下，请在划线处填入合适的代码。

import random

n = 12 # 定义题数

da = "ABCDDABDAACA" # 存储标准答案

def check(s, w, da): # 判断得分

if :

return 2

else:

return 0

a=[[] for i in range(n)] # 存储每题 ABCD 选项的编码值

ans = [""] * n # 存储模拟生成的填涂选项

res = ""

s=""

total = 0

for i in range(n): # 模拟生成每题选项对应的 4 位编码

t = random.randint(0, 4) # 随机生成第 i+1 题的填涂情况

for j in range(4):

if :

a[i].append(1)

else:

a[i].append(0)

print("填涂卡情况：")

num=1

for i in range(n): # 打印填涂卡情况

s = s + str(a[num-1])

for j in range(4):

if a[num-1][j] == 1:

res = res + str(num) + "" + s + "

s = ""

if (i+1) % 3 == 0 :

print(res)

res = ""

num-=11

print("题号选项分值")

for i in range(n): # 输出每题的答案和得分

if ans[i] != " " :

df = check(ans[i], i, da)

print(f"{i+1} {ans[i]} {df}") #按格式要求输出

total += df

else:

df = 0

print(f"{i+1} 未填涂 {df}")

print(f"该学生选择题得分：{total}分")

综合题困难