2022-2023學年云南省昭通市鎮雄一中高一（上）期末信息技術試卷
發布：2025/1/7 0:30:2
一、選擇題
-
1．“猴子吃桃“問題：一天，有一只猴子從樹上摘下若干個桃子，當即吃了一半，覺得不過癮，又吃了一個．第二天小猴子接著吃剩下的一半，還覺得不過癮，又吃了一個．以后每天都是吃前一天剩下的一半并再吃多一個．到第四天，猴子按規則吃完桃子后，只剩一個桃子．問小猴子第一天摘了多少個桃子．右圖所示是根據分析所畫出的部分流程圖．采用倒推算法，其中設定M的初始值為1（第四天吃完后剩下的桃子數），D為天數（初始值為5）．請在下面的①和②（對應流程圖中相應空缺位置）填入相應選項．①、②分別為（ ）組卷：3引用：2難度：0.7 -
2．以下術語中表示文件傳輸協議的是（ ?。?/h2>
組卷：0引用：2難度：0.6 -
3．最新消息：全國信息安全標準化技術委員會日前明確要求，網聯汽車采集數據不得在境外存儲。這說明（ ?。?/h2>
組卷：3引用：3難度：0.7 -
4．隨著現代信息技術的發展，出現了很多新型的電子產品，如智能眼鏡、智能手表等等．下列說法中，不符合信息技術發展趨勢的是（ ）
組卷：9引用：5難度：0.9 -
5．有如下VB程序段：
For i=2 to 5
For j=i to 5
If j mod i=0 then a（j）=a（j）+1
Next j
Next i
For i=1 to 5
If a （i）＜＞1 then s=str（i）+s
Next i
若數組a 的初始值都為0，則運行該程序段后，s的值為（ ）組卷：0引用：1難度：0.4 -
6．馮諾依曼型體系結構的計算機中引進了兩個重要的概念，它們是（ ?。?/h2>
組卷：3引用：2難度：0.6 -
7．某單位的域名為：jyeoo.jye.ai,其網址（URL）的完整寫法是（ ?。?/h2>
組卷：2引用：1難度：0.7 -
8．李明通過電子郵件給遠在美國的父親成功發送了一張賀卡，在他父親沒有接收郵件之前，該電子郵件將（ ）
組卷：3引用：2難度：0.5 -
9．二進制數11101與十進制數2相加的結果是（ ）
組卷：0引用：1難度：0.6 -
10．下列關于Excel的敘述，錯誤的是（ ?。?/h2>
組卷：14難度：0.9
三、操作題
-
31．星期天，小龍來到動物園游玩，園內共有N個景點（可在10個以上），每個景點都有一個標號，標號為1至N．現在只知道每個景點有一條路連接下一個景點。小龍想知道，根據這些道路信息，從其中一個景點出發，最后再回到出發景點，最多能游玩多少個景點。
例如，共有N=5個景點，每個景點連接的下一個景點分別是2，4，5，5，2。
則他可以從2號景點出發，最多可以游玩2號、4號、5號三個景點。景點號 1 2 3 4 5 下一景點號 2 4 5 5 2
程序代碼如下：
PrivateSubCommand1_Click （ ?。?br />Dima（1To100）AsInteger,d（1To100）AsInteger
DimjdAsString,mAsString,cAsInteger,iAsInteger
DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
jd=Text1．Text+″，″
s=0：c=0
Fori=1ToLen（jd）
m=Mid（jd,i,1）
Ifm＜＞″，″Then
①
Else
c=c+1：a（c）=s：s=0
EndIf
Nexti
ans=0：k=0
Fori=1Toc
Fork=1Toc
d（k）=0
Nextk
Ifd（i）=0Then
p=i
DoWhilep＜=c
Ifd（p）=0Then
k=k+1：d（p）=k
Else
②
Ify＞ansThenans=y
k=0
ExitDo
EndIf
Loop
EndIf
Nexti
Text2．Text=Str（ans）
EndSub
（1）要使程序運行時，Form1的BackColor屬性值為黑色，以下代碼正確的是。（單選，填字母）
（2）若有7個景點，且每個景點的連接情況為：6，3，7，2，7，5，4，那么小龍最多可以游玩的景點數是A．PrivateSubForm_Load （ ）
Form1．BackColor=RGB（255，255，255）
EndSubB．PrivateSubForm_Load （ ）
Form1．BackColor=RGB（0，0，0）
EndSubC．PrivateSubForm1_Load （ ?。?br />orm1．BackColor=RGB（255，255，255）
EndSubD．PrivateSubForm1_Load （ ?。?br />Form1．BackColor=RGB（0，0，0）
EndSub。
（3）請把橫線處的代碼補充完整：
①
②
（4）程序加框處代碼有錯，請改正：組卷：2引用：2難度：0.2 -
32．現有一個大小為n*n的平面矩陣（從上到下從左到右編號為1～n*n），矩陣中有諸多障礙物。有兩個機器人分別為1號和2號，其中1號位于左上角且面朝右側，2號位于右下角且面朝左側?，F在機器人需要按照規則進行K輪運動，規則如下：
①1號和2號機器人需要交替運動，即第一輪由1號進行運動，第二輪則由2號進行運動，第三輪由1號進行運動……以此類推直至第K輪。
②每輪運動時，機器人將先判斷前方是否可以前進，若無法前進，則不斷順時針旋轉90°至可以前進為止，隨后前進直至停止，由另一個機器人開始下一輪運動。
③機器人在前進過程中遇到邊界、障礙物或者另一個機器人時都將停止。
如圖a所示，機器人1號和2號分別位于左上角和右下角，且分別朝向右側和左側，黑塊表示障礙物，當進行了4輪運動后，狀態如圖b所示。
編寫程序，啟動后隨機生成矩陣并在List1中輸出，其中“#“表示障礙物，“_”表示可以行走的空格子，機器人用數字1和2表示。在文本框Text1中輸入輪數K，點擊按鈕Command1，在列表框List1中輸出K輪后的矩陣。程序界面如圖c所示。
（1）若在圖a的基礎上進行6輪運動后，1號機器人所在的位置是（填行列或格子編號均可）。
（2）實現上述功能的部分VB程序如下，請在橫線處填入合適的代碼。
Const n=10
Dim a（100）As String,steps（3）As Integer,pos（2）As Integer
Dim towards（2）As Integer,cur As Integer,nex As Integer,K As Integer
Private Sub Form_Load ______
'生成矩陣存儲在數組a中并輸出，代碼略
End Sub
Private Sub Command1_Click_____
steps（0）=-n：steps（1）=1：steps（2）=n：steps（3）=-1
pos（1）=1：towards（1）=1：pos（2）=n*n：towards（2）=3
i=1：K=Val（Text1.Text）
Do While i＜=K
cur=（i-1）Mod 2+1
nex=GetNext（pos（cur），towards（cur））
Do While Check（nex）
pos（cur）=nex
nex=GetNext（pos（cur），towards（cur））
Loop
nex=GetNext（pos（cur），towards（cur））
Do While Not Check（nex）
towards（cur）=______
nex=GetNext（pos（cur），towards（cur））
Loop
i=i+1
Loop
'輸出矩陣，代碼略
End Sub
Function Check（x As Integer） As Boolean
Check=x＜＞0 And a（x）＜＞“#“And _____
End Function
Function GetNext（x,t） As Integer
GetNext=x+steps（t）
If x＞=1 And x＜=n And t=0 Then GetNext=0
If x＞（n-1）*n And x＜=n*n And t=2 Then GetNext=0
If _____ Then GetNext=0
If x Mod n=0 And t=1 Then GetNext=0
End Function組卷：1引用：1難度：0.3