2016-2017學(xué)年浙江省嘉興市高三（上）基礎(chǔ)測(cè)試信息技術(shù)試卷
發(fā)布：2025/1/2 22:0:2
一、選擇題（本題共12個(gè)小題，每小題2分，共24分）
-
1．以下行為不恰當(dāng)?shù)氖牵ā 。?/h2>
組卷：3引用：2難度：0.9 -
2．某同學(xué)利用百度搜索得到的部分界面如圖所示，以下說法錯(cuò)誤的是（ ?。?br />
組卷：10引用：5難度：0.9 -
3．使用OCR軟件進(jìn)行文字識(shí)別，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：4引用：3難度：0.9 -
4．某Access數(shù)據(jù)表編輯界面如圖所示，以下說法錯(cuò)誤的是（ ?。?/h2>組卷：13引用：9難度：0.7 -
5．根據(jù)雨水的pH值判斷酸雨情況的規(guī)則為：當(dāng)pH值小于4.7時(shí)為“重度酸雨”，當(dāng)pH值介于4.7～5.6時(shí)為“輕度酸雨”，當(dāng)pH值大于5.6時(shí)為“非酸雨”．其算法流程圖如下圖所示，則圖中①、②所在判斷框中的內(nèi)容是（ ?。?br />
組卷：5引用：5難度：0.7
二、非選擇題（共26分）
-
16．數(shù)字黑洞數(shù)6174．一個(gè)任意的四位正整數(shù)（四位數(shù)完全相同除外），將數(shù)字重新組合成一個(gè)最大的數(shù)和最小的數(shù)相減，重復(fù)這個(gè)過程，最多七步，必得6174．如取四位數(shù)5462，按以上方法作運(yùn)算如下：
①6542-2456=4086 ②8640-0468=8172
③8721-1278=7443 ④7443-3447=3996
⑤9963-3699=6264⑥6642-2466=4176
⑦7641-1467=6174
從文本框Text1中輸入一個(gè)任意的數(shù)字不完全相同的四位正整數(shù)，在文本框Text2中輸出掉進(jìn)黑洞的步數(shù)．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正：
①②
Private Sub Command1-Click（ ?。?br />Dim a（1 TO4）As Integer,c As Integer,tAs In teger
Dim x As Integer,yAs Integer,iAs Integer,j AsInteger
x=Val（Text1．Text）
c=0
Do While x＜＞6174
For i=l To4'把四位正整數(shù)x的每一位數(shù)字取出來并存放到數(shù)組a中
a（i）=xMod10
'①
Next i
Fori=1To3
Forj=i+lTo4
If
Then'②
t=a（i）：a（i）=a（j）：a（j）=t
end
Next j
Next i
x=a（1）*1000+a（2）^100+a（3）*10+a（4）
y=a（1）+a（2）*10+a（3）*100+a（4）*1000
x=x-y
c=c+1
Loop
Text2．Text=Str（c）
End Sub.組卷：2引用：2難度：0.1 -
17．約瑟夫問題．編號(hào)為1、2、3、…、n的n個(gè)人按順時(shí)針方向圍坐一圈，每人手持一個(gè)密碼（正整數(shù)）．開始任意選一個(gè)正整數(shù)m作為報(bào)數(shù)的上限值，從第一個(gè)人開始順時(shí)針自1開始順序報(bào)數(shù)，報(bào)到m時(shí)停止，同時(shí)報(bào)m的人出列，并將他的密碼作為新的上限值m,從他順時(shí)針下一個(gè)人開始重新自1開始報(bào)數(shù)，如此下去直到所有人全部出列為止．
要求：
1．由用戶輸入隊(duì)列人數(shù)n和正整數(shù)m,以及游戲的密碼上限x.
2．隊(duì)列中每人所持的密碼隨機(jī)產(chǎn)生，大小必須在[1，x]區(qū)間．
3．在程序界面中按出列順序顯示每個(gè)人的編號(hào)和出列時(shí)他所持的密碼．
運(yùn)行效果如圖所示
實(shí)現(xiàn)上述功能的VB程序如下．請(qǐng)?jiān)跈M線處填入適當(dāng)?shù)恼Z句和代碼，把程序補(bǔ)充完整．
（1）在程序畫線①處應(yīng)填入；
（2）在程序畫線②處應(yīng)填入；
（3）在程序畫線③處應(yīng)填入．
Private Sub Command1-Click（ ）
Dim a（ ?。〢s Integer,b（ ?。〢sInteger,m As Integer,n As Integer
Dim i As Integer,k As Integer,cAs Integer,x As Integer
n=Val（Textl.Text）：m=Val（Text2．Text）：x=Val（Text3．Text）
ReDim a（lTon）As Lnteger'重新定義數(shù)組a,存儲(chǔ)下標(biāo)對(duì)應(yīng)編號(hào)人的隊(duì)列狀態(tài)
ReDim b（lTon）As Lnteger'重新定義數(shù)組b,存儲(chǔ)下標(biāo)對(duì)應(yīng)編號(hào)人的密碼
Randomize'隨機(jī)數(shù)生成器初始化
For i=l To n
a（i）=l'在列'產(chǎn)生每個(gè)人的隨機(jī)密碼
Next
c=0
k=0
Listl.Clear
Do While c＜n
For i=l To n
k=k+a（i）'累計(jì)報(bào)數(shù)
Ifk=mAndThen
k=0
a（i）=0'出列
Listl.Addltem''出列人的編號(hào)為''&i&''，該人的密碼為''&b（i）
c=c+1
End If
Next i
Loop
End Sub.組卷：2引用：1難度：0.1