20xx年10月浙江省高中技术选考试题及答案word版

20xx年10月浙江省高中技术选考试题及答案word版内容摘要：

应改变。 （ 2） 6 如第 15 题 2 图所示，测试 Main 场景时，动画播放到第 45 帧自动停止。 则“控制”第 7 页 共 18 页 图层第 45 帧的帧动作脚本是。 16.【加试题】 n 个数据的冒泡排序需要经过 n1 遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。 小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。 为此，小刘对算法进行优化，编写了一个 VB 程序，功能如下：运行程序时，在列表框 List1 中显示排序前数据，单击“ 排序”按钮 Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签 Label3 中显示排序过程的加工遍数。 运行效果如第 16 题图所示。 第 16 题图 实现上述功能的 VB 代码如下，但加框处代码有错，请改正。 Dim a(1 To 8) As Integer Dim n As Integer Private Sub Form_Load() 39。 n=8， 排序前数据存储在数组 a 中，并在列表框 Listl 中显示 39。 代码略 End Sub Private Sub Command1_Click() Dim flag As Boolean 39。 flag 值为 True 表示一遍加工中发生过交换 i = 1 flag = True Do While 39。 （ 1） flag = False For j = n To i + 1 Step 1 If a(j) a(j 1) Then k = a(j): a(j) = a(j 1): a(j 1) = k flag = True End If Next j i = i + 1 Loop = 排序过程的加工遍数为 + 39。 （ 2） For i = 1 To n i = n 1 Or flag = True Str(i) 第 8 页 共 18 页 Str(a(i)) Next i End Sub 编辑：浙江省桐乡第一中学 杜宗飞 17.【加试题】某数据加密方法描述如下： (1)以字节为单位进行加密处理； (2)将 1 个字节的 8 位二进制数分割成前 4 位与后 4位两个二进制数； (3)分别将上述两个 4 位二进制数转换为十进制数； (4)将每个十进制数转换为 1 个加密字符，对应的“密码表”如下： 值 (十进制 ) 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 加密字符 I l i k e C H N P 0 s t c a r d 小明按照上述方法，设计了一个字符串（仅包含 ASCII 字符）加密的 VB 程序，功能如下 :单击“加密”按钮 Commandl,程序依次将文本框 Textl 中每个字符的 ASCII 码值作为 1 个字节转换为两个加密字符，连接这些加密字符，最后在文本框 Text2 中输出加密结果。 下表显示了字符串中一个字符的加密过程： 程序运行效果如第 17 题图所示。 实现上述功能的 VB 程序如下： （ 1）请在划线处填入合适代码。 Private Sub Command1_Click() Dim n As Integer, s As String, i As Integer, ss As String Dim a As Integer 39。 存储加密前字符的 ASCII 码 Dim b1 As Integer, b2 As Integer 39。 分别存储分割、转换后的两个十进制 数 s = ① For i = 1 To n a = Asc(Mid(s, i, 1)) b1 = a \ 16 b2 = a Mod 16 ss = ss + Code2Char(b1) + Code2Char(b2) = ss 第 9 页 共 18 页 Next i End Sub 39。 十进制值转换为加密字符的函数 Function Code2Char(c As Integer) As String Dim s As String s = IlikeCHNpostcard Code2Char = ② End Function (2)若将“密码表”中值为“ 0”对应的加密字符“ I”改成“ i”，加密后的密文可能无法解密，原因是。 编辑：浙江省桐乡第一中学 杜宗飞 第 10 页 共 18 页 第二部分通用技术。