浙江省2017年4月信息技术选考真题

题图c所示，但该图表中显示的并不是APP名称，改正的方法是 。 第13题图b 第13题图c

14. 奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。 （2）实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim a As Integer, s As String

Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = \

Do While n > 0 a = n Mod 2 n = n \\ 2

t = ① s = Str(a) + s Loop

v = t Mod 2 Text2.Text = s

Label3.Caption = \校验位值：\② End Sub

（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是 。 15. 小王制作主题为“中国象棋”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

（第5页，共9页）

第15题图a

（1）如第15题图a所示，当前状态下，下列操作可行的是 （多选，填字母：A.修改图中左下角的数值缩放图像 / B.选中“背景”图层后，调整其不透明度 / C.对“右”图层的内容进行自由变换 / D.选中“中国象”图层后，对其内容进行填充）。

（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）

第15题图b

（第6页，共9页）

（2）如第12题图b所示，“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果，该动画类型为 （填字：动画补间 / 形状补间 / 逐帧动画）。 （3）要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果，应做的调整是 。

（4）为实现该场景动画播放完后自动停止，小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本，但脚本出现在该图层第1帧，其原因是 。

（5）测试影片时，单击“象棋简介”按钮，实现在浏览器中显示位于同一目录下“intro.txt”文件的内容，则“象棋简介”按钮的动作脚本为 。

16.【加试题】小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有错，请改正。 Private Sub Command1_Click()

Dim s As String, resule As String, pos As String Dim count As Integer, i As Integer i = 1: count = 0

resule = \

Do While i <= Len(Text1.Text)

s = Mid(Text1.Text, i, Len(Text2.Text)) If s = Text2.Text Then

result = result + Text3.Text count = count + 1

pos = pos + Str(count) i = i + Len(Text2.Text) Else

result = result + Text2.Text i = i + 1

（第7页，共9页）

End If Loop

Text4.Text = result Text5.Text = Str(count) Text6.Text = pos End Sub

17.【加试题】小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。

分数 个数（A数组） 名次（B数组） 100 2 1 99 0 98 0 97 0 96 1 3 95 0 94 3 4 ? ? ? 0 0 程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。

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

（1）如表所示，若分数93的个数为2，则该分数对应的名次为_____________。 （2）请在划线处填入合适的代码。

Dim sName(1 To 50) As String '存放学生姓名 Dim sScore(1 To 50) As Integer '存放学生分数 Dim recCount As Integer '存放学生人数 Private Sub Form_Load()

'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示 '代码略 End Sub

'整数转换成长度固定的字符串

Function ads(x As Integer, n As Integer) As String Dim sx As String, nx As Integer, i As Integer sx = Str(x): nx = Len(sx) For i = 1 To n - nx sx = \ Next i

（第8页，共9页）

① End Function

Private Sub Command1_Click()

Dim A(0 To 100) As Integer '存放每个分数的个数 Dim B(0 To 100) As Integer '存放每个分数的名次 Dim mc As Integer, score As Integer, i As Integer For i = 0 To 100 A(i) = 0 Next i

For i = 1 To recCount '计算每个分数的个数 ② Next i mc = 1

For i = 100 To 0 Step -1 '计算每个分数的名次 If A(i) <> 0 Then B(i) = mc ③ End If Next i

List2.Clear

List2.AddItem \姓名 分数 名次 \ List2.AddItem \ For i = 1 To recCount score = sScore(i) mc = B(sScore(i))

List2.AddItem sName(i) + ads(score, 5) + \第\名\ Next i End Sub

（第9页，共9页）