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