2.4循环结构同步练习沪科版信息技术选修1

’， poet）
f write（str（the_ peom［0］））
f. write（"＼n"）
f.close（）

（4）使用爬虫程序获取文本数据并形成唐诗库文件，所使用的数据采集方法为____________（选填：系统日志采集法、网络数据采集法其他数据采集方法）。阅读程序可知每首诗存放于列表poem［］中（以唐诗“春晓”为例如下表），采集后的数据保存在poet.txt文件中，该文件是一个_________________（选填：数据库文件、文档文件、图像文件、网页文件）。该数据采集方法可以将非结构化数据从网页中抽取出来，将其存储为统一的数据文件，并以_______________________的方式存储（选填：结构化、半结构化）
Poem［0］
Poem［1］
Poem［2］
Poem［3］
“春晓”
“唐”
“孟浩然”
“春眠不觉晓，……，花落知多少”

。
（5）以诗人甲、乙为例解密二人关系，完成答题。数据处理过程中要运用一定的分析方法对大量无序的数据进行整理、分析挖掘数据内在的结构和规律，从而提取有价值的、有意义的数据。数据分析一般包括特征探索、关联分析、聚类与分类等。让计算机搜索遍历唐诗库中有关甲、乙两位诗人的诗文，统计两位诗人或别名相互的引用次数，找寻二人之间的关联。这是运用了__________________（选填：特征探索、关联分析、聚类与分类）方法进行数据分析，也是__________________（选填：枚举、二分查找、排序）算法思想去求解这一问题的体现。
（6）编制计算机程序解决问题的过程中，__________________是编程的核心，是解决问题的方法和步骤。选用Python程序设计语言编写程序，Python属于__________________（选填：分析问题、设计算法、编写程序、调试运行、机器语言、汇编语言、高级语言）。图a示意，使用__________________（选填：自然语言、流程图、伪代码）进行算法描述，且运用循环控制结构嵌套了__________________控制结构，如果要跳出本次循环体的执行，应使用__________________语句实现跳转。
（7）阅读程序（图b示意），程序中以“#”开头的语句，其作用是_______________，程序调试完成，通过“另存为”保存文件，文件后缀名为_____________。

图a
import gushi #从txt文档中读取古诗
poems=gushi. readDatat（）#用poems存储所有的唐诗jia=input（"请输入诗人甲："）
yi=input（"请输入诗人乙："）
gx=0
for poem in poems：#逐一列举：poem代表其中一首古诗
if jia in poem［2］and（yi in poem［0］or yi in poem［3］）： gx=gx＋1     #问题的解
print（jia，'"写给"，yi，"的古诗共"，gx，"首"）
图b

（三）分析数据进行可视化表达并推测盛唐时期诗人关系。
（8）解密盛唐时期诗人关系。数据的可视化以易于理解的方式展示和诠释数据之间的关系、趋势与规律等，使人们更好地理解数据。从常用和实用的维度，数据可视化的呈现类型主要分为探索型和解释型，其中_________型可以帮助人们发现数据背后的价值，_________型则把数据简单明了地解释给人们（选填：探索、解释）。数据分析类型不同可视化呈现方式也不同，如关于趋势的分析，可用_________类型的图表呈现，关于比例的分析，可用_________类型的图表呈现关于关系的分析，可用_________类型的图表呈现。
（9）解密盛唐时期诗人关系。学习小组选择用网络关系图呈现盛唐时期诗人社会网络关系（如图所示）。图中箭头表示诗人之间的引用关系，如李白引用了贺知章，那么就有李白指向贺知章箭头；箭头的粗细程度则表示了诗人之间引用关系的强弱，如李白引用孟浩然的数量达4次，箭头就要粗一些。________
（10）解密盛唐时期诗人关系。观察图示，从绘制的盛唐的诗人社交关系网络图，尝试推测哪位诗人是盛唐诗人的核心，哪位诗人的影响最大，请简要阐述。（要求100字左右）________


三、操作题
16．某校新初一学生共288人，根据分班考成绩平行分成6个班。规则如下：首先对全年级学生按女生在前、男生在后，根据分班考试成绩降序排序，然后进行蛇形分班，如图a所示：

编写VB程序，实现上述平行分班功能。运行程序，单击“读学生成绩”按钮Cmd1，从数据库文件中读取学生的编号、姓名、性别、分班考成绩，分别保存在数组no、xm、xb、cj中，再单击“平行分班”按钮Cmd2，在列表框List1中输出分班结果。程序运行界面如图b所示。
请回答下列问题：
（1）若要清空列表框List1，能实现该功能的语句是( )单选，填字母：
A． List1．Caption = "" / B． List1．Text = "" / C． List1．Clear）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const num = 288, class = 6
Dim no(1 To num) As Integer' 编 号 no
Dim xm(1 To num) As String' 姓 名 xm
Dim xb(1 To num) As String' 性 别 xb
Dim cj(1 To num) As Single'分班考成绩 cj
Dim bj(1 To num) As Integer '分到班级 bj
Dim w As Integer'女生人数 w
Private Sub Cmd1_Click()
'从数据库文件中分别读取学生的编号、姓名、性别、分班考成绩，分别保存在数组 no、xm、xb、cj 中
'统计女生人数保存在 w 中，代码略
End Sub
Private Sub Cmd2_Click()
Dim i As Integer, j As Integer, k As Integer Dim t As Integer, c As String
For i = 1 To num - 1
______
For j = i To num - 1
'排序时，女生在前、男生在后降序排序，分班考成绩相同时不作特别处理
k = j
Next j
If k <>i Then
t = no(k): no(k) = no(i): no(i) = t
t = cj(k): cj(k) = cj(i): cj(i) = t
c = xm(k): xm(k) = xm(i): xm(i) = c
c = xb(k): xb(k) = xb(i): xb(i) = c
End If
Next i
j = 1: k = 1
For i = 1 To num
______
j = j + k
If i = w Then
j = 1: k = 1
If j = class + 1 Or j = 0 Then
_____
j = j + k
End If
Next i
List1．AddItem "班级姓名性别成绩"
For i = 1 To num
List1．AddItem Str(bj(i)) + "" + xm(i) + "" + xb(i) + "" + Str(cj(i))
Next i
End Sub
（3）程序中加框处代码有错，请改正______。

四、简答题
17．将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？
Dim i，j，k As Integer ′ i，j，k用于记录5元，1元，0.5元的张数
Print“5元    1元    0.5元”
For i＝1 To 20
For j＝1 To 100－i
k＝__①__
If__②__Then
Print i，j，k ′分别输出i，j，k三个变量。
End If
Next j
Next i
18．在“抗击疫情，‘宅’出精彩”征文活动中，每位选手可以提交一篇作品。活动以互评的形式展开：每位选手对m篇作品进行打分（本人作品回避），方法如下：
① 用1-n数字代表n个作品，打乱顺序后分配给n个选手。分配方案保存在数组a中，如图a存储了两组分配方案（n=5）。在第一个分配方案中把4号作品分配给1号参赛者，1号作品分配给2号参赛者（选手编号与序号错开）……。
4
1
5
2
3
ça(1)~a(n)中存储第一个分配方案
2
3
4
5
1
ça(n+1)~a(2*n)中存储第二个分配方案







↑第i列中的作品拿给i号参赛者打分图a
②分配方案的形成方法： 将1~n之间的随机数字依次放到第1个位置、第2个位置……，随机数不能与位置号相同，并且要防止分配冲突，如前三个分配序号是“2 3 4”，那么在第4位上只能放“5”（如放“1”会导致第5个位置没有符合要求的数字,因此位置n-1需要判断数“n”是否已经分配，如果未分配，位置n-1放置数“n”），最终方案“2 3 4 5 1”。
③评m个作品需要m个分配方案。方案间要避免同一个人拿到重复的作品。如第16题图a第3行上的数据“5 1 2 3 4”不符合要求，因为会使第2号选手重复拿到1号作品。
小明依据上述方法设计了VB程序，功能如下：在文本框Text1和Text2分别输入参赛人数和每人打分的作品数量，单击“分配”按钮Command1，在列表框List1中输出结果。程序运行效果如图b所示。

请回答下列问题：
（1）n=5，m=3，a(1)~a(10)中的数据如图a所示，a(11)~a(15)的数据可能是 （单选，填字母：A．5 4 3 1 2/B．5 4 1 3 2/C．3 4 5 1 2）
（2）请在划线处填入合适的代码。
Dim n As Integer   '总人数/总作品数
Dim m As Integer   '每人分配篇数
Dim a(1 To 500) As Integer  '数组a大小满足处理要求
Dim c(1 To 100) As Integer  '数组c大小满足处理要求
Private Sub Command1_Click()
    Dim i As Integer, j As Integer, k As Integer
    n = Val(Text1.Text)： m = Val(Text2.Text)
    Randomize
    i = 1
    Do While i <= m
      For j = 1 To n
        c(j) = 0    '本轮分配方案中还没有数字j, c(j)=0，否则c(j)=1
      Next j
      For j = 1 To n
          If j = n - 1 And c(n) = 0 Then
              ①
          Else
             k = r(n, j)
          End If
          a((i - 1) * n + j) = k    '分配数字k到当前方案的第j个位置上
          c(k) = 1
      Next j
            If   ② Then i = i + 1    
    Loop
    s = ""
    For i = 1 To n
        s = "参赛者" & i & "："
        For j = 1 To m
            s = s + Str(a((j - 1) * n + i))+ ","
        Next j
        List1.AddItem s
        s = ""
    Next i
End Sub
Function r(x As Integer, y As Integer) As Integer  
'生成一个取值在[1，x]之间，可以放在y位置上的随机数，满足条件r<>y andc(r)=0
End Function
Function check(c As Integer) As Boolean   
'本轮方案和前面几次的分配方案比较，如果有人分到了重复作品，返回FALSE
  Dim p As Integer,f As Boolean
  f = True
  p = 1
  For i = 1 To c * n
        If ③ Then
           f = False: Exit For
        End If
        p = p mod n +1
     Next i
     check = f
End Function

参考答案：
1．B
2．C
3．C
4．C
5．A
6．D
7．D
8．A
9．A
10．C
11．     60     30
12．28
13．77
14．     B     Text1. Text或其他等价表达式     Mid（x，i，1）或Mid（Text1，Text，i，1）或其他等价表达式     C
15．     C     ABC     数据本地存储     云存储     方便文件共享，只需联网就可读取文件，可以脱离本地计算机保存文件。     网络数据采集法     文档文件     结构化     关联分析     排序     设计算法     高级语言     流程图     判断循环     break     解释、注释     .py     探索     解释     折线图、柱形图、柱线混合图
     饼状图、堆叠面截图、百分比圆环图、圈图     散点图、雷达图、网络关系图、词云图、数据地图、动态势力图、3D动态显示图     如局部图b所示。由引用次数可知，从社交关系从深至浅来说，杜甫的好友依次是李白、孟浩然、王维；李白的好友是孟浩然、杜甫、贺知章；贺知章没有好友；王维的好友只有孟浩然；孟浩然的好友只有王维。     如局部图b所示。由被引用次数可知，李白的被引用次数是12，孟浩然的被引用次数是8，杜甫的被引用次数是3，王维的被引用次数是2，贺知章的被引用次数是2。故李白是是盛唐诗人的核心；从引用别人的次数来看，杜甫的引用别人的次数是15，李白的引用别人的次数是9，维的引用别人的次数是2，孟浩然的引用别人的次数是1，王贺知章的引用别人的次数是0。故杜甫的影响最大。
16．     C     k=num     bj(i)=j     k=-k     cj(k) 17．①100-i-j ②5*i+j+0.5*k=100
18．（1）B  
（2）①k= n         ②check(i - 1)        ③a(i) = a(c * n + p)