(2)小西解决问题后，将所有数据复制到Excel工作表中并进行相关处理结果如第6题— 3图所示。
第6题-3图
小西对区域A1:G7中的数据按“总得分”进行降序排序,操作步骤如下： ①选择数据区域G2:G7
②执行“数据”菜单中的“排序(S)...”命令，出现如第6题—4图所示的对话框
第6题-4图
③选择“以当前选定区域排序(C)”，单击“排序(S)...”按钮 ④设置主要关键字为“总得分”,排序方式为“降序”，单击“确定”结果如第6题—5图所 示。
第6题-5图
仔细观察,小西发现排序结果是错误的，造成错误的原因是_____(填：操作步骤顺序错/选定数据区域错误/选择主要关键字错误)
（3）说小西为了计算“网络投票分”的总分，在F8单元格中输人“SUM(F2:F7)”并确认后， F8单元格中显示的结果为_____。
第 9 页 共 18 页
7. 二维码是一种用若干个与二进制相对应的几何图形来表示数据信息的编码。二维码可通过 二维码生成器生成，例如，可通过如第7题—1图所示的二维码生成器，生成文本“浙江省考试院”的二维码，如第7题—2图所示。
第7题—1图 第7题—2图
（1）文本“浙江省考试院”的二维码的生成过程属于_____ (填:文字识别/图像处理/信息编码)。
（2）小郭将其身份证信息的二维码上传到自己的微博，这种做法_____ (填:存在信息安全隐患/侵犯了他人的隐私)
选考模块（共25分）
考生在“算法与程序设计”和“多媒体技术应用”
两个模块中任选一个作答
A.算法与程序设计
一、选择题：本大题共5小题，每小题3分，共15分。在每小题给出的四个选项中，只有一个是符合题目要求的。
1.下列VB函数返回值为数值的是 A. Chr（x）
B.Str（x）
C. Val（x） D.Mid（x,n,k） 2. 有如下VB程序段： a = 3: b = 4: c = 5
If a >= b And a >= c Then y = a
ElseIf b >= c Then y = b Else y = c End If
该程序段运行之后，整数型变量y的值 A. 0
B. 3
C. 5
D.5
第 10 页 共 18 页
3. 有如下程序段： s = \
For i = 1 To 3
For j = 7 To i + 1 Step -1 If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k End If Next j
s = s + Str(a(i)) Next i
Text1.Text = s
数组元素a(1)到a(7)的数据依次为“3,9,1,5,8,6,2”经过该程序段“加工”后，文本框Text1中显示的内容是
A. 1 2 3 B.9 8 6 C. 3 9 1 D.8 6 2 4.某查找算法的部分VB代码如下： t = False i = 0
Do While i < 7 And t = False i = i + 1
If a(i) = Key Then t = True Loop
If t = False Then i = 0
数组元素a(1)到a(7)的数据依次为“3，5，1，5，8，9，5”，当变量key值为5时，运用该算法处理后，变量i的值是
A. 0 B. 2 C. 4 D.7 5.如果一个整数是另一个整数的平方，则称该数是“完全平方数”。如：1=1×1，4=2×2，9=3×3，所以1、4、9是完全平方数。下列VB程序可以求出1到n（1≤n≤1000）之间的所有完全平方数之和：
Private Sub Command1_Click()
Dim s As Long '用于存储1到n之间所有完全平方数之和 Dim i As Integer, n As Integer n = Val(Text1.Text) s = 0
For i = 1 To n
If ok(i) Then s = s + i '当ok函数返冋值为True时’执行s = s + i Next i
Label1.Caption = Str(s) End Sub
'ok函数用于判断变量t的值是否为完全平方数 Function ok(t As Integer) As Boolean Dim k As Integer If k * k = t Then ok = True Else ok = False End Function
方框中的正确语句是
A. k = Int(Sqr(t)) B. t = Int(Sqr(k)) C. k = t^2 D.t= k^2
第 11 页 共 18 页
二、综合题:本大题共2小题，其中第6小题4分，第7小题6分，共10分。 6. 运行下列VB程序，在文本框Text1中输入12，,界面如第6题图所示。
第6题图
单击“开始”按钮Command1后，标签Label1中显示的内容是 (1) ，文本框Label2中显示的内容是 (2) 。
Private Sub Command1_Click()
Dim x As Integer, i As Integer, max As Integer, min As Integer x = Val(Text1.Text)
Label1.Caption = Str(x) + \ min = 1
For i = 2 To x - 1 If x Mod i = 0 Then min = i
Exit For '终止循环 End If Next i
max = x \\ min
Label2.Caption = Str(min) + \ End Sub
7. 某仓库物品代码格式为“X—XXX—XXXXX—Y”,其中“X”和“Y”均为0到9之间的数字, “Y”为校验码。校验码由前面9个X计算得到，计算方法为:从左边开始，第1个数字乘以1 加上第2个数字乘以2??依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码。
小吴设计一个根据校验码校验物品代码的VB程序,功能如下:在文本框Text1中输人物品代码，单击“校验”按钮Command1，如果输人的校验码与计算所得的校验码一致，则输出“校验通过。”（如第7题—1图所示），否则输出“校验不通过！”（如第7题—2图所示）。
第7-1题图
第7-2题图
第 12 页 共 18 页