2022-2023學(xué)年云南省昭通市鎮(zhèn)雄一中高一(上)期末信息技術(shù)試卷
發(fā)布:2025/1/7 0:30:2
一、選擇題
-
1.“猴子吃桃“問(wèn)題:一天,有一只猴子從樹(shù)上摘下若干個(gè)桃子,當(dāng)即吃了一半,覺(jué)得不過(guò)癮,又吃了一個(gè).第二天小猴子接著吃剩下的一半,還覺(jué)得不過(guò)癮,又吃了一個(gè).以后每天都是吃前一天剩下的一半并再吃多一個(gè).到第四天,猴子按規(guī)則吃完桃子后,只剩一個(gè)桃子.問(wèn)小猴子第一天摘了多少個(gè)桃子.右圖所示是根據(jù)分析所畫(huà)出的部分流程圖.采用倒推算法,其中設(shè)定M的初始值為1(第四天吃完后剩下的桃子數(shù)),D為天數(shù)(初始值為5).請(qǐng)?jiān)谙旅娴蘑俸廷冢▽?duì)應(yīng)流程圖中相應(yīng)空缺位置)填入相應(yīng)選項(xiàng).①、②分別為( ?。?/h2>
組卷:3引用:2難度:0.7 -
2.以下術(shù)語(yǔ)中表示文件傳輸協(xié)議的是( ?。?/h2>
組卷:0引用:2難度:0.6 -
3.最新消息:全國(guó)信息安全標(biāo)準(zhǔn)化技術(shù)委員會(huì)日前明確要求,網(wǎng)聯(lián)汽車(chē)采集數(shù)據(jù)不得在境外存儲(chǔ)。這說(shuō)明( ?。?/h2>
組卷:3引用:3難度:0.7 -
4.隨著現(xiàn)代信息技術(shù)的發(fā)展,出現(xiàn)了很多新型的電子產(chǎn)品,如智能眼鏡、智能手表等等.下列說(shuō)法中,不符合信息技術(shù)發(fā)展趨勢(shì)的是( ?。?/h2>
組卷: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
若數(shù)組a 的初始值都為0,則運(yùn)行該程序段后,s的值為( ?。?/h2>組卷:0引用:1難度:0.4 -
6.馮諾依曼型體系結(jié)構(gòu)的計(jì)算機(jī)中引進(jìn)了兩個(gè)重要的概念,它們是( ?。?/h2>
組卷:3引用:2難度:0.6 -
7.某單位的域名為:jyeoo.jye.ai,其網(wǎng)址(URL)的完整寫(xiě)法是( )
組卷:2引用:1難度:0.7 -
8.李明通過(guò)電子郵件給遠(yuǎn)在美國(guó)的父親成功發(fā)送了一張賀卡,在他父親沒(méi)有接收郵件之前,該電子郵件將( ?。?/h2>
組卷:3引用:2難度:0.5 -
9.二進(jìn)制數(shù)11101與十進(jìn)制數(shù)2相加的結(jié)果是( )
組卷:0引用:1難度:0.6 -
10.下列關(guān)于Excel的敘述,錯(cuò)誤的是( )
組卷:13引用:11難度:0.9
三、操作題
-
31.星期天,小龍來(lái)到動(dòng)物園游玩,園內(nèi)共有N個(gè)景點(diǎn)(可在10個(gè)以上),每個(gè)景點(diǎn)都有一個(gè)標(biāo)號(hào),標(biāo)號(hào)為1至N.現(xiàn)在只知道每個(gè)景點(diǎn)有一條路連接下一個(gè)景點(diǎn)。小龍想知道,根據(jù)這些道路信息,從其中一個(gè)景點(diǎn)出發(fā),最后再回到出發(fā)景點(diǎn),最多能游玩多少個(gè)景點(diǎn)。
例如,共有N=5個(gè)景點(diǎn),每個(gè)景點(diǎn)連接的下一個(gè)景點(diǎn)分別是2,4,5,5,2。景點(diǎn)號(hào) 1 2 3 4 5 下一景點(diǎn)號(hào) 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)要使程序運(yùn)行時(shí),F(xiàn)orm1的BackColor屬性值為黑色,以下代碼正確的是A.PrivateSubForm_Load ( ?。?br />Form1.BackColor=RGB(255,255,255)
EndSubB.PrivateSubForm_Load ( ?。?br />Form1.BackColor=RGB(0,0,0)
EndSubC.PrivateSubForm1_Load ( )
orm1.BackColor=RGB(255,255,255)
EndSubD.PrivateSubForm1_Load ( ?。?br />Form1.BackColor=RGB(0,0,0)
EndSub
(3)請(qǐng)把橫線處的代碼補(bǔ)充完整:
①
②
(4)程序加框處代碼有錯(cuò),請(qǐng)改正:組卷:2引用:2難度:0.2 -
32.現(xiàn)有一個(gè)大小為n*n的平面矩陣(從上到下從左到右編號(hào)為1~n*n),矩陣中有諸多障礙物。有兩個(gè)機(jī)器人分別為1號(hào)和2號(hào),其中1號(hào)位于左上角且面朝右側(cè),2號(hào)位于右下角且面朝左側(cè)?,F(xiàn)在機(jī)器人需要按照規(guī)則進(jìn)行K輪運(yùn)動(dòng),規(guī)則如下:
①1號(hào)和2號(hào)機(jī)器人需要交替運(yùn)動(dòng),即第一輪由1號(hào)進(jìn)行運(yùn)動(dòng),第二輪則由2號(hào)進(jìn)行運(yùn)動(dòng),第三輪由1號(hào)進(jìn)行運(yùn)動(dòng)……以此類(lèi)推直至第K輪。
②每輪運(yùn)動(dòng)時(shí),機(jī)器人將先判斷前方是否可以前進(jìn),若無(wú)法前進(jìn),則不斷順時(shí)針旋轉(zhuǎn)90°至可以前進(jìn)為止,隨后前進(jìn)直至停止,由另一個(gè)機(jī)器人開(kāi)始下一輪運(yùn)動(dòng)。
③機(jī)器人在前進(jìn)過(guò)程中遇到邊界、障礙物或者另一個(gè)機(jī)器人時(shí)都將停止。
如圖a所示,機(jī)器人1號(hào)和2號(hào)分別位于左上角和右下角,且分別朝向右側(cè)和左側(cè),黑塊表示障礙物,當(dāng)進(jìn)行了4輪運(yùn)動(dòng)后,狀態(tài)如圖b所示。
編寫(xiě)程序,啟動(dòng)后隨機(jī)生成矩陣并在List1中輸出,其中“#“表示障礙物,“_”表示可以行走的空格子,機(jī)器人用數(shù)字1和2表示。在文本框Text1中輸入輪數(shù)K,點(diǎn)擊按鈕Command1,在列表框List1中輸出K輪后的矩陣。程序界面如圖c所示。
(1)若在圖a的基礎(chǔ)上進(jìn)行6輪運(yùn)動(dòng)后,1號(hào)機(jī)器人所在的位置是
(2)實(shí)現(xiàn)上述功能的部分VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼。
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 ______
'生成矩陣存儲(chǔ)在數(shù)組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組卷:0引用:1難度:0.3