有如下VB程序段： Dim i As Integer, j As Integer, st As String n = 5 For i = 1 To 5 st = “ ” If i < 4 Then For j = 1 To i st = st + “*” Next j Else For j = i To n st = st + “*” Next j End If List1.AddItem st Next i 该程序段运行后，在列表框List1中显示的内容是( )

0 返回首页

1. 有如下VB程序段：

Dim i As Integer, j As Integer, st As String

n = 5

For i = 1 To 5

st = “ ”

If i < 4 Then

For j = 1 To i

st = st + “*”

Next j

Else

For j = i To n

st = st + “*”

Next j

End If

List1.AddItem st

Next i

该程序段运行后，在列表框List1中显示的内容是( )

【考点】

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

【答案】

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

单选题普通

基础巩固

能力提升

变式训练

拓展培优

真题演练

换一批

1. 在Python语言中，运行以下代码后，变量i的值是（）

i=6

while i>=2:

print (i)

i=i-1

A. 6 B. 0 C. 1 D. 2

单选题容易

2. 下列流程图中不包含循环结构的是( )。

单选题容易

1. 有一分数序列：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. ③②①

单选题普通

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

单选题普通

3. 有如下VB程序段：

Dim k As Integer, s As Integer

k ＝ 0: s ＝ 0

Do While k >＝ 10

k ＝ k ＋ 1

s ＝ s ＋ k

Loop

该程序段执行后，变量s的值是( )

A. 0 B. 1 C. 10 D. 11

单选题普通

1. 代码一：

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（"需要支付托运费：", ）

填空题普通

2. 下列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

填空题普通

3. 下列VB程序的功能是：程序运行时，在文本框Textin中输入正整数n.单击命令按钮Command1后，统计1至n的整数中包含数字2的整数个数，并在文本框Textout中输出结果，若n＝20，有2、12和20三个整数包含数字2，则文本框Textout中输出“3”。

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

Private Sub Command1_Click()

Dim i As Long, n As Long, t As Long

Dim s As Long ′s用于统计1到n之间包含数字2的整数个数

Dim k As Boolean

s ＝ 0

n ＝ Val(Textin.Text)

For i ＝ 1 To n

k ＝ False

t ＝ i

Do While Not k And t > 0

t ＝ t \ 10

Loop

If k Then

Next i

Textout.Text ＝ Str(s)

End Sub

综合题普通

1. 有如下 Python程序，实现求字符串中的最长连续上升子串的长度。例如：字符串“hellopython”中的最长连续上升子串是“lopy”，长度为 4。

s=input()

n=len(s);c=1;max=1

for i in range(1,n):

if (1)____:

c=c+1

if c>max:

max=c

else:

(1) print(max)

划线处可选代码为①c=1 ②c=0 ③s[i]<s[i+1] ④s[i]>s[i-1]

划线处正确的语句依次为（）

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

单选题普通

2. 为支持公益事业，彩票中心设立了一个彩票项目。每张彩票上印有 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”，（选填：是/否）。

综合题普通

3. 某英文逐词翻译软件，不区分大小写。为了加快翻译速度，在翻译的过程中，软件会将最近出现过的一些单词存入内存。若内存中有该单词则直接翻译，否则查外存词典并将该单词存入内存。内存中每个单元存储一个单词，存满时会清空最早进入内存的单词，腾出单元存放新单词。编程模拟软件的翻译过程，输入一个仅含英文、逗号或空格字符的英语句子，以句号结束，计算翻译软件需要去外存查找多少次词典，在翻译开始前，内存中没有任何单词。运行界面如图所示。

(1) 若上图中的内存容量改为 7，则需要去外存查找次词典。

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

m = int(input("请输入内存容量:"))

s = input("请输入英语句子:")

dic = {}

head = tail = 0

word = ""

for ch in s:

if ch == " " or ch == "," or ch == ".":

if word not in dic or dic[word] < head:

if tail - head == m:

dic[word] = tail

tail + = 1

word = ""

else:

if :

ch = chr(ord(ch) + 32)

word += ch

print("需要去外存查找",,"次词典")

综合题困难

1. 有如下Python程序段：

code="0123456789ABCDEF"

RGB=(255,96,128)

ans="#"

for c in RGB:

t=[]

for i in range(2):

t.append(code[c%16])

c//=16

ans+=''.join(t[::-1])

print(ans)

执行程序后，输出的结果为（）

A. #FF607E B. #FF6080 C. #8060FF D. #6E60FF

单选题普通

2. 编辑程序代码

【试题描述】

生产厂家现要包装1200个“冰墩墩”送往超市售卖，包装的规格分别是:小箱(每箱5个)和大箱(每箱12个)，要求每种规格有至少1箱，且每箱都必须装满。厂家需要计算出所有可能的组合方案，请你帮忙完善下面的程序，输出所有的方案。

<> 代码编辑区

c=1

for x in range(1, 240): #列举小箱数量

i= ① #装大箱的“冰墩墩”总数

if ② ==0: #判断大箱是否装满

c*=1

y=i//12 #大箱数量

print("方案", c, ":小箱", x, ":大箱", y)
【操作要求】
⑴补充完善下划线处的内容使程序语句完整；
① ②
⑵找出程序中的两处错误并改正；

⑶运行程序，输出所有的方案。

填空题普通

3. 有如下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

单选题困难