下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。 Private Sub Command1_Click() Label1.Caption = sj ‘计算机随机产生一个值 Label2.Caption = Command1.Caption If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负 = "乙方负" Else Label3.Caption = "乙方胜" End If End Sub Function sj() As String '随机生成石头、剪刀、布 i = ‘随机生成1~3任一整数 If i = 1 Then sj = "石头" If i = 2 Then sj = "剪刀" If i = 3 Then sj = "布" End Function

1. “神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。

图1

图2

Private Sub ①

Dim i, j As Integer A

i = 347 B

j = i – 147 C

Text1.Text = Str(j) D

End Sub

(1) 该程序开始运行时，直接得出近地点的高度，则在①处应填。

(2) 程序运行时，出现如图所示错误，对照如图，修改一处程序以使此程序正确运行。则修改语句（选填：A/B/C/D）,修改后的语句为。

综合题普通

2. 下列VB程序的功能是：程序运行时，单击按钮Command1随机产生20个范围在1－1000（包括1和100）的整数，并在列表框List1中显示，然后单击按钮Command2，计算随机产生的20个整数中的最大值、最小值和平均值，并分别在Text1、Text2和Text3中显示，程序的运行界面如图所示。请在划线上填入合适的代码:

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = Int(Rnd * 1000) + 1

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

If Then max = a(i)

If a(i) < min Then min = a(i)

sum = sum + a(i)

Next i

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

综合题普通

3. 编写“简单密码筛选”程序，实现如下功能：在文本框Text1中输入连续多组数字密码，之间以空格符分隔，筛选出简单密码（即一组密码中所有数字均相同），单击“筛选密码”按钮 Commandl，将简单密码显示在列表框 List1 中，简单密码个数显示在文本框 Text2中。程序运行界面如图a所示。

图a

(1) 程序运行时，提示如图b所示的出错信息，导致出错的是下列哪条语句（单选，填字母：A .s=Text1.text； B .List.clear C.Text2.Text = Str(cnt)）

图b

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

Private Sub Command1_Click()

Dim s As String, c As String, tmp As String

Dim i As Integer, cnt As Integer

Dim flag As Boolean

cnt=0 : flag = True

List.Clear: s = Text1.Text: Text1.text=""

For i = 1 To Len(s)

ch = Mid(s, i, 1)

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

tmp = tmp + ch

If Len(tmp) > 1 Then

If ① Then flag = False

End If

Else

If flag Then

List1.AddItem tmp: cnt = cnt + 1

Else

flag = True

End If

tmp = ""

End If

Next i

If flag Then List1.AddItem tmp: cnt = cnt + 1

If ② Then Text2.Text = "找不到" Else Text2.Text = Str(cnt)

End Sub

① ②

(3) 成功修改第1题中错误的程序代码后，若文本框Text1中输入的内容为

“11 456 7 4443 488 666666”，单击“筛选密码”按钮，文本框Text2中显示的内容是。

综合题困难

1. 调试程序时，主要是对程序进行 ( )

A. 逻辑调试 B. 功能调试 C. 性能调试 D. 语法调试

多选题容易

2. 有逻辑错误的程序在运行时会有语法错误提示。（ )

A. 正确 B. 错误

判断题容易

3. 程序执行到有语法错误的语句时( )

A. 系统会输出出错的位置和错误的类型 B. 系统只输出出错的位置 C. 系统只输出错误的类型 D. 前三项都不对

单选题容易

1. 寻找素单词。素数是指大于1的自然数中，除了1和它本身以外不再有其他因数的自然数。例如，2，3，5，7等是素数。本题输入一个单词，每个单词由小写字母组成。每个字母对应一个特定的值，字母a对应1，字母 b对应2，以此类推，字母z对应26。如果这个单词的字母值的总和是素数，则这个单词是素单词( prime word)。请编写程序，判定一个单词是否为素单词。

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

def isprime(n): #判断n是不是素数

for i in range():

if n%i==0:

else:

return True

def strsum(word): #统计单词的字母值总和

dic={"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9,"j":10,

"k":11,"l":12,"m":13,"n":14,"o":15,"p":16,"q":17,"r":18,"s":19,

"t":20,"u":21,"v":22,"w":23,"x":24,"y":25,"z":26}

n=0

for ch in word:

return n

word=input("请输入一个单词:")

s=strsum(word)

if flag:

print("这是一个素单词")

else:

print("这不是一个素单词")

(2) 下列选项中不可以填入加框处的代码是（单选，填字母）。 A. 2,n B. 2,n+1 C. 2,int(n**0.5)+1 D. 2,n//2+1

综合题困难

2. 在平面坐标系中，给定一组有序的点。依次用线段连接这些点，构成一条折线。其中字符串a为输入的坐标系中的各点坐标，以逗号为界从a中取出存入b列表中，列表b的第1、2个元素为第一个点的x坐标和y坐标（即x1,y1），第3、4个元素为第二个点的x坐标和y坐标(即x2，y2)，依次类推。编写Python程序段如下，用于计算折线的长度。

from math import *

def dist(x1, y1, x2, y2):

length = sqrt((int(x1) - int(x2))**2 + ① )

return length

a = input("请输入各点的坐标：") # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

print("输入的坐标有误！")

else:

s = 0

for i in range(0, ② , 2):

s = s + ③

print("折线的长度为：", s)

(1) 如输入的数据为“2,3,5,7,8,11”，则折线的长度为：；如果输入的数据为“2,3,5,7,8,11，”则程序的输出结果是（单选，填字母）。

A.程序输出正确的折线长度

B.输入的坐标有误！

C.程序运行出错！

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

① ② ③

综合题困难

(1) 在抽象与建模阶段，小申初步设计了计算模型，用day表示天数，time 表示每天阅读时间，1imit 表示家长的设定值。请问其中day变量的数据类型为（） A. float B. str C. int D. bool

(2) 在设计算法阶段，以下流程图应填入的选项是（）

A. ①i=i+1 ②day=day+1 B. ①i=i+1 ②time=time+1 C. ①day=day+1 ②i=i+1 D. ①time=time+1 ②i=i+1

(3) 根据上述算法描述，我们知道解决该问题的算法为枚举法，枚举算法的特点为（）。 A. 一一列举逐一检验 B. 一一检验逐一列举 C. 重复检验 D. 重复列举

(4) 枚举算法的结构特征是( )。 A. 分支结构中嵌套循环结构 B. 分支结构中嵌套分支结构 C. 循环结构中嵌套循环结构 D. 循环结构中嵌套分支结构

(5) 在编写程序阶段，小申想用range(起始值、终值、步长)函数生成一个长度为7的整数序列，用于表示一周7天。以下适用的语句是( ) 。

①range(0, 7) ②range(1, 7) ③range(0, 7, 1)

④range(1,7,1) ⑤range(7,1,-1) ⑥range(7,0,-1)

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

(6) 在调试运行阶段，小申发现程序并未达到预期的效果，如图1、图2所示，请分析原因并加以改正。

①day=0

②limit=float (input(“请输入家长设定值(小时) :”))

③for i in range(7):

④ time=float(input(“请输入阅读时间(小时) :”))

⑤ if time>limit:

⑥ day=day+1

⑦print(“有”, day, “天阅读时间小于家长设定值”)

图1 预期结果

图2 调试结果

请写出出错的语句的编号，并写出修改后的语句: 。

综合题困难