2017年浙江省普通高校高考信息技術(shù)模擬試卷（16）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關(guān)信息的說法，正確的是（ ?。?/h2>
組卷：7引用：1難度：0.9 -
2．用UltraEdit軟件觀察“VB6.0中文版”這幾個字符的內(nèi)碼，如圖所示，下列描述中正確的是（ ?。?br />
組卷：11引用：1難度：0.9 -
3．小李用Word制作了一份關(guān)于生活廢棄物的科學(xué)調(diào)查報告．張老師在修訂模式下對文檔進(jìn)行了修改，部分截圖如圖所示．該文檔接受所有修訂后，第一行的文字應(yīng)該是（ ?。?br />
組卷：6引用：2難度：0.9 -
4．小葉用Access軟件創(chuàng)建的數(shù)據(jù)表如圖所示，在該表中，下列操作不能實(shí)現(xiàn)的是（ ）
組卷：7引用：3難度：0.9 -
5．計(jì)算s=2+4+6+…+10的算法流程圖如圖所示．
若要計(jì)算s=2×4×6×…×10，則上述流程圖中的“s←s+x,x←x+2”應(yīng)改為（ ?。?/h2>組卷：6引用：3難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．任意一個大于等于4 的偶數(shù)，都可以用兩個素?cái)?shù)之和表示，這就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
編寫一個驗(yàn)證哥德巴赫猜想的VB 程序：程序運(yùn)行時，在文本框Text1 中輸入一個大于等于4 的偶數(shù)，單擊“驗(yàn)證”按鈕Command1 后，如果哥德巴赫猜想驗(yàn)證成功，則在文本框Text2 中顯示“Yes”，并在列表框List1 中顯示用兩個素?cái)?shù)表示該偶數(shù)的等式，否則顯示“No”．程序運(yùn)行結(jié)果如圖所示．實(shí)現(xiàn)上述功能的VB 代碼如下，但加框處代碼有錯，請改正．
函數(shù)judge的功能是判斷整數(shù)x是否為素?cái)?shù)，若是素?cái)?shù)則返回True,否則返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge=True
j=2
Do While j＜=x-1And judge=True
If x Mod j=0Then
judge=False
Else
judge=true‘①
End If
Loop
End Function
Private Sub Command1_Click （ ?。?br />Dim n As Integer,p As Integer,q As Integer,flag As Boolean
n=Val（Text1．Text）
p=1
flag=False
Do While flag=True And p＜n‘②
p=p+1
q=q+1‘③
If judge（p） And judge（q） Then
Text2．Text=“Yes“
flag=True
List1．AddItem Str（n）+“=“+Str（p）+“+“+Str（q）
End If
Loop
If flag=False Then Text2．Text=“No“
End Sub.組卷：25引用：2難度：0.1 -
17．【加試題】下列程序的功能是將text1中輸入的自然數(shù)分解為3個互不相同的質(zhì)數(shù)（三個質(zhì)數(shù)的和等于輸入的自然數(shù)），并把分解產(chǎn)生的質(zhì)數(shù)按升序順序顯示在右邊的列表框中．例如，輸入20，那么在列表框中會顯示如下圖所示結(jié)果．其中，界面中“分解”按鈕的名稱是“Command1”，程序中函數(shù)f（x）的功能是判斷x是否為質(zhì)數(shù)，如果是質(zhì)數(shù)，則返回值為true,否則返回false.
請?jiān)谙铝谐绦虼a的基礎(chǔ)上按照要求設(shè)計(jì)該程序，完善程序中的劃線部分．
Dim n As Integer,a1As Integer,a3As Integer,a3As Integer
Function f（x）As Boolean
f=True
For i=2To Sqr（x）
If x Mod i=0Then
Next i
End Function
Private Sub Command1_Click（ ）
n=
For a1=2To n
For a2=a1To n
For a3=a2To n
IfAnd f（a1）And f（a2）And f（a3）Then
List1．AddItem Str（a1）+“”+Str（a2）+“”+Str（a3）
End If
Next a3
Next a2
Next a1
End Sub
（1）程序中①橫線處應(yīng)填入．
（2）程序中②橫線處應(yīng)填入．
（3）程序中③橫線處應(yīng)填入．組卷：20引用：2難度：0.1