有如下VB程序段： flag=False:s="ShanShui2020！" For i=1 To Len（s） ch=Mid（s，i，1） If Not（ch〉="0"And ch<="9"）And Not flag Then t=ch+t End If flag=Not flag Next i Text1.Text=t 执行完以上程序段后，文本框text1中的内容为（）

0 返回首页

1. 有如下VB程序段：

flag=False:s="ShanShui2020！"

For i=1 To Len（s）

ch=Mid（s，i，1）

If Not（ch〉="0"And ch<="9"）And Not flag Then

t=ch+t

End If

flag=Not flag

Next i

Text1.Text=t

执行完以上程序段后，文本框text1中的内容为（）

A. !uSaS B. SaSu! C. !22uSaS D. ShanShui!

【考点】

分支结构语句及程序实现; 循环结构语句及程序实现;

【答案】

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

单选题普通

基础巩固

能力提升

变式训练

拓展培优

真题演练

换一批

1. 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（）。

A. For i=0 To List1.ListCount-1

.....

Next B. For i=0 To ListCount-1

.....

Next C. For i=1 To List1.listCount

.....

Next D. For i=1 To ListCount

.....

单选题容易

2. 以下Case语句中错误的是（）

A. Case 0 To10 B. Case is>10 C. Case is>10 And is<50 D. Case 3,5, is>10

单选题容易

1. 有如下 Python 程序： import random

s = input()

k = random.randint(1,len(s)-1) i = 0

while k > 0 and i < len(s)-1:

if s[i] > s[i+1]:

k -= 1

s = s[:i]+s[i+1:]

if i > 0:

i -= 1

else:

i += 1 if k > 0:

s = s[:len(s)-k]

若输入的s值为“8561324”，则执行该程序，输出s的值不可能为（）

A. 51324 B. 124 C. 132 D. 1324

单选题普通

2. 有如下python程序段，实现两个升序数组合并为一个升序数组。

from random import randint

a, b= [10], [10]

for i in range(5)：

a. append(a[-1] + randint(1, 10))

for i in range(9)：

b. append(b[-1] + randint(1, 10))

c= [ ]

while ⑴

if ⑵ ：

c. append(b. pop(0))

elif ⑶

c. append(a. pop(0))

elif ⑷

c. append(a. pop(0))

else：

c. append(b. pop(0))

prim(c)

①Dlen(a)> 0 and len(b)> 0 ②len(a)>0 or len()>0 ③len(a)>0 ④len(a)=0 ⑤len(b)>0 ⑥len(b)= 0 ⑦b[0]<a[0] ⑧a[0]<b[0]

划线部分依次填入的代码是( )

A. ③⑤④⑧ B. ②⑤③⑧ C. ①④⑧⑤ D. ②④⑥⑧

单选题普通

3. 有如下python程序段，实现输入key的值，输出列表a中大于key的第一个数的索引。

a=[1，1，2，2，2， 3]

Print(a)

key = int(input('请输入一个整数：))

i= 0

while i<j：

if key >= a[m]：

else：

if j=len(a)：

print(f">{key}的数不存在")

else：

print(f"> {key}的第一个数的索引是{j}")

加框处代码有( )处错误，修改后得到正确的运行结果如下：

A. 4 B. 3 C. 2 D. 1

单选题普通

1. 运行以下VB程序，结果是。

填空题普通

2. 在窗体上有两个标签（Label1和Label2）一个命令按钮(Command1)，单击命令按纽Command1，从键盘中输入学生姓名和成绩，统计并在标答中输出最高学生姓名和成绩及最低学生姓名和成绩。当从键盘中输入-1时，结束输人。程序代码如下，请补充完善程序。

Private Sub Commaadl Click()

Dim xm As String，xmmax as String ，xmmin as String

Dim cj As Single，cjmax As Single，cjmin As Single

xm=InputBox("请输人学生姓名")

cj=InputBox("请输人学生成绩")

xmmax=xm

cjmax=cj

xmmin=xm

cjmin=cj

Do While

If Then

cjmax=cj

xmmax=xm

End if

If Then

cjmin = cj

xmmin=xm

End if

xm=InputBox("请输人学生姓名")

cj=InputBox("请输人学生成绩")

Label1.Caption ="学生"&xmmax&"成绩最高”&cjmax

Label2.Caption ="学生"&xmmin &“成绩最低"& ejmin

End Sub

填空题普通

3. 在窗体上有一个命令按钮(Command1)，单击Command1产生50个10到100的随机数统计其中能被6整除的个数，并将结果在窗体上打印出来。代码如下，请补充完善。

Private Sub Command1_Click()

Dim n As Integer，i As Integer, count As Integer

Randomize

Print"本次随机产生10到100且能被6整除的数是:";

For i = 1 To 50

IfThen

Print n;

count =

End If

Next i

Print“共”;count; "个"

End Sub

填空题普通

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 ]

综合题困难

图 a

图 b

请回答下列问题：

(1) 若专业评审均分为 5，大众评审均分为 6，则该影片等级为（填数字）颗星。

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

f=open(" ",encoding="utf-8")

line=f.readline() #读取第一行，保存在字符串 line 中

pro,pub=0,0

while line:#当 line 非空

t=int(line[3:])

if x=="A":

pro+=t

elif x=="B":

line=f.readline() # 继续读取一行

score=int(pro/5*0.6+pub/5*0.4)

grade=

print("推荐度为:","★"*grade)

综合题普通

3. 小南设计了一个用于判定素单词的Python程序。判断素单词的规则如下：

Ⅰ.设定小写字母a—z对应的数字为1—26，大写字母A—Z对应的数字为27—52。

Ⅱ.将某个单词的所有字母按照其对应的数字求和，

Ⅲ.若和为素数（质数）则判断为素单词，否则不是。

如单词“Hello”，字母分别对应的数字为：34、5、12、12、15，其和为34+5+12+12+15=78，不是素数，因此单词“Hello”不是素单词。

(1) 根据题意，当输入单词“Love”，输出的结果是（填字母：A .Love是素单词/B .Love不是素单词）

(2) 实现素单词判断的python程序如下，请在划线处填入合适代码。

def is_Prime(number):#判断number是否为素数

flag=True

for k in range(2,number):

if :

flag=False

break

return flag

s=input（"请输入一个单词："）

total=0

for i in range（len（s））：

ch=s[i]

if "A"<=ch<="Z"：

total=

elif "a"<=ch<="z"：

#将小写字母转换为对应的数字并累加至变量total中，代码略

if ：

print（s,"是素单词"）

else：

print（s,"不是素单词"）

综合题普通

1. 有如下VB程序段：

k=3 : sum=0 : j=0 : c=0

For i=1 To Len（s）

ch=Mid（s, i, 1）

If ch >= "0"And ch<= "9" Then

c=c * 10+Val（ch）

j=j＋1

Else

If j=k Then sum=sum+c

j=0：c=0

End If

Next i

字符串s为“ab300cde2022fg002h”时，执行该程序段后，sum的值为（）

A. 300 B. 302 C. 504 D. 2324

单选题普通

2. 有如下VB程序段：

n=6

For i=1 To n\2

flag=True : t=a(i+1)-a(1)

j=i+2

Do While j<=n And flag

If a(j)-a(j-i)=t Then j=j+1 Else flag=False

Loop

If j>n Then Exit For ‘Exit For表示退出循环

Next i

整型数组元素a（1）到a（6）的值依次为“3，x，11，14，19，22”，执行该程序段后，变量i的值为2，则x的值为（）

A. 5 B. 6 C. 7 D. 8

单选题困难

3. 数组元素a（1）到a（n*2）为互不相等的正整数（n≥1），要在其中找到最大值和次大值，并分别存储到变量m1和m2中。实现该功能的VB程序段如下：

m1=0：m2=0

For i=1 To n * 2 Step 2

If a（i）>a（i＋1）Then

t1=a（i）：t2=a（i＋1）

Else

t1=a（i＋1）：t2=a（i）

End If

If Then

m1=t1：m2=t2

ElseIf Then

m2=m1：m1=t1

ElseIf Then

m2=t1

End If

Next i

上述程序段中方框处可选代码为：①t1>m1 ②t1>m2 ③t2>m1

则（1）（2）（3）处代码依次为（）

A. ①②③ B. ②③① C. ③①② D. ③②①

单选题困难