2017-2018学年浙江省温州市九校协作体高二（下）期末信息技术试卷
发布：2024/10/26 9:30:2
一、选择题（本大题共12小题，每小题2分，共24分）
-
1．下列有关信息的说法，正确的是（ ）
组卷：2引用：1难度：0.6 -
2．下列关于网上信息浏览与获取说法正确的是（ ）
组卷：2引用：1难度：0.5 -
3．下列选项中都有体现人工智能技术应用的是（ ）
①用扫描仪扫描书籍内容，并保存为Tif格式的图片文件
②家用机器人扫地拖地
③与音箱里的“小爱同学”语音对话来操控音箱
④在微信中用搜狗输入法输入文字
⑤使用百度搜索图片
⑥使用有道词典的机器翻译功能将一篇中文翻译成英文组卷：1引用：2难度：0.6 -
4．某 Access数据表的设计视图和数据表视图部分截图如图所示，当前状态下，下列说法正确的是（ ）
组卷：0引用：1难度：0.6 -
5．关于进制数，下列说法正确的是（ ）
组卷：5引用：1难度：0.5
二、非选择题（本大题有5小题，共26分）
-
16．一个整数数组，里面有正有负，要求找到并输出其中连加和最大的子数组，输出其开始位置和结束位置。如果两个子数组的和相同，则取前一个子数组。如2、-6、0、3、-1、2、5、-4、4、-3，连加和最大的子数组为3、-1、2、5．算法：如果前几项之和为正，继续往后累加，否则从该项开始重新计算和。
小李编写了一个实现该功能的VB程序，运行界面如图所示。单击“随机生成”按钮 Command1后，随机产生10个[-10，10]随机整数，并在列表框List1中显示。单击“找子数组”按钮 Command2后，找出连加和最大的子数组，将最大和在标签 Label1中输出，将子数组在标签 Label2中输出，子数组的起始位置和结束位置在标签 Label3中输出。
实现上述功能的VB程序如下，但加框处代码有误，请改正
Dim a（1 To 10）As Integer
Private Sub Command1_Click （ ）
’生成10个随机数，并显示在列表框List1中。代码略。
End Sub
Private Sub Command2_Click （ ）
Dim maxsum As Integer,lastsum As Integer,ks As Integer,js As Integer,k As Integer
Dim s As String,i As Integer
ks=1：js=1：k=1：maxsum=a（1）：lastsum=a（1）
For i=2 To 10
If lastsum＞0 Then
′（1）
Else
lastsum=a（i）
′（2）
End If
If lastsum＞maxsum Then
Maxsum=lastsum
ks=k
js=i
End If
Next i
Label 1．Caption=″连加值最大的和为″+Str（ maxsum）
For i=ks To js
s=s+Str（a（i））
If i＜＞js Then s=s+″、″
Next i
Label2．Capt ion=″连加值最大的子数组为：″+s
Label3．Caption=″子数组从第″+Str（ks）+″到第″+Str（js）+″个″
End Sub组卷：1引用：1难度：0.5 -
17．全排列是从给定的n个不同的数据里取n个元素生成的排列。
例1：字符集{7，3，5}，升序生成的所有全排列是：357，375，537，573，735，753，共6种。
例2：字符集{c,a,f,d}，升序生成的所有全排列是：acdf,acfd,adcf,adfc,afcd,afdc,cadf,cafd,cdaf,cdfa,cfad,cfda,dacf,dafc,dcaf,dcfa,dfac,dfca,facd,fadc,fcad,fcda,fdae,fdca,共24种。
n个字符可以生成n!种全排列。求出n个字符所有的全排列可以按下列算法进行：
①第一个全排列是所给字符升序连接产生的字符串。
②此后，在上一个排列中从右向左扫描找出第一次出现降序的位置j,将第j位之后的字符从右向左逐个与第j位的字符进行比较，找出第一个大于j位置字符的字符位置k,交换j和k位置上的字符，再将第j+1到n位的字符升序排序，产生当前全排列。
例：假如前一种全排列是“13542”，从右往左扫描发现第一次出现降序是“35”，于是j=2，接着将第5位到第3位的字符逐个与第2位的“3”进行比较，最先发现“4”＞“3”，则交换“3”和“4”，变成“14532”，然后再将第3位到第5位的字符升序排序，最后求得当前全排列为“14235”
③重复第②步，直到产生所有的全排列。
编写VB程序实现上述功能，运行界面如图所示。在文本框Text1中输入升序排序的待排列字符（字符个数不超过9个），单击“全排列”按钮 Command 1后，在列表框List1中升序输出所有的全排列。
（1）在文本框 TextI中输入“13579”（不包括双引号），则“51397”是升序输出的所有全排列中的第 个全排列。（填数字）
（2）请在横线处填入合适的代码
Sub swap （a,b）
t=a：a=b：b=t
End Sub
Private Sub Command1_Click （ ）
Dim n As Integer,i As Integer,j As Integer
Dim k As Integer,d As Integer,m As Long
Dim c（1 To 9）As String
Dim a（1 To 500000）As String
s=Text1．Text：n=Len（s）：m=1：a（1）=s
For i=1 To n
c（i）=Mid（s,i,1）
Next i
For 1=1 To n
①
Next i
For i=2To m′求出第2～m种全排列
j=n-1
Do While j＞=1
If c（j）＜c（j+1）Then
For k=n To j+1 Step-1
If ② Then Exit For
Next k
Swap c（k），c（j）
For k=③
For d=n To k+l Step-l
If c（d）＜c（k） Then swap c（d），c（k）
Next d
Next k
For k=1 To n′得到第i种全排列
a（i）=a（i）&c（k）
Next k
Exit do
End If
J=j-1
Loop
ext i
For i=I To m
List1．AddI tem a（i）′升序输出所有全排列
Next i
End Sub组卷：0引用：1难度：0.5
