梅花三麓专项文档
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。 为实现这一算法，编写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 Inte
ger
2
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
（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”中加入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. 无输出
寞寞 沉沉 寞寞 沉沉
15．小明要创作雅加达亚运会的多媒体作品，他首先使用Photoshop软件处理图片，然后使用Flash制作动画，请回答下列问题：
第15题 图a
（1）如图a所示，要将乒乓球拍之外的背景区域去除，并保存成透明背景，导入到flash后，不会遮挡其他内容，下列操作行的是 (多选，填字母：A．将“背景”图层用颜色值RGB(255,0,0)填充，再将文件另存为PNG格式/ B．删除“背景”图层，再将文件另存为GIF格式/ C．去掉“背景”图层前的眼睛，再将文件另存为JPG格式/ D．直接调整“背景”图层的不透明度为0，再将文件另存为GIF格式/ E．去掉“背景”图层前的眼睛，再将文件另存为GIF格式/ F．将文件直接“另存为”PNG格式)。 (注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
梅花三麓专项文档
相关推荐：
loading