大：5184×3456 中：3456×2304 照片分辨率 小：2592×1728 RAW：5184×3456 照片格式 存储介质 JPEG，RAW SD卡，SDHC卡，SDXC卡 RAW是一种没有经过压缩等处理的图像文件格式，其RGB中的每个颜色分量存储需用2个字节，已知该相机存储最大分辨率的JPEG图像的大小为4.5M左右，则一幅采用RAW格式拍摄的照片需要的存储空间约为JPEG图像的多少倍

A．3倍 B．8倍 C．24倍 D．50倍

（ ）11.【加试题】有如下VB程序段：

Dim i As Integer, sum As Integer Dim a(1 To 8) As Integer sum = 1

a(8) = 49: a(7) = 28 For i = 6 To 1 Step -1 a(i) = a(i + 2) - a(i + 1)

If a(i) Mod 3 = 0 Then sum = sum + a(i) Next i

text1.Text = Str(sum)

该段程序运行后，文本框Text1中显示的内容是

A.21 B.43 C.42 D.1

（ ）12.【加试题】可以用二分法来求算术平方根近似值。对f(x)=x来说，在x∈[1,2]的范围内，f(x)单调递增，这就给二分法创造了条件，例如求解√2 ，由于√2 是无理数，因此只能获得它的近似值，我们以一定精度为例来逼近√2。

（1）如果f(mid)>2，说明mid>√2，应当在[left,mid]的范围内继续逼近，故令right=mid。 （2）如果f(mid)<2，说明mid<√2，应当在[mid,right]的范围内继续逼近，故令left=mid。

·5·

2

为实现这一算法，编写VB程序如下： Function f(x As Single) As Single f = x ^ 2 End Function

Private Sub Command1_Click()

Dim i As Integer, j As Single, m As Single Dim n As Integer n = Val(text1.Text) i = 1: j = 2

Do While j - i > 10 ^ -5 m = (i + j) / 2

If f(m) > n Then j = m Else i = m Loop

label1.Caption = Str(n) & \的算术平方根近似值为\End Sub

下面说法错误的是

A.该程序不可用于计算10的算术平方根 B.该程序的精度j、i差值小于等于10

C.代码“Function f(x As Single) As Single”不可修改为“Function f(x As Double) As Single” D.代码中j=m可修改为j=m-1

二、非选择题（本大题共 5小题，其中第13小题 4分，第14小题 5分，第15小题8分，第16小题 3 分，第17小题 6 分，共 26分） 13.小明收集了2018年某月全国部分城市空气质量的相关数据，并使用Excel软件进行数据处理，如第13题图所示。请回答下列问题：

-5

·6·

（1）单元格F23中的数据是通过复制单元格D23得到的，则F23单元格中的公式为 。

（2）若要对表格数据按照“污染指数API”列数据进行降序排序，则应选择的数据区域为 。

（3）若要筛选出北方城市中“污染指数API”最高的3个，下列操作可行的是 （全部选对的得2分，选对但不全的得1分，不选或有选错的得0分。）

A.先筛选出“地理位置”为“北方”，再筛选出“污染指数API”为最大3项。 B.先按“地理位置”升序排，再筛选出“污染指数API”为最大3项。 C.先筛选出“地理位置”为“北方”，再按“污染指数API”降序排。 D.主关键字选“地理位置”，升序，次关键字选“污染指数API”，降序。

14.诗词爱好者小奇发现一些诗句中的叠字（有至少二个重叠的字）非常优美，如“庭院深深深几许”……，小奇希望用VB编写程序，寻找诗句中的叠字。程序运行界面如下：

（1）每次点击“运行”按钮，自动清空列表框List1的内容，可在过程“Command1_Click”中加入

·7·

List1.Clear，其中“Clear”是 （单选，填字母：A.对象名/B.方法/C.属性/D.事件） （2）实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()

Dim i As Integer, n As Integer, flag As Boolean, txt As String txt = text1.Text n = Len(txt) c = 1

For i = 1 To n - 1

If Mid(txt, i, 1) = ① Then flag = True c = c + 1 Else

flag = False End If

If ② Then

list1.AddItem Mid(txt, i - c + 1, c) c = 1 End If Next i

If c > 1 Then list1.AddItem Mid(txt, i - c + 1, c) End Sub

（3）若去掉加框代码，输入的诗句为“贫恨苦吟穷寞寞，乱愁牵断梦沉沉”（不含引号），则启动程序，单击“运行”按钮后，列表中 （单选，填字母） A.输出： B. 输出： C. 输出： D. 无输出

·8·