- 二一组卷

题型：单选题题类：常考题难易度：困难

浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术5月月考试卷

以下程序，单击按钮 Command1后，其结果是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 5: b = 3

Print work(a, b)

End Sub

Function work(x As Integer, y As Integer) As Integer

If (x < y) Then

work = 0

Exit Function

End If

If (y = 0) Then

work = 1

Exit Function

End If

work = work(x - 1, y - 1) + work(x - 1, y)

End Function

A、8 B、9 C、10 D、11

举一反三

【加试题】小李编写VB程序，实现从某一字符串删除指定的连续字符串，并将处理后的字符串重新输出，程序界面如图所示，在文本框Text1中输人原始字符串，在文本框Text2中输入需要删除的连续字符串，单击Command1后，存寸本榧Text3中输出府h弹后的结果。

实现上述功能的VB程序如下．但加框处代码有错，请改正。

Dim P As String，k As String，x As Integer

Function f(a As Integer)As Boolean

f=false

If Mid(p，a，Len(k))=k Then f=True

End Function

Private Sub Command1_Click()

Dim x As Integer，result As Strin9，flag As Boolean

result=""

p=Text1．Text

k=Text2．Text

For x=1 To Len(P)-Len(k)+1

If Not f(x) Then

result=result+Mid(p，x，1)

Else

‘（1）

End If

Next x

Text3．Text=result+ ‘（2）

End Sub

小明编写统计字符串中出现最多的字母和数字的程序。程序运行如下:在文本框Text1中输入一个仅包含字母和数字的字符串。单击按钮Command1后，在标签Label1上显示出现最多的数字字符，在标签Label2上显示出现最多的字母字符(字母不区分大小写，例如字母G和g统计在一起)。程序运行界面如图所示。

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

Private Sub Command1_Click()

Dim a(1 To 10) As Integer ‘存储0~9每个数字出现的次数

Dim b(1 To 26) As Integer ‘存储a~z每个字母出现的次数

Dim zf As String, x As String, p As Integer

Dim maxa As Integer, maxb As Integer

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

For i = 1 To Len(zf)

x = Mid(zf, i, 1)

If pd(x) = 1 Then

p = Asc(x) - Asc(“0”) + 1

a(p) = a(p) + 1

{#blank#}2{#/blank#}

p = Asc(x) - Asc(“A”) + 1

b(p) = b(p) + 1

Else

p = Asc(x) - Asc(“a”) + 1

b(p) = b(p) + 1

End If

Next i

k = a(1):maxa = 1

For i = 2 To 10

If a(i) > k Then k = a(i):maxa = i

Next i

k = b(1) :maxb = 1

For i = 2 To 26

If{#blank#}3{#/blank#}Then k = b(i) :maxb = i

Next i

Label1.Caption =“出现最多的数字是” + Chr(maxa+ Asc(“0”)-1)

Label2.Caption = “出现最多的字母是” + Chr(maxb + Asc(“A”)-1)

End Sub

Function pd(ch As String) As Integer ’函数用于判断每个字符类型

If ch >= “0” And ch <= “9” Then pd = 2

If ch >= “A” And ch <= “Z” Then pd = 2

If ch >= “a” And ch <= “z” Then pd = 3

End Function

我们在用计算机解决问题时,常采用递归法。已知:f(3)=3;当n>3时,f(n)=f(n-1)*n;编程求f(5)的值。下列结果正确的是（）

定义如下函数：

def f(k):

if k<=3:

print(k)

return

for i in range(1,4):

f(k-i)

return

执行语句f(6)，则f(3)被调用的次数为（）

有如下Python程序，其功能为删除无序链表（元素个数大于等于2）中的重复元素。

def dele（a, head）:

pre=head; p=a[head][1]

while p!=-1:

q=head

flag=False

while:

if a[q][0]==a[p][0]:

p=a[p][1]

flag=True

break

q=a[q][1]

if not flag:

pre=p;

p=a[p][1]

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

dele（a, 0）

①q!=-1 ②q!=p ③a[pre][1]=a[p][1] ④a[pre][1]=a[q][1]

方框中填入的正确代码依次为（）

某项活动有n个单位（编号1到n）参加，需将员工分成若干个小组，每个小组的人数上限为m，小组编号按新建次序从1开始编号。分组时，首先按单位编号次序依次在各单位内部分分组，每m人分配到一个新建小组中，不足m人的剩余员工暂不分配；然后按剩余员工人数由大到小的顺序，依次为各单位剩余员工分配小组。

若某单位剩余员工人数为k，则分配方法为：在已建的小组中查找空位数（该小组还可容纳的人数）大于或等于k的小组，如果找到的小组有多个，则选择空位数最少的小组，将此k人分配到该小组中；如果没有找到，则新建一个小组，将此k人分配到该小组中。

设n为5，m为20，各单位员工人数及单位内部的分组过程如图a所示，各单位剩余员工的分组过程如图b所示。

编写程序：给定各单位编号及员工人数，根据上述方法进行分组处理，按单位编号次序输出各单位所分配的分组编号。请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心