2017年浙江省高考信息技术模拟试题（二）

鸡年春晚启用了多个分会场，各会场的实况都通过处理变成了数字信号，以方便通过网络传送。这体现了信息的（  ）

张经理最近很烦，业务联系全靠邮箱，可最近邮箱爆满，绝大部分是自动回复的邮件，听说有一种方法可以在邮件发送时就避免收到自动回复，是下列方法中的（   ）

小李家中新装修，准备安装智能居，希望可以通过语音来开启灯光、调节灯光的亮度、开关窗帘、控制家用电器等等。这主要采用的技术是 (   )

如下图所示，ID字段为自动编号，如果删除了ID为3的行，则（   ）

将输入的字符连接成字符串，直到输入-1为止（输入字符保存在C变量中），如果依次输入以下字符:      3,S,2,D,1,-2,-1,f,-1

则最后得到的字符串是：（   ）

XX公司要为新开发的产品做一个多媒体广告，产品针对的是家族主妇，公司给全国各地不同省市的5万家族主妇发出了有奖问卷调查，收到了43212份答卷。从而了解了用户对产品的需求，有针对性的设计出了广告作品。这个调查属于多媒体作品设计的（   ）

下图可知I的内码是49H，那么字母j的内码会是（   ）

下列关于图形图像描述错误的是（   ）

在将一个图片导入到舞台时出现如下对话框，点击“是”后，导入了8张图片，这8张图片生成了（   ）

【加试题】有一个8秒钟的视频文件1024*768 25pfs，经某压缩算法压缩后容量为4.41MB，已经方式压缩算法压缩比为34 : 1，则该视频单帧的位深度是多少（   ）

【加试题】数组里有12个元素，依次为：34、40、41、43、53、55、65、70、72、74、80、95，下列选项中不正确的是（   ）

【加试题】有如下程序段，当循环执行到第5次时（   ）
For i = 150 To 300

    a = i \ 100

    b = i \ 10 Mod 10

    c = i Mod 10

    If i = a * a * a + b * b * b + c * c * c Then

        Label1.Caption = Str(i)

    End If

Next i

某区四所高中基本考试各科平均分比较如下图，完成下列各小题。

图1

用雨量计或雨量器测定，以mm为单位。目前，我国电视和广播节目中发布的日雨量为08~08时，代表前一天的雨量。从键盘输入前一天雨量（用来模拟传感器），点击判断雨量，然后从label3输出雨量

小雨:1d(或24h)降雨量小于10mm者。

中雨:1d(或24h)降雨量10~25mm者。

大雨:1d(或24h)降雨量25~50mm者。

暴雨:1d(或24h)降雨量50~100mm者。

大暴雨:1d(或24h)降雨量100~250mm者。

特大暴雨:1d(或24h)降雨量在250mm以上者。

Private Sub Command1_Click()

Dim a As Single

Dim s as     ①            

a =        ②             

If a > 250 Then

    s = "特大暴雨"

ElseIf a > 100 Then

    s = "大暴雨"

ElseIf a > 50 Then

    s = "暴雨"

ElseIf a > 25 Then

    s = "大雨"

ElseIf a > 10 Then

    s= "中雨"

ElseIf   ③       Then

    s = "小雨"

Else

    s = "无雨"

End If

Label3.caption=    ④           

End Sub

根据下图完成1-4小题。
图1

有一种压缩算法，基本原理是：特殊字符+重复次数+字符。
比如有文本字符串：A A A A A B C C C C B C C C，编码后得到：B B 5 A B B 4 C B B 3 C。编码串的最开始说明特殊字符B，以后B后面跟着的数字就表示出重复的次数。编程实现将从Text1输入的一个字符串，点压缩按钮后用上述方法压缩，压缩后的编码在Text2中输出，text3中输入特殊字符。压缩算法：
a)       给压缩串添加开关的特殊字符
b)      逐个判断输入字符串的字符（当前的字符与后一个比较），如果两个字符不同，则连到了压缩串中，如果有连续的重复字符则计数n+1
c)       最后一组重复字符或单个字符再连到压缩串中。
u  连入压缩串方法：单个的直接连入，有重复的连入特殊字符开头+数字+重复的字符

图1
程序如下：
Private Sub Command1_Click()
Dim src As String, t As String   ‘src保存输入的字符串
Dim desc As String         ‘desc保存压缩后的字符串
Dim c As String  ‘c保存特殊字符
Dim n As Integer  ‘n用来记连续重复字符个数
src = Text1.Text
c = Text3.Text
n = 0
desc =   ①  
For i = 1 To      ②  
    n = n + 1
    t = Mid(src, i, 1)
    If t <>    ③    Then
         desc = desc & zipstring(n, c, t)
         n = 0
    End If
Next i
Text2.Text = desc & zipstring(n, c,    ④  )
End Sub
Private Function zipstring(n As Integer, c As String, sr As String) As String
         If n <= 1 Then
            zipstring = sr
         Else
            zipstring = c & Trim(Str(n)) & sr
         End If
End Function
①
②
③
④

小丽在假期看到小朋友们在玩一个游戏，8个小朋友围成一圈，从某个小朋友开始报数，报到指定数时，该小朋友出圈，接着从出圈的位置开始再接着报。她希望通过VB程序模拟这个过程，思路如下：

1）用一个一维数组来模拟，编号1~N保存在数据a(1)~a(n)中，来代表N个小朋友。

2）K代表报数的起始位置，从数组的a(k)开始遍列，报到m出圈，将当前位置的元素删除，后面的元素依次往前移位。总数减1。

3）当报数报到数组元素的最后一个时，返回数组开头接着报数。

4）当总数只剩下一个数时，直接输出。

界面如下：

Private Sub Command1_Click(   )

Dim i As Integer

Dim n As Integer

Dim m As Integer, k As Integer

Dim A(1 To 50) As Integer   '存放编号的数组

n = Val(Text1.Text)                       '编号个数

k = Val(Text2.Text)                '报数起始位

m = Val(Text3.Text)                   '报到出圈数

If n > 0 And k > 0 And m > 0   ①  n <= 50 Then

    For i = 1 To n              '初始化编号a(1)=1,a(2)=2,……

         A(i) = i

    Next i

    Label1.Caption =    ②         '调用出圈函数，得到返回的出圈顺序

Else

    MsgBox "编号、起始位、报到出圈数都必须大于0！编号不能超过50！"

End If

End Sub

Private Function chuquan(b() As Integer, n As Integer, m As Integer, k As Integer) As String

Dim i As Integer, j As Integer

Dim s As String                  '出圈顺序存放

i = k - 1

s = "出圈顺序为："

Do While n > 1

       i = i + 1

       m = m - 1

       If    ③ Then

         s = s + Str(b(i)) + ","

         For j = i To n - 1

            b(j) = b(j + 1)

         Next j

         b(j) = 0

         n = n - 1

         i = i - 1

         m = 4

      End If

      If i = n  Then  i = 0

Loop

chuquan =       ④    

End Function

①

②

③

④