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

下图是某软件管家对系统工具类软件提供的评价排名，这种评价属于（   ）

小张在打开一个网站上点击了一个超链接，却发现打开了outlook进入邮件撰写界面。由此可见小张点的超链接可能是（   ）

如下图所示，下列说法正确的是（   ）

如下图所示，下列描述正确的是（   ）

下列流程图是为了统计键盘输入数字的个数，输入-1代表结束。则①处应填入（   ）

目前很多的网络电视都能实现视频点播，点什么就播什么，这主要体现了多媒体的（   ）

下列数据中最小的数是（   ）

下列四个图均为200*100像素，24位色的图像，其存储容量大小的说法正确的是：（   ）
a b c   d

小赵制作FLASH动画时的文档属性如下图，下列说法错误的是（  ）

【加试题】小连用ULtraEdit查看到的如下汉字内码。下列说法正确的是：（   ）

【加试题】有如下程序段，运行后A(10)=（   ）
Dim a(30) As Integer
a(1) = 1
a(2) = 1
i = 2
Do While i < 10
    i = i + 1
a(i) = a(i - 1) + a(i - 2)
Loop

【加试题】设窗体上已经添加了command1、text1、label1对象，当文本框中输入8时下列代码段运行后的结果会是（   ）

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

  s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

某高校自主招生实行上机考，根据学校现有机房为学生生成邀请码，学生网上报名时只有邀请码正确才能完成报名。下表中的邀请码生成公式为：=”2017-TEST-“&机房编号&”-”&学生身份证后4位。
图1

完成程序，使其具有下列功能：求表达式1－2＋3－4＋…＋n的值，在文本框Text1中输入一个正整数，单击“计算”按钮Command1，在标签Label3中输出计算结果。程序界面如下图所示：  
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer
Dim s As Integer
n =     ①     
j = 1
For i = 1 To n
    s = s + i * j
    j =   ②  
Next i
Label3.Caption =    ③  
End Sub

如下题图1所示，回答下列问题（1）-（3）题，看图2回答下列（4）-（8）题：

图1

图2

公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾.accdb 数据表名为：联系人
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。

Dim sname(1 To 1000) As String   ‘用于保存嘉宾姓名
Dim phone(1 To 1000) As String   ‘用于保存嘉宾手机号
Dim num As Integer  ‘未抽奖人数
Private Sub Command1_Click()
Dim n As Integer   ‘拟抽奖人数
Randomize
n = Val(Text1.Text)
List1.Clear
If    ①    Then
 For i = 1 To n
    k = Int(Rnd * num) + 1
    List1.AddItem Str(i) + "  " + sname(k) + "   " +   ②     
    For j = k To num
        sname(j) = sname(j + 1)
        phone(j) = phone(j + 1)
    Next j
    num =     ③       
 Next i
Else
    List1.AddItem "剩余的数据不足！"
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
Private Sub Form_Load()
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\年会嘉宾.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from 联系人"
num = 0
Do While Not rs.EOF And num < 1000
    num = num + 1
    phone(num) = rs.Fields("联系电话")
    sname(num) = rs.Fields("姓名")
    rs.MoveNext
 Loop
 rs.Close
 conn.Close
 Set rs = Nothing
 Set conn = Nothing
End Sub

小张学习了冒泡排序后，觉得还可以再改进，用K指向要排序的数的头部，用m指向要排序的数的尾部，每一轮先从前向后扫描k~m-1, 比较相邻若逆序则交换，找出本轮最大数放到本轮数据的尾部，再从后到前扫描剩下的序列m~k+1，比较相邻若逆序则交换，找出本轮最小数放到本轮数据头部。直到k=m结束程序。以下是改进后的程序请补充完整。
Dim n As Integer   ‘数字的个数
Rem 以下程序段为产生n个[10,99]之间的随机整数并在list1中显示
Private Sub Command1_Click()
Randomize Time
n = 50
For i = 1 To n
    List1.AddItem Str(Int(Rnd * 90) + 10)
Next
End Sub
Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
Private Sub Command2_Click()
Dim a(50) As Integer
Dim k As Integer, m As Integer, i As Integer, j As Integer
For i = 1 To n
    a(i) = Val(List1.List(i - 1))
Next i
m = n：k=1
Do While
    J=m-1 : m=1
 For i = k To j
      If a(i+1) < a(i) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t: m=i
    Next i
j =
k=1
For i = m To  j  Step -1
        If a(i) < a(i - 1) Then t = a(i): a(i) = a(i - 1): a(i - 1) = t: 
    Next i
   
Loop
For i = 1 To n
    List2.AddItem
Next i
End Sub