2018-2019學(xué)年浙江省嘉興一中高三（上）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）
-
1．下列有關(guān)信息和信息技術(shù)的說(shuō)法，正確的是（ ）
組卷：10引用：2難度：0.5 -
2．下列有關(guān)網(wǎng)站和網(wǎng)頁(yè)的說(shuō)法，正確的是（ ）
組卷：5引用：2難度：0.5 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。
下列說(shuō)法正確的是（ ）組卷：4引用：2難度：0.5 -
4．關(guān)于Access數(shù)據(jù)表的操作，下列說(shuō)法正確的是（ ）
組卷：4引用：2難度：0.5 -
5．某算法部分流程圖如圖所示，執(zhí)行這部分流程，下列說(shuō)法正確 的是（ ?。?br />
組卷：0引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．篩選法求素?cái)?shù)的核心思想是先找最小素?cái)?shù)，然后剔除其所有的倍數(shù)，在留 下的數(shù)中再剔除最小素?cái)?shù)的倍數(shù)，重復(fù)執(zhí)行，直到剔除所有的非素?cái)?shù)。小張編寫了一個(gè)2 查找孿生素?cái)?shù)對(duì)（差值為2）的VB程序，功能如下：在文本框Text1中輸入一個(gè)整數(shù)n（n≤1000000），單擊“求素?cái)?shù)對(duì)”按鈕Command1，在列表框List1中 顯示2 到n 范圍內(nèi)的素?cái)?shù)，在標(biāo)簽Label2中顯示素?cái)?shù)個(gè)數(shù)，在標(biāo)簽Label3中顯示孿生素?cái)?shù)對(duì)個(gè)數(shù)。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
PrivateSubCommand1_Click （ ?。?br />DimnAsLong,iAsLong,jAsLong
DimtAsLong'存儲(chǔ)素?cái)?shù)個(gè)數(shù)
DimcountAsInteger'存儲(chǔ)素?cái)?shù)對(duì)個(gè)數(shù)
DimpAsLong
Dima（2To10000000）AsInteger n=Val（Text1．Text）
Fori=2Ton a（i）=1
Nexti
p=2
DoWhilep＜=Int（Sqr（n）） Ifa（p）=1Then
j=2
DoWhilej＜=n\p
'（1）
j=j+1
Loop
EndIf
p=p+1
Loop t=0
Fori=2Ton
Ifa（i）=1Thent=t+1
Nexti count=0
Fori=2Ton-2
If
Then'（2）
count=count+1
List1．AddItemads（i,1）&ads（i+2，5）EndIf
Nexti
Label2．Caption=“總共有“+Str（t）+“個(gè)素?cái)?shù)“
Label3．Caption=“其中有“+Str（count）+“個(gè)孿生素?cái)?shù)對(duì)“
EndSub
Functionads（xAsInteger,nAsInteger）As String
'整數(shù)轉(zhuǎn)換成長(zhǎng)度固定的字符串，代碼略
EndFunction組卷：0引用：1難度：0.5 -
17．下列關(guān)于某紙牌游戲的算法是：隨機(jī)產(chǎn)生兩組牌，每組17張，牌從小到大
分別為“3～10、J、Q、K、A、2”，每種牌最多4 張，四張相同的牌如3333稱為炸彈牌 型，炸彈不能拆成其他牌型。按照如下規(guī)則出牌：
①先出順子牌型（順子指連續(xù)的5 張及以上的牌，如345678，順子最小從3 開始，最大到A），若有多個(gè)順子，先長(zhǎng)后短，長(zhǎng)度相同按從小到大順序出；
②再按三帶一牌型（3張相同的牌帶一張單牌）、對(duì)子牌型（2張相同）、單張牌型的順 序出牌，同一牌型從小到大出；
③最后出炸彈，若有多個(gè)炸彈，從小到大出。
設(shè)計(jì)以下VB程序，牌“10”用0 代替，比較兩組出牌次數(shù)，界面如圖所示，請(qǐng)回答下 列問題。
（1）若A組初始牌為：4567880JQQQQKAAA2，B組初始牌為：56778888JQQKKKA22，
則A組出牌次數(shù)B組。（填：大于/等于/小于）
（2）請(qǐng)?jiān)跈M線處填入合適代碼。
Consts=“34567890JQKA2“'用0代替牌10
Dims1As String,s2As String's1存儲(chǔ)A組牌，s2存儲(chǔ)B組牌
Dimb（1To18）As String
'數(shù)組b存儲(chǔ)各類牌型，其中b（1）到b（4）可存儲(chǔ)炸彈牌型，b（5）到b（18）存儲(chǔ)其他牌型
PrivateSubCommand1_Click （ ?。?br />'隨機(jī)產(chǎn)生A組和B組牌分別在文本框Text1、Text2中顯示，代碼略
EndSub
Subarrange（stAs String）'整理牌型的過程
Dima（3To15）AsInteger,iAsInteger
DimjAsInteger,tAsInteger,nAsInteger
DimkAsInteger,maxAsInteger,lastAsInteger
DimsaAs String,stemAsString,flagAsBoolean
'數(shù)組元素a（3）到a（15）分別存儲(chǔ)牌3～JQKA2的張數(shù)'代碼略
t=17
For i=1To18b（i）=““
Nexti
DoWhilet＞0n=0
For i=3To15'尋找炸彈牌型，若有則存儲(chǔ)到數(shù)組b中
Ifa（i）=4Then
n=n+1
b（n）=stem+stem+stem+stem
a（i）=0：t=t-4
EndIf
Nexti
flag=True
DoWhileflag'尋找順子牌型，若有則存儲(chǔ)到數(shù)組b 中
flag=False：max=0：k=1
Fori=4To14
Ifa（i-1）＞=1Anda（i）＞=1Then k=k+1
Ifk＞maxThen
max=k last=i+1
EndIf
Else
k=1
EndIf
Nexti
Ifmax＞=5Then
flag=True：sa=““
Forj=last-max+1Tolast stem=Mid（s,j-3，1）sa=sa+stem+““
Nextj
n=n+1：b（n）=sa t=t-max
EndIf
Loop
'尋找并存儲(chǔ)三帶一、對(duì)子、單張牌型，代碼略
Loop
EndSub
PrivateSubCommand2_Click （ ?。?br />Dim count1AsInteger'count1統(tǒng)計(jì)A組出牌次數(shù)
Dim count2AsInteger'count2統(tǒng)計(jì)B組出牌次數(shù)
Callarrange（s1）
'在List1中顯示A組出的牌型，統(tǒng)計(jì)出牌次數(shù)，代碼略
Callarrange（s2）
'在List2中顯示B組出的牌型，統(tǒng)計(jì)出牌次數(shù)，代碼略
Ifcount2＞count1Then
Label3．Caption=“A組出牌次數(shù)小于B組“
ElseIfcount2=count1Then
Label3．Caption=“A組出牌次數(shù)等于B組“
Else
Label3．Caption=“A組出牌次數(shù)大于B組“
EndIf
EndSub組卷：0引用：1難度：0.3