下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。 Private Sub Command1_Click() Dim a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2 s ＝ 0 For k ＝ 2 To 3 If a(k) > a(1) Then t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t s ＝ s ＋ 1 End If Next k Text1.Text ＝ Str(a(1)) Text2.Text ＝ Str(s) End Sub

0 返回首页

1. 下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。

Private Sub Command1_Click()

Dim a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer

a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2

s ＝ 0

For k ＝ 2 To 3

If a(k) > a(1) Then

t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t

s ＝ s ＋ 1

End If

Next k

Text1.Text ＝ Str(a(1))

Text2.Text ＝ Str(s)

End Sub

【考点】

常见数据类型、数组; 循环结构语句及程序实现;

【答案】

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

填空题普通

基础巩固

能力提升

变式训练

拓展培优

真题演练

换一批

1. 数组d的初始值如下表所示，则d[d[1]]+d[4]的值是。

d[1]	d[2]	d[3]	d[4]	d[5]	d[6]
2	4	6	8	10	12

填空题容易

1. 已知6月份10位技术考试成绩：

1	2	3	4	5	6	7	8	9	10
78	88	89	90	83	76	75	98	100	65

技术老师想统计出80分（含80）以上的人数，请完善程序，代码如下：

a=[78,88,89,90,83,76,75,98,100,65]

sum=0

for i in range(n):

if a[i]>=80:

print(sum)

执行上述程序段后，输出的内容是

填空题普通

2. 代码一：

s=["JavaScript","Java","C++","Php","C","PYTHON"]

max=s[0]

i=1

while i<len(s):

if max<s[i]:

max=s[i]

i+=1

print(max)

程序执行后，输出的结果是。

代码二：

某航空公司对于行李托运费的计费规则是：10公斤内免费，超过10公斤的部分按每公斤单价为机票全额的1.2%收取托运费。创建一个函数，要求输入机票价格和行李重量，计算需要支付的托运费。请在划线处填入合适的代码。

Def cost(p, w)

If w<=10:

money=0

else:

money=

return money

price=int(input("输入机票价格："))

weight=int(input("输入行李重量（kg）："))

print（"需要支付托运费：", ）

填空题普通

3. 下列VB程序运行时，单击命令按钮Command1后，语句①被执行了次，文本框Text1中显示的内容是。

Private Sub Command1_Click()

Dim a(1 To 5) As Integer.i As Integer

a(1)＝1

a(2)＝1

For i＝3 To 5

a(i)＝2*a(i－1)＋a(i－2) ′语句①

Next i

Text1.Text＝Str(a(5))

End Sub

填空题普通

1. 有如下Python程序段：

a=[9,5,2,3,0,-9,5,0,7,-10] s,i=0,0

while a[i]!=0 and i<len(a) :

s+=1

i+=1

运行该程序后s的值为（）

A. 4 B. 5 C. 8 D. 10

单选题普通

2. 有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13. . . 求出这个数列的前 n 项之和。

n = int(input())

a,b,num = 2,1,2

for i in range(n-1):

print(num)

方框中的代码由以下三部分组成：①num += a / b ②a = a + b ③b = a - b代码顺序正确的选项是（）

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

单选题普通

3. 用python算法控制结构描述“如果报名人数超过10人则输出活动升级，若小于3人则输出活动取消，否则输出活动正常举行”，设t为报名人数，下列选项正确的是（）

单选题普通

1. 为支持公益事业，彩票中心设立了一个彩票项目。每张彩票上印有 7个各不相同的号码(号码范围从1到33)。每次开奖时，会随机生成一个由7个各不相同的号码构成的中奖号码。彩票的兑奖规则如下：“特等奖”彩票上的7个号码与中奖号码全部相同；“一等奖”有6个号码相同；“二等奖”有5个号码相同；“三等奖”有4个号码相同；“四等奖”有3个号码相同；“五等奖”有2个号码相同；“六等奖”有1个号码相同。兑奖时不考虑号码在彩票和中奖号码中出现的具体位置。例如，若中奖号码为23,31,1,14,19,17,18，而某张彩票的号码为12,8,9,23,1,16,7，则该彩票中得五等奖，因为其中有两个号码（23和1）与中奖号码相同。

彩票中心编写一个程序，功能为：随机生成7个不重复的中奖号码，并读取文件“彩票记录.txt”(该文件存储所有已售出的彩票号码)，最后根据兑奖规则输出开奖结果，运行界面示例如下：

(1) 假设中奖号码为23,31,1,14,19,17,18，彩票为11,8,9,32,1,16,7，中奖结果为。

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

import random #随机生成7个[1,33]范围内不重复的中奖号码

flag= [ 0 ] * 34 ; data = [ 0 ] * 7

i = 0

while i < 7 :

t = random.randint( 1 , 33 )

if not flag[ t ]:

i = i + 1

flag [ t ] = 1

print("中奖号码:" , data)

#读取"彩票记录.txt"文件，存储到数组sale=[[12,8,9,23,1,16,7],[11,7,10,21,2,9,31]…],代码略。

#num[0]表示特等奖个数，num[i]表示i等奖个数

for i in range( len ( sale ) ) :

cnt = 0

for j in range ( 7 ) :

if sale[ i ][ j ] in data:

cnt += 1

num[] += 1

print("彩票开奖结果：")

for i in range( 7 ):

s="特等奖一等奖二等奖三等奖四等奖五等奖六等奖"

print(s[] , "产生:" , num[ i ] , "个")

(3) 上述加框处代码，能否修改为“num = [ 0 ] * 7”，（选填：是/否）。

综合题普通

2. 小明在玩火柴棍的拼数字游戏。用火柴棍拼成阿拉伯数字0~9，具体拼法如图1所示：

小明编写Python程序实现：运行程序时，输入任意整数，执行后，输出搭建该数字所需要的火柴棍的数量。运行样例如图2所示。

请回答以下问题：

(1) 搭建“168”这个数字，所需要的火柴棍的数量为：。

(2) 请在划线处填入合适的代码，使得程序正常运行。

hc={"0":6,"1":2,"2":5,"3":5,"4":4,"5":5,"6":6,"7":3,"8":7,"9":6}

num=

s=input("请输入待搭建的数字：")

for i in s:

num=

print("所需火柴棍的数量为：",num)

综合题普通

3. 编写一个“计算多边形周长”的程序。功能如下：输入多边形的边的数量和顶点的坐标值，程序计算各条边的长度，并输出该多边形的周长。例如，输入多边形的边的数量为 4，各顶点的坐标分别为(0,0)、(2,4)、(3,5)、(6,6)，运行结果如图所示。

请输入多边形的边的数量：4

请输入多边形顶点的横坐标：0

请输入多边形顶点的纵坐标：0

请输入多边形顶点的横坐标：2

请输入多边形顶点的纵坐标：4

请输入多边形顶点的横坐标：3

请输入多边形顶点的纵坐标：5

请输入多边形顶点的横坐标：6

请输入多边形顶点的纵坐标：6

{1: [0, 0], 2: [2, 4], 3: [3, 5], 4: [6, 6]}

多边形的周长为： 17.533908551779625

d={} s=0

n=int(input("请输入多边形的边的数量："))
for i in range(1, ① ):

x=int(input("请输入多边形顶点的横坐标："))

y=int(input("请输入多边形顶点的纵坐标："))

d[i]=[x,y] print(d)

j=n

while j>1:

x1=d[j][0]-d[j-1][0]

y1= ①

s=s+(x1**2+y1**2)**0.5

②

s=s+((d[n][0]-d[1][0])**2+(d[n][1]-d[1][1])**2)**0.5

print("多边形的周长为：",s)

(1) 该算法是否可以运用到计算圆周长的场景中（选填:是/否）。

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

① ② ③

综合题困难

1. 数组元素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. ③②①

单选题困难

2. 下列VB程序段功能为：在文本框 Text中显示整型数组元素a（1）到a（9）中的最小值和最大值。

amin= a（1） : amax=a（1）

i=2 : j=9

Do While i <= j

If a(i) > a(j) Then

Else

End If

i=1 : j=j-1

Loop

Text 1. Text= Str（amin）+"," Str（amax）

上述程序段中方框处可选语句为：

①If a（j）>amax Then amax =a（j）

②If a（j）< amin Then amin =a（j）

③If a（i）<amin Then amin =a（i）

④If a（i）>amin Then amin =a（i）

则（1）（2）（3）（4）处语句依次可为（）

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

单选题普通