2017-2018學(xué)年浙江省名校協(xié)作體高三(下)月考信息技術(shù)試卷(3月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.關(guān)于信息與信息技術(shù),以下說(shuō)法正確的是( ?。?/h2>
組卷:43引用:1難度:0.9 -
2.使用Word軟件編輯一篇文章,界面如圖所示,以下說(shuō)法正確的是( )
組卷:27引用:1難度:0.9 -
3.關(guān)于人工智能,以下說(shuō)法不正確的是( ?。?/h2>
組卷:16引用:2難度:0.9 -
4.關(guān)于Access數(shù)據(jù)庫(kù),以下說(shuō)法正確的是( ?。?/h2>
組卷:9引用:1難度:0.5 -
5.某算法的流程圖如圖所示。執(zhí)行這部分流程后,輸出變量i的值是( ?。?br />
組卷:2引用:3難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.德國(guó)數(shù)學(xué)家哥德巴赫曾猜測(cè):任何大于6的偶數(shù)都可以分解成兩個(gè)素?cái)?shù)(素?cái)?shù)對(duì))的和。但有些偶數(shù)可以分解成多種素?cái)?shù)對(duì)的和,如:10=3+7,10=5+5,即10可以分解成兩種不同的素?cái)?shù)對(duì)。
小敏編寫(xiě)了一個(gè)VB程序,用來(lái)求一個(gè)偶數(shù)(6到100之間)可能存在多少這樣的素?cái)?shù)對(duì)(注:A+B與B+A認(rèn)為是相同素?cái)?shù)對(duì),不重復(fù)統(tǒng)計(jì)),并把這些結(jié)果輸出到一個(gè)列表框中,通過(guò)邏輯推理,小敏發(fā)現(xiàn)這些素?cái)?shù)對(duì)都是奇數(shù),所以她只需要驗(yàn)證奇數(shù)的素?cái)?shù)對(duì)即可。運(yùn)行界面如圖所示,程序代碼如下。但加框處代碼有錯(cuò),請(qǐng)改正。
Dim IsPrime(100)As Boolean'用來(lái)存儲(chǔ)是否素?cái)?shù),True為素?cái)?shù),F(xiàn)alse為非素?cái)?shù)
Private Sub Command1_Click ( ?。?br />Dim x As Integer,y As Integer,i As Integer,num As Integer
Call Init'調(diào)用Init函數(shù)
x=Val(Text1.Text)
y=x\2
num=0
For i=3To y Step 2
If IsPrime(i) Then'①
num=num+1
List1.AddItem Str(x)+“=“+Str(i)+“+“+Str(x-i)
End If
Next i
Label2.Caption=“偶數(shù)“+Str(x)+“共有“+Str(num)+“個(gè)素?cái)?shù)對(duì)?!?br />End Sub
Sub Init
Dim i As Integer,j As Integer,x As Integer
For i=3To 100Step 2
x=Int(Sqr(i))
For j=2To x Step 2'②
If i Mod j=0Then Exit For
Next j
If j>x Then IsPrime(i)=True Else IsPrime(i)=False
Next i
End Sub組卷:2引用:1難度:0.5 -
17.對(duì)于數(shù)組(形如a數(shù)組:4、5、6、1、2、3或b數(shù)組:1、2、3、4、5、6),我們稱(chēng)元素1為此二數(shù)組的拐點(diǎn)。為尋找此類(lèi)遞增或循環(huán)遞增數(shù)組的拐點(diǎn),可以用順序查找和對(duì)分查找的方法,通常相比之下對(duì)分查找算法較優(yōu),以下為使用對(duì)分法查找拐點(diǎn)的算法。
做法是比較中點(diǎn)與當(dāng)前查找范圍第1個(gè)數(shù)大小關(guān)系,用對(duì)分法使查找范圍逼近拐點(diǎn);當(dāng)余下數(shù)組只有二個(gè)元素時(shí),可根據(jù)此二元素大小關(guān)系得到拐點(diǎn)的位置。
依據(jù)上述描述設(shè)計(jì)了VB程序,界面如圖所示。請(qǐng)回答下列問(wèn)題:
(1)對(duì)于循環(huán)遞增數(shù)組“9、10、11、12、13、14、15、16、17、18、19、20、1、2、3、4、5、6、7、8”,代碼中加框處執(zhí)行的次數(shù)為
(2)請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
Dim a(1To 20)As Integer
Private Sub Command1_Click ( ?。?br />Dim Low As Integer,High As Integer
Low=1
High=20
Do While High>Low
If
If
Label1.Caption=“拐點(diǎn)元素為“+Str(a(1))+“,下標(biāo)為“+Str(1)
Else
Label1.Caption=“拐點(diǎn)元素為“+Str(a(High))+“,下標(biāo)為“+Str(High)
End If
Exit Do
End If
m=(Low+High)\2
If a(m)>=a(Low) Then
Low=m
Else
End If
Loop
End Sub
Private Sub Form_Load ( ?。?br />'生成循環(huán)遞增的數(shù)組a,代碼略
End Sub組卷:0引用:1難度:0.5