发布时间 : 星期三 文章【技术】浙江省宁波市2018届高三3月新高考选考适应性考试试题更新完毕开始阅读426ae79e0229bd64783e0912a216147917117ea5
（1）在Photoshop中，以下有可能导致“背景.psd”文件图层数量改变的操作是___▲___ （多选，填字母：A. 复制图层 /B. 使用“仿制图章工具”仿制图像 /C. 添加“图层样式” /D. 设置滤镜效果 /E. 使用“竖排文字工具”添加文字）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）测试影片时，首先播放的场景是___▲___（填场景的名称），库中共有元件___▲___个。
（3）若“松”图层中的松树在main场景播放1秒后才出现，且使松树动画在场景中维持2秒的播放时间，则正确的操作是___▲___。
（4）“岁寒三友.fla”和“jianjie.txt”在同一个文件夹中，若单击“简介”按钮后，在浏览器中打开“jianjie.txt”文件，则在该按钮上应添加的动作脚本为___▲___。
16. 【加试题】小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 10
Dim a（1 To n） As Integer Private Sub Command1_Click（） Dim i As Integer，j As Integer，t As Integer Dim k As Integer，bottom As Integer
’获取排序前数据，依次存储在数组a中，并在文本框Text1中显示。代码略 bottom = n: i = 1 Do While i <= bottom – 1 k = i: j = bottom Do While j > i
精选
If a（j） < a（k） Then k = j
ElseIf a（j）= a（i） Then ’若发现重复数据，进行剔除处理 a（j）= a（bottom）
If k = bottom Then
bottom = bottom – 1 End If j = j – 1 Loop If k <> i Then
t = a（k）: a（k）= a（i）: a（i）= t
i = i + j End If i = i + 1 Loop
Text2.Text = \For i = 1 To bottom
Text2.Text = Text2.Text + Str（a（i）） Next i End Sub
17. 【加试题】小林发给小周一串密文“VghpcyBpcyBhbiBleGFtcGxl”并告诉小周，这串密文由明文字符串（仅包含ASCII字符，且字节数为3的倍数）经以下规则加密而成： （1）将明文ASCII码分成3个字节一组，顺次连接后得到24位二进制数； （2）将得到的24位二进制数字按每6位一组分成4组，每组6个位； （3）在（2）中得到的6个位前补上两个0，得到4个字节的二进制数； （4）将（3）中得到的四个二进制数分别转换为十进制数；
（5）将每个十进制数转换为1个加密字符，对应的“密码表”按数值由0到63依次为“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/” 小周按照上述规则，设计了一个解密VB程序，功能如下：单击“解密”按钮Command1，程序
’（2）
k = j - 1 ’（1）
精选
依次将文本框Text1中每4个密文字符按加密规则转换为3个明文字符，连接这些明文字符，最后在文本框Text2中输出结果。程序运行效果如下图所示。
实现解密功能的VB程序如下，请回答下列问题：
（1）若密文字符串的长度是120，则解密后明文字符串的长度是___▲___。 （2）请在划线处填入合适代码。 Function Char2Int（c As String） As Integer If c >= \Char2Int = Asc（c）- 65
Elself c >= \ Char2Int = Asc（c）- 71
ElseIf c >= \ _____①_____ ElseIf c = \Char2Int = 62 Else Char2Int = 63 End If End Function
Private Sub Command1_Click（）
’解密过程
’数字“0”的ASCII码是48 ’字母“a”的ASCII码是 97
’字母“A”的 ASCII码是65
Dim n As Integer，s As String，i As Integer，ss As String Dim a（0 To 3） As Integer
’依次存储一组四个密文按密码表换算出的数值
Dim b（0 To 2） As Integer ’依次存储一组三个明文字符的ASCII值 s = Text1.Text n = Len（s）
精选
ss = \
For i = 1 To n Step 4 For j = i To i + 3
a（ ② ）= Char2Int（Mid（s，j，1）） Next j
b（0） = a（0） * 4 + a（1） \\ 16 ③
b（2） = （a（2） Mod 4） * 64 + a（3） For j = 0 To 2 ss = ss + Chr（b（j）） Next j Next i Text2.Text = ss End Sub
第二部分 通用技术（共50分）
一、选择题（本大题共13小题，每小题2分，共26分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
1. 2017年12月，我国首条太阳能公路开通，这也是全球首条承载光伏路面研发与铺设的高速公路，如图所示。随着光伏路面技术的发展，专家预言，玻璃制成的太阳能板将彻底替换沥青路和停车场，公路不但承载着交通运输的任务，还能为当地社区提供电力，以节省能源。关于光伏路面技术，以下说法正确的是（ ）
A. 主要体现了技术发展人的作用
B. 既能承载运输任务，还能发电，体现了技术的综合性 C. 该技术在申请专利过程中，进入公布阶段，说明专利申请成功 D. 该技术的成功运用，符合设计的创新、实用、可持续发展原则
如图所示是某款计算机房工作台和座椅的人机工程学设计示意图。回答第2-3题。
精选