2020-2021學年浙江省紹興市諸暨中學高二（下）期中信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中，只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關信息和信息處理的說法，正確的是（ ?。?/h2>
組卷：9引用：2難度：0.6 -
2．小明訪問網頁“http：//jyt.zj.gov.cn/49907261.jye.ai”下列說法正確的是（ ?。?/h2>
組卷：6引用：2難度：0.5 -
3．使用OCR軟件進行字符識別，部分界面如圖所示，下列說法正確的是（ ）
組卷：9引用：3難度：0.9 -
4．某Access 數據表，其設計視圖如圖1所示，數據表如圖2所示，下列說法正確的是（ ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201710/10/25391f0f.png" style="vertical-align:middle" />
組卷：4引用：3難度：0.7 -
5．如果用0至6七個數字依次對星期天、星期一……星期六進行編碼，那么星期就可以看成7進制數，下列選項中與七進制數（113）7數值相等的是（ ?。?/h2>
組卷：5引用：2難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第15小題7分，共26分）
-
15．統(tǒng)計最長的順子牌。點擊“抓牌”按鈕隨機生成1—13之間的整數，將之轉換為撲克牌的牌號（整數1對應的牌號是A，整數2對應著牌號2，10的牌號是0，以此類推，如下表）顯示在文本框Text1中，并存入數組a中，同時選出最長的順子牌（順子牌是最小3開始，要求連續(xù)牌號連續(xù)，A、2不能當順子牌；如牌號為5，7，6，J，5，2，K，4，Q，A，2，J，則順子牌號有4，5，6，7；J，Q，K若順子牌數量相同，輸出較小的順子牌）顯示在文本框Text2中。VB程序運行界面如圖所示。隨機整數1-13對應的牌號如下。
（1）上述程序界面中有Caption屬性的對象共有個。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim a（1 To 13）As Integer,b（1 To 13）As Integer
Const ph=“34567890JQKA2“
Private Sub Command1_Click （ ?。?br />Randomize
s=““
For i=1 To 13
a（i）=Int（Rnd*13+1）
s=s+Mid（ph,①，1）
If i＜＞13 Then s=s+“，“
②
Next i
Text1.Text=s
k=1：Max=0：s=““
For i=4 To 13
If b（i）＞0 And b（i-1）＞0 Then
k=k+1
If k＞Max Then
Max=k：org=③
End If
Else
k=1
End If
Next i
For j=org To org+Max-1
s=s+
If j＜＞org+Max-1 Then s=s+“，“
Next j
Text2.Text=s
For i=1 To 13
b（i）=0
Next i
End Sub組卷：2引用：1難度：0.3 -
16．小張用VB模擬實現了一個打地鼠游戲的計分程序。游戲規(guī)則如下：總共有10個地鼠洞，每秒地鼠選擇一個洞探出腦袋，如果當前的錘子在該洞口，則打中地鼠，否則沒有打中。游戲時間總共t秒（t＜=10，Text1中輸入），錘子的起始位置在b（1）（Text2中輸入）?，F已知每個時刻地鼠探腦袋的位置，根據錘子移動的路線，計算得出最多的得分，并輸出到 Labe1l。
錘子移動規(guī)則：錘子每秒必須往左或往右移動一步（不可在當前位置停留），如果錘子已經在最左邊了，只能往右移動；反之，只能往左移動。
計分方式：如果打中一個地鼠，計1分；如果連續(xù)打中地鼠，分數翻倍，即連續(xù)打中兩個，分數為1+2；連續(xù)打中三個，分數為1+2+4；連續(xù)打中四個，分數為1+2+4+8……
算法思路：
①隨機產生在第i秒時，地鼠探出腦袋的洞口為j。
若每個時刻地鼠探腦袋的洞口如圖a所示，以10個洞口為橫坐標n,游戲時間t（假設t=10）為縱坐標，建立一個矩陣a。當前時間出現地鼠的洞口標記為1，其余默認為0。
②模擬第i秒敲擊洞口的位置。
1）若輸入游戲過程如圖b所示，從5號洞口出發(fā)b（1）=5，當時間為i=1時，可到達的洞口有2種：j=2時b（2）=6，j=1時b（1）=4，即得矩陣a的坐標位置i和b（j）；
2）同理當i=2時，可到達的洞口有4種：j=4時b（4）=7，=3時b（3）=5，=2時b（2）=5，j=1時b（1）=3.i=1敲擊洞口位置為6或4；i=2敲擊洞口位置6→7，6-5或4→5，4→3；
3）將t秒內可經過的2t種不同路徑敲擊的矩陣位置的值存放到數組p中，如圖b所示得到其中某一條路徑p（j）=0101100010，根據p（j）計算得分，找出最值max并輸出。
（1）如果游戲時間為10秒，每秒地鼠出現的洞口序號依次為[9，9，9，10，10，10，10，9，9，9]，當錘子的起始位置在第6個洞口時，最多能得分。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ?。?br />Const n=10
Dim a（1 To n*n）As Integer,b（1 To 2^n）As Integer
Dim p（1 To 2^n）As String,s1 As String
Dim i As Integer,j As Integer,k As Integer,max As Integer
Dim t As Integer,s As Integer,f As Integer
Randomize
t=Val（Text1.Text）
For i=1 To t'第i秒時，地鼠探出腦袋的洞口為j
j=Int（Rnd*n+1）
①
List1.AddItem Str（i） &Str（j）
Next i
s1=““
For i=1 To t*n
s1=s1+Str（a（i））
If i Mod n=0 Then List2.AddItem s1：s1=““
Next i
b（1）=Val（Text2.Text）
For i=1 To n'計算錘子在a矩陣移動的路徑，并存放在p數組
k=1'k為正則向右移動錘子，k為負則向左移動錘子
For j=2^i To 1 Step-1
b（j）=b（（j+1）\2）+k
If b（j）＜1 Or b（j）＞n Then b（j）=b（j）-2*k
p（j）=p（（j+1）\2）+CStr（ ②）'CStr功能類似Str
k=-k
Next j
Next i
max=0
For i=1 To 2^n
f=0：s=0：j=1
Do While j＜=Len（p（i））
If Val（Mid（p（i），j,1））＞0 Then
③
Else
s=s+f：f=0
End If
j=j+1
Loop
If f＞0 Then s=s+f
If max＜s Then max=s
Next i
Label1.Caption=“最多能得“+Str（max）+“分“
End Sub組卷：1引用：1難度：0.3