2017-2018學(xué)年浙江省溫州市九校協(xié)作體高二（下）期末信息技術(shù)試卷
發(fā)布：2024/10/26 9:30:2
一、選擇題（本大題共12小題，每小題2分，共24分）
-
1．下列有關(guān)信息的說(shuō)法，正確的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
2．下列關(guān)于網(wǎng)上信息瀏覽與獲取說(shuō)法正確的是（ ）
組卷：2引用：1難度：0.5 -
3．下列選項(xiàng)中都有體現(xiàn)人工智能技術(shù)應(yīng)用的是（ ?。?br />①用掃描儀掃描書籍內(nèi)容，并保存為Tif格式的圖片文件
②家用機(jī)器人掃地拖地
③與音箱里的“小愛(ài)同學(xué)”語(yǔ)音對(duì)話來(lái)操控音箱
④在微信中用搜狗輸入法輸入文字
⑤使用百度搜索圖片
⑥使用有道詞典的機(jī)器翻譯功能將一篇中文翻譯成英文組卷：1引用：2難度：0.6 -
4．某 Access數(shù)據(jù)表的設(shè)計(jì)視圖和數(shù)據(jù)表視圖部分截圖如圖所示，當(dāng)前狀態(tài)下，下列說(shuō)法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/201912/182/576716c8.png" style="vertical-align:middle" />
組卷：0引用：1難度：0.6 -
5．關(guān)于進(jìn)制數(shù)，下列說(shuō)法正確的是（ ）
組卷：5引用：1難度：0.5
二、非選擇題（本大題有5小題，共26分）
-
16．一個(gè)整數(shù)數(shù)組，里面有正有負(fù)，要求找到并輸出其中連加和最大的子數(shù)組，輸出其開(kāi)始位置和結(jié)束位置。如果兩個(gè)子數(shù)組的和相同，則取前一個(gè)子數(shù)組。如2、-6、0、3、-1、2、5、-4、4、-3，連加和最大的子數(shù)組為3、-1、2、5．算法：如果前幾項(xiàng)之和為正，繼續(xù)往后累加，否則從該項(xiàng)開(kāi)始重新計(jì)算和。
小李編寫了一個(gè)實(shí)現(xiàn)該功能的VB程序，運(yùn)行界面如圖所示。單擊“隨機(jī)生成”按鈕 Command1后，隨機(jī)產(chǎn)生10個(gè)[-10，10]隨機(jī)整數(shù)，并在列表框List1中顯示。單擊“找子數(shù)組”按鈕 Command2后，找出連加和最大的子數(shù)組，將最大和在標(biāo)簽 Label1中輸出，將子數(shù)組在標(biāo)簽 Label2中輸出，子數(shù)組的起始位置和結(jié)束位置在標(biāo)簽 Label3中輸出。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請(qǐng)改正
Dim a（1 To 10）As Integer
Private Sub Command1_Click （ ?。?br />’生成10個(gè)隨機(jī)數(shù)，并顯示在列表框List1中。代碼略。
End Sub
Private Sub Command2_Click （ ?。?br />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=″連加值最大的子數(shù)組為：″+s
Label3．Caption=″子數(shù)組從第″+Str（ks）+″到第″+Str（js）+″個(gè)″
End Sub組卷：1引用：1難度：0.5 -
17．全排列是從給定的n個(gè)不同的數(shù)據(jù)里取n個(gè)元素生成的排列。
例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個(gè)字符可以生成n!種全排列。求出n個(gè)字符所有的全排列可以按下列算法進(jìn)行：
①第一個(gè)全排列是所給字符升序連接產(chǎn)生的字符串。
②此后，在上一個(gè)排列中從右向左掃描找出第一次出現(xiàn)降序的位置j,將第j位之后的字符從右向左逐個(gè)與第j位的字符進(jìn)行比較，找出第一個(gè)大于j位置字符的字符位置k,交換j和k位置上的字符，再將第j+1到n位的字符升序排序，產(chǎn)生當(dāng)前全排列。
例：假如前一種全排列是“13542”，從右往左掃描發(fā)現(xiàn)第一次出現(xiàn)降序是“35”，于是j=2，接著將第5位到第3位的字符逐個(gè)與第2位的“3”進(jìn)行比較，最先發(fā)現(xiàn)“4”＞“3”，則交換“3”和“4”，變成“14532”，然后再將第3位到第5位的字符升序排序，最后求得當(dāng)前全排列為“14235”
③重復(fù)第②步，直到產(chǎn)生所有的全排列。
編寫VB程序?qū)崿F(xiàn)上述功能，運(yùn)行界面如圖所示。在文本框Text1中輸入升序排序的待排列字符（字符個(gè)數(shù)不超過(guò)9個(gè)），單擊“全排列”按鈕 Command 1后，在列表框List1中升序輸出所有的全排列。
（1）在文本框 TextI中輸入“13579”（不包括雙引號(hào)），則“51397”是升序輸出的所有全排列中的第 個(gè)全排列。（填數(shù)字）
（2）請(qǐng)?jiān)跈M線處填入合適的代碼
Sub swap （a,b）
t=a：a=b：b=t
End Sub
Private Sub Command1_Click （ ?。?br />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