2018-2019學(xué)年浙江省嘉興一中高三(上)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項(xiàng)中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列有關(guān)信息和信息技術(shù)的說法,正確的是( ?。?/h2>
A.隨著現(xiàn)代通信技術(shù)和計(jì)算機(jī)技術(shù)的發(fā)展產(chǎn)生了信息技術(shù) B.通過無線網(wǎng)絡(luò)傳輸?shù)男畔⒉灰栏接谳d體 C.信息可以脫離它所反映的事物被存儲、保存和傳播 D.網(wǎng)絡(luò)是信息的表達(dá)方式,可利用網(wǎng)絡(luò)發(fā)布信息 組卷:10引用:2難度:0.5 -
2.下列有關(guān)網(wǎng)站和網(wǎng)頁的說法,正確的是( ?。?/h2>
A.網(wǎng)頁文件使用瀏覽器編輯,通過HTTP協(xié)議傳輸 B.只有純文字的網(wǎng)頁才可以用記事本編輯 C.網(wǎng)站的地址用URL標(biāo)識,收藏夾收藏網(wǎng)站首頁就是保存該網(wǎng)頁的URL D.以“網(wǎng)頁,全部(*.htm;*.html)”保存網(wǎng)頁時(shí),網(wǎng)頁中的圖片保存在網(wǎng)頁文件中 組卷:5引用:2難度:0.5 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。
下列說法正確的是( ?。?/h2>A.批注的內(nèi)容一旦添加,就不能修改 B.刪除批注,批注對象同時(shí)被刪除 C.實(shí)現(xiàn)圖中的圖文環(huán)繞效果可以采用“四周型”環(huán)繞方式 D.拒絕對文檔的所有修訂后,最后一行文字中的“語言識別”被保留 組卷:4引用:2難度:0.5 -
4.關(guān)于Access數(shù)據(jù)表的操作,下列說法正確的是( ?。?/h2>
A.在數(shù)據(jù)表視圖中不能添加字段 B.在數(shù)據(jù)表視圖中不能對數(shù)據(jù)進(jìn)行篩選操作 C.?dāng)?shù)據(jù)表的名稱不能與表中的字段名相同 D.Access數(shù)據(jù)表中的數(shù)據(jù)能導(dǎo)出到Excel電子表格 組卷:4引用:2難度:0.5 -
5.某算法部分流程圖如圖所示,執(zhí)行這部分流程,下列說法正確 的是( )
A.“s≥0”共判斷了10次 B.語句“k=1-k”共執(zhí)行了10次 C.輸出k的值為0 D.輸出s 的值為-1 組卷: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ù)。小張編寫了一個2 查找孿生素?cái)?shù)對(差值為2)的VB程序,功能如下:在文本框Text1中輸入一個整數(shù)n(n≤1000000),單擊“求素?cái)?shù)對”按鈕Command1,在列表框List1中 顯示2 到n 范圍內(nèi)的素?cái)?shù),在標(biāo)簽Label2中顯示素?cái)?shù)個數(shù),在標(biāo)簽Label3中顯示孿生素?cái)?shù)對個數(shù)。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
PrivateSubCommand1_Click ( ?。?br />DimnAsLong,iAsLong,jAsLong
DimtAsLong'存儲素?cái)?shù)個數(shù)
DimcountAsInteger'存儲素?cái)?shù)對個數(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
IfThen'(2)
count=count+1
List1.AddItemads(i,1)&ads(i+2,5)EndIf
Nexti
Label2.Caption=“總共有“+Str(t)+“個素?cái)?shù)“
Label3.Caption=“其中有“+Str(count)+“個孿生素?cái)?shù)對“
EndSub
Functionads(xAsInteger,nAsInteger)As String
'整數(shù)轉(zhuǎn)換成長度固定的字符串,代碼略
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),若有多個順子,先長后短,長度相同按從小到大順序出;
②再按三帶一牌型(3張相同的牌帶一張單牌)、對子牌型(2張相同)、單張牌型的順 序出牌,同一牌型從小到大出;
③最后出炸彈,若有多個炸彈,從小到大出。
設(shè)計(jì)以下VB程序,牌“10”用0 代替,比較兩組出牌次數(shù),界面如圖所示,請回答下 列問題。
(1)若A組初始牌為:4567880JQQQQKAAA2,B組初始牌為:56778888JQQKKKA22,
則A組出牌次數(shù)
(2)請?jiān)跈M線處填入合適代碼。
Consts=“34567890JQKA2“'用0代替牌10
Dims1As String,s2As String's1存儲A組牌,s2存儲B組牌
Dimb(1To18)As String
'數(shù)組b存儲各類牌型,其中b(1)到b(4)可存儲炸彈牌型,b(5)到b(18)存儲其他牌型
PrivateSubCommand1_Click ( )
'隨機(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)分別存儲牌3~JQKA2的張數(shù)'代碼略
t=17
For i=1To18b(i)=““
Nexti
DoWhilet>0n=0
For i=3To15'尋找炸彈牌型,若有則存儲到數(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'尋找順子牌型,若有則存儲到數(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
'尋找并存儲三帶一、對子、單張牌型,代碼略
Loop
EndSub
PrivateSubCommand2_Click ( )
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