定义如下函数： def tob(n) if n=0: return "* else: return tob(n//2)+str(1-n%2) 执行语句s=tob(10) 后，s的值为（）

0 返回首页

1. 定义如下函数：

def tob(n)

if n=0:

return "*

else:

return tob(n//2)+str(1-n%2)

执行语句s=tob(10) 后，s的值为（）

A. "1010" B. "0101" C. "1001" D. "1100"

【考点】

运算符、基本运算与表达式; 过程与自定义函数; 分支结构语句及程序实现;

【答案】

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

单选题普通

基础巩固

能力提升

变式训练

拓展培优

换一批

1. 用变量a来表示一个三位十进制数b的百位上的数字，以下用法正确的是（）

A. a=b/100 B. a=b%100 C. a=b//100 D. a=b*100

单选题容易

2. 函数就是把具有独立功能的代码块组织成为一个小模块，在需要的时候调用，Python定义一个函数采用的关键词是( )。

A. import B. def C. from D. main

单选题容易

3. 某市出租车起步价10元，超出3公里的部分按每公里1.8元收费，如果要编写一个计要程序，则应采用的基本结构是( )。

A. 无法确定 B. 分支结构 C. 顺序结构 D. 循环结构

单选题容易

1. 有如下程序段：

def fun(k):

if k==1 :

return "1"

elifk%2==0:

return fun(k- 1)+str(k%2)

else:

returnstr(k%2)+fun(k- 1)

执行语句 s=fun(5) ，则 s 的值为( )

A. "00111" B. " 11010" C. " 11100" D. " 10110"

单选题普通

2. 有如下 Python 程序段：

deff(x):

if x==1:

return 2

else:

return f(x- 1)**2

y=f(3)

print(y)

执行该程序段后，输出的结果是( )

A. 4 B. 8 C. 16 D. 32

单选题普通

3. 定义如下函数：

def f(a,s):

if a>=s:

return a

else:

return f(a+1,s-a)

执行语句k = f(6,21)后，k的值为（）

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

单选题普通

1. 阅读下列Python程序，写出运行结果。

a=5

if (a>3) and ((a==4) or (a<6)):

print("Hello")

else:

print("Bye")

运行结果是: (提示：输入宇母时只能输入小写字母)

填空题普通

2. 用Python编辑器打开“Y:\93”下的文件“求组合数.py”，实现以下功能并保存结果。

①请填空完善该程序，实现功能：计算组合数Cnm=n!/（m！*（n-m）！），其中n!=1×2….. ×n，m和n均为正整数，且m<=n<=1000。

②编写完成后原名保存并关闭应用软件。

def fac(n): #用递归的方法求n!

if n == 0:

return 1

else:

return n*

n=int(input("请输入正整数n的值："))

m=int(input("请输入正整数m的值(m<=n)："))

c = //(fac(m)*)

print(c)

填空题普通

3. Python表达式5%2+9//4的运算结果是。

填空题普通

1. （贪心算法）最大整数问题：设有n个随机生成的正整数，将它们连接成一排，组成一个最大的多位整数。其求解思想是：先把整数转换成字符串，然后再比较ab和ba，如果ab≥ba，就把a排在b的前面，反之则把a排在b的后面。例如：n=3时，3个整数13，312，343，连成的最大整数为34331213。

小王同学编写了一个VB程序，功能如下：在列表框List1中随机生成n个1~1000之间的整数，单击“运行”按钮Command1后进行处理，最大整数结果输出在文本框Text1中。当n=5时，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1) 要将按钮Command1的高度修改为800，以下赋值语句正确的是（单选，填字母：A .Command1_Height=800/B .Command1.Height=800/C .Height=800）。

(2) 当n=3时，生成3个数：618，681，68，由这三个数组成的最大整数为。

(3) 请在画线处填入合适的代码。

Const n=5

Dim a（1 To 10）As Integer

Private Sub Command1_Click( )

Dim i, j, t As Integer

For i=1 Ton-1

For j=n To i+1 Step-1

If ① Then

t=a（j-1）：a（j-1）=a（j）：a（j）=t

End If

Next j

Next i

For i=1 To n

Text2. Text=Text2. Text+Str（a（i））

Next i

End Sub

Private Sub Form_Load( )

Randomize

For i=1 To n

a（i）= ②

Text1. Text=Text1. Text +Str（a（i））

Next i

End Sub

Function cmp（a As Integer,b As Integer） As Boolean

If Str（a）+Str（b）<Str（b）+Str（a） Then

cmp=True

Else

cmp=False

End If

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

综合题困难

2. 某游戏实现相同字母消除操作，规则如下：

1)首先生成一段由字母“a，b，c，A，B，C"随机组成的字符串s；

2)对字符串s从左到右寻找3个及以上连续相同字母(不区分大小写)组成的字符串并进行消除；

3)对消除后的重组字符串再进行相同消除操作，直至完成所有消除操作。

例如，生成字符串s为“BCbbaabAbAaaA"，第1次消除字符串“aaa” 后，字符串s重组为“BCcbbbAbAaaA”；第2次消除字符串“bbb" 后，字符串s重组为“BCcAbAaaA”；第3次消除字符串“AaaA” 后，字符串s重组为“BCcAb”。

小陈编写了VB程序，功能如下：单击“生成字符串”按钮Command1，随机生成由字母“a，b，c，A，B，C”组成的字符串s并显示在文本框Text1中，单击“消除”按钮Command2，在列表框List1中显示各次消除的字符串，在文本框Text2中显示消除后的字符串。程序运行界面如图所示。

(提示：字母“a”的ascii码值为97，字母“A”的asci码值为65)

(1) 若生成字符串s为“ccbBBBccBabcaAA"，则第2次消除的字符串为。

(2) 请在划线处填入合适的代码。

Dim a(1 To 100) As String

Dim b(1 To 100) As String

Dim s As String

Constn= 15

Private Sub Command1_ Click0

Dim i As Integer

Randomize

For i= 1 To n

a(i)= Cr

s=s+ a(i)

Next i

Text1．Text=s

End Sub

Private Sub Command2 _Click)

Dim I As Integer, j As Integer, m As Integer, k As Integer

i=1

m= 1

Do Whilei <= Len(s) -2

k=i

Do While IsSame(a(i), a(i + 1)) Andi<= Len(s)- 1

i=i+ 1

If i= n Then Exit Do

Loop

If i-k>= 2 Then

b(m) =

List1 AddItem "第" + Str(m) + "次消除的字符： " + b(m)

m=m+ 1

s= Mid(s, 1, k- 1) + Mid(s, i+ 1, Len(S)-i)

For j= 1 To Len(s)

a(j)= Mid(s, j, 1)

Next j

i=k-3

If i<0 Then i=0

End If

i=i+1

Loop

Text2.Text=s

End Sub

Function IsSame(p As String, q As String) As Boolean

IsSame = False

If Then

IsSame = True

End If

End Function

综合题困难

3. 某单位拟进行人事招聘，根据“笔试”和“面试”成绩计算最后名次。规则如下：

记录各个考生的笔试和面试得分，根据得分分别计算笔试和面试的名次（得分越高排名越前，得分相同，名次也相同）；再根据笔试和面试的名次计算总分（总分=笔试名次+面试名次）；最后计算总分的名次（总分越低排名越前，得分相同，名次相同）。程序设计过程中，为节省内存，尽可能少使用数组，编程实现上述功能：窗体加载时，自动从数据库读取考生的笔试和面试得分，显示在列表框 List1 中；在文本框 Text1 中输入录取人数 n，单击“统计”按钮 Command1，在标签 Label1、Label2 和 Label3 中分别输出笔试、面试、总分前 n 名的考生编号。程序运行界面如图所示。

(1) 根据评比规则和图中数据，1号考生的两项竞赛的总分是

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

Const n = 9

'数组 xh、df 和 mc 分别存储选手编号、得分和名次；df 数组的 1～n 元素存储笔试相关数据；n+1～2n 元素存储对应选手的面试相关数据；2n+1～3n 元素存放两项考试总分相关数据

Dim xh(1 To n * 3) As Integer, df(1 To n * 3) As Integer, mc(1 To n * 3) As Integer

Dim i As Integer, j As Integer, t As Integer

'本过程从数据库读取各选手的选手编号、得分数据，分别存储在数组 xh、df 中

Private Sub Form_Load( )

List1.Clear

List1.AddItem "选手" + " " + "笔试" + " " + "面试"

For i = 1 To n

xh(i) = i: xh(n + i) = i

Next i

For i = 1 To n

List1.AddItem Str(xh(i)) + " " + Str(df(i)) + " " + Str(df(n + i))

Next i

End Sub

Private Sub Command1_Click()

Dim c As Integer

c = Val(Text1.Text)

Label1.Caption = "笔试前" & Str(c) & "名：" & pm(1, n, c, False)

Label2.Caption = "面试前" & Str(c) & "名：" & pm(n + 1, 2 * n, c, False)

For i = 1 To n

xh(2 * n + i) = i: df(2 * n + i) = 0: mc(2 * n + i) = 0

Next i

For i = 1 To 2 * n

df(2 * n + xh(i)) = df(2 * n + xh(i)) + mc(i)

Next i

Label3.Caption = "总分前" & Str(c) & "名：" & pm

End Sub

Function pm(ks As Integer, js As Integer, num As Integer, fx As Boolean) As String

For i = ks To js - 1

For j = js To ks + 1 Step -1

If (fx And df(j) < df(j - 1)) OrThen

t = df(j): df(j) = df(j - 1): df(j - 1) = t

t = xh(j): xh(j) = xh(j - 1): xh(j - 1) = t

End If

Next j

Next i

mc(ks) = 1: pm = Str(xh(ks))

For i = ks + 1 To js

If df(i) = df(i - 1) Then

Else

mc(i) = i - ks + 1

End If

If mc(i) <= num Then pm = pm & "," & Str(xh(i))

Next i

End Function

综合题困难