浙江省杭州市2016年信息技术高考模拟卷五

“小李子”莱昂纳多-迪卡普里奥在第88届奥斯卡颁奖典礼上凭借《荒野猎人》获得最佳男主角奖的，全世界的网友通过电视、网络看到了这一幕，纷纷在各大社交媒体上对小李表示祝贺。这体现了信息（   ）

下列哪个选项没用用到人工智能（   ）

在word文档中如图所示，这两个波浪线各应该是什么颜色？（   ）

如下图所示，拖动选定单元格右下角的填充柄至D2释放，则A2：D2中的数据为（   ）

某算法流程图如右图所示，执行算法流程图后，
S<--S+k执行了几次？（   ）

高一（1）班同学为了展示班级风采，决定建立班级网站，主要操作步骤如下： （   ）
①收集反馈意见、评价修正网站;②需求分析、确定目标;③策划制作方案、收集整理素材;④选择适当工具、实际制作。  合理的操作流程是

用photoshop编辑“诚信.psd”时，部分界面如下图所示：
  
若只想保留图片中的“信”字，下列方法最适合的是（   ）

使用GoldWave软件处理音频为双声道Wave格式的音频文件，要求左声道是清唱，从00:00:02开始；右声道是伴音，前2秒淡入、后2秒淡出。下列处理效果符合要求的是（   ）

下图为调试某Flash作品时，弹出的错误提示窗口：
可能的出错原因是（   ）

【加试题】用UltraEdit观察字符内码，结果如图所示：
则字符“PPt”的十六进制内码值为：（   ）

【加试题】下列程序用于计算s=1*2+3*4+5*6+7*8+9*10，请问划线处分别为（   ）
s=0
for  k = 1  to  10  step    
s = s +        
next  k

【加试题】一组数据 22,94,17,125,63，若采用冒泡排序算法对其进行升序排列，则需要经历几遍加工？第一次加工交换多少次？（   ）

读图、回答问题
图1

图2

图3

现要求编写VB程序，界面如图1所示，程序功能如下：单击开始暂时按钮Command1，图像控件Image1中的图片每隔5秒更换一张，再次单击Command1按钮，停止展示。  

在寒假难得一见的寒潮期间，小明用Flash创作“寒岁三友”的多媒体作品，请回答下列问题：
图1

图2

【加试题】小明为班会设计了一个抽奖程序，将所有同学的编号和对应的姓名分别保存在数组a（全班共50个同学，编号为1到50）和数组b中，点击抽奖按钮后，程序会随机产生一个1到50的正整数（同时包括1和50），作为中奖编号。
效果如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。
解决此问题的程序段如下：
Dim a(1 To 50) As Integer，b(1 To 50) As String
Private Sub Command1_Click()
Dim c As String, t as Integer    ①
Randomize
c=Int(Rnd()*50+1)
Label3.Caption = Str(c)
t = search(c)
    If t < 0Then    ②
       Label4.Caption = "恭喜" + b(c) + "同学"
    End If
 End Sub
Function search(m As Integer) As Integer
search = 0
For i = 1 To 50
    If  m = a(i) Then
       search = a(i)
    End If
Next i
End Function
Private Sub Form_Load()    ' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
上面代码中有错误请改正。
①②

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
    程序界面如图VB-1所示，用户在文本框Text1中输入数字长度，单击“确定长度”按钮（Command1）后，在文本框Text2中输入数字，单击“判定”按钮（Command2）后，程序在标签Label3中输出校验结果。
相应的程序如下，在程序划线处，填入适当的语句或表达式，把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
 Dim i As Integer，n As Integer
 n = Val(Text1.Text)
 For i = 1 To n                   '产生n位小于8的密码，每位一个非负整数，保存到数组num
  num(i) =
 Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
 n = Val(Text1.Text)
 For i = 1 To n
     x(i) =     '把文本框中数字逐个分割出来并转化成数值
 Next i
 s = 0                               '变量s保存不同字符的总数
 For i = 1 To n
  If num(i) <> x(i) Then  s = s + 1
 Next i
 If  Then
  Label3.Caption = "恭喜你猜中了！"
 Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
 End If
End Sub