温馨提示：手机用户请点击下方“原网页”或“电脑版”进行查看本文，效果最佳！
第15题-3图
请回答下列问题：
（1）小新在使用Photoshop的过程中，将人物复制到“卡通小妹”图层后，发现该图层图像过大，不符合图片的比例，如第15题-1图所示，她利用编辑菜单里的_______（选填：图像大小/画布大小/自由变换）功能将其等比例缩小到70%，得到了自己满意的比例。
（2）小新将“相框”图像复制到“相框”图层，发现相框并没有显示出来，结合第15题-1图分析原因：____________________________________________。
（3）“文字1”出现一闪一闪的效果，说明对文字“颜色”属性的 值设置了0%—100%的变化。
（4）在执行“测试影片”命令时，发现“卡通小妹”出现后便消失了，不符合脚本要求，观察第15题-2图分析如何改正：__________________________________________________。
（5）在执行“测试影片”命令时，出现了如第15题-3图这样的错误，说明被设置动作命令的对象为___________（选填：场景/图层/关键帧/按钮）。根据脚本要求，正确的动作命令应设置为
___________________________________。
16.[加试题] 素数又称质数，指在一个大于1的自然数中，除了1和此整数自身外，不能被其他自然数整除的数。超级质数的定义为：当一个素数从低位到高位依次去掉最后一位数后，剩下的数仍然是素数，则此数为超级素数。例如：3137、313、31、3均为素数，所以3137为超级素数。小蓉设计了一个程序查找四位正整数中的超级素数。
程序运行时，单击Command1,则在列表框List1中显示所有四位数的超级素数，并在标签Label1中显示超级素数的数量。程序运行效果如第16题图所示。
 
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, t As Integer, c As Integer
Dim flag As Boolean
c = 0
For i = 1001 To 9999 Step 2
t = i
flag = True
Do While t <> 0
 If ① Then
flag = False
Exit Do
End If
t = t \ 10
Loop
If flag Then
List1.AddItem Str(i)
②
End If
Next i
Label1.Caption = "四位超级素数共有" + Str(c) + "个"
End Sub
Function prime(x As Integer) As Boolean
Dim i As Integer
prime = True
For i = 2 To x - 1
If ③ Then
prime = False
Exit Function
End If
Next i
End Function
1. ①处的代码为 。
②处的代码为 。
③处的代码为 。
2. 该程序的算法为 。(选填：枚举算法/解析算法)
17.[加试题] 计算机中用一个字节来存储一个字符的ASCII码，低7位二进制为ASCII编码，在传输数据时最高位可作为奇偶校验位，具体方法是:若7位ASCII编码有偶数个1，最高位为1，有奇数个1，则最高位为0。例如字母“A”的ASCII编码是65（二进制为1000001），则“A”的传输码是“11000001”。小马编写了一个VB程序，把ASCII编码转换成传输码，程序界面如图所示。
（1）如果输入字母“F”，则它的传输码是______________。
（2）具体的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, i As Integer
Dim str As String, ch As String
List1.Clear
str = Text1.Text
For i = 1 To Len(str)

s = convert(ch)
List1.AddItem ch & "→" & s
Next i
End Sub
Private Function convert(ch As String) As String
Dim m As Integer, k As Integer, n As Integer, i As Integer, s As String
s = ""
n = Asc(ch)
Do While n > 0
②
s = m & s
If m = 1 Then
k = k + 1
End If
n = n \ 2
Loop
For i = 1 To 7 - Len(s)
s = "0" & s
Next i
If k Mod 2 = 0 Then
s = "1" & s
Else
s = "0" & s
End If
③
End Function
高中生物模拟题  http://www.17xuexiba.com/sw/